Напишите функцию, вычисляющую площадь треугольника по целочисленным координатам его вершин. С
Напишите функцию, вычисляющую площадь треугольника по целочисленным координатам его вершин. С подмогою этой функции вычислите площадь четырехугольника по координатам его вершин
Задать свой вопрос1 ответ
Регина Авен
В формуле имеется модуль, в Паскале он обозначается абс(значение).
program z9;
var x1, x2, x3, y1, y2, y3, x4, y4, S1, S2, S: real;
//Функция вычисления площади треугольника по координатам
function plosad (var x1,y1,x2,y2,x3,y3: real): real;
begin
plosad:=абс(((x1-x3)*(y2-y3) - (x2-x3)*(y1-y3))/2);
end;
BEGIN
writeln(Приветствую, введите координаты вершин четырехугольника.);
write(x1 = ); read(x1);
write(y1 = ); read (y1);
write(x2 = ); read(x2);
write(y2 = ); read (y2);
write(x3 = ); read(x3);
write(y3 = ); read (y3);
write(x4 = ); read(x3);
write(y4 = ); read (y4);
Writeln (Координаты: A[, x1, ;, y1, ]; B[, x2, ;, y2, ]; C[, x3, ;, y3, ];);
S1 := plosad(x1, y1, x2, y2, x3, y3);
S2 := plosad(x1, y1, x3, y3, x4, y4);
S:=S1+S2;
Writeln (Площадь равна , S:0:2);
END.
program z9;
var x1, x2, x3, y1, y2, y3, x4, y4, S1, S2, S: real;
//Функция вычисления площади треугольника по координатам
function plosad (var x1,y1,x2,y2,x3,y3: real): real;
begin
plosad:=абс(((x1-x3)*(y2-y3) - (x2-x3)*(y1-y3))/2);
end;
BEGIN
writeln(Приветствую, введите координаты вершин четырехугольника.);
write(x1 = ); read(x1);
write(y1 = ); read (y1);
write(x2 = ); read(x2);
write(y2 = ); read (y2);
write(x3 = ); read(x3);
write(y3 = ); read (y3);
write(x4 = ); read(x3);
write(y4 = ); read (y4);
Writeln (Координаты: A[, x1, ;, y1, ]; B[, x2, ;, y2, ]; C[, x3, ;, y3, ];);
S1 := plosad(x1, y1, x2, y2, x3, y3);
S2 := plosad(x1, y1, x3, y3, x4, y4);
S:=S1+S2;
Writeln (Площадь равна , S:0:2);
END.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Облако тегов