Напишите функцию, вычисляющую площадь треугольника по целочисленным координатам его вершин

Напишите функцию, вычисляющую площадь треугольника по целочисленным координатам его вершин. Напишите про­грамму вычисления площади четырёхугольника по координатам его вершин с помощью этой функции.

Ответ

program ploshad_treugolnika;
var
ха, ya, xb, уb, хе, ус, xd, yd: integer; // Исходные данные
аb, ас, bс, p: real; // Промежуточные величины
s4: real; // Результат
function s3 (x1, y1, x2, y2, x3, y3: integer): real;
var d1, d2, d3, p, rez: real;
begin
d1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
d2:=sqrt(sqr(x3-x2)+sqr(y3-y2));
d3:=sqrt(sqr(x1-x3)+sqr(y1-y3));
p:=(d1+d2+d3)/2;
rez:=sqrt(p*(p-d1)*(p-d2)*(p-d3));
s3:=rez
end;
begin
writeln (‘ха и yа’);
readln (ха, yа);
writeln (‘xb и уb’);
readln (xb, yb);
writeln (‘xc и ус’);
readln (xc, ус);
writeln (‘xd и yd’);
readln(xd, yd);
s4:=s3(xa, ya, xb, yb, xc, уc) + s3(ха, ya, xd, yd, xc, ус);
writeln (‘S = ‘, s4:6:2);
end.

Опубликовано: 14.01.2019 Обновлено: 14.01.2019
Поделись с друзьями

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

четыре × три =