Известны координаты вершин A, B, C треугольника. Напишите программу, вычисляющую площадь этого треугольника.

+ 0 -

миха56

08 нояб. 2014 г., 23:09:51 (9 лет назад)

program qq;
uses crt;
var xa, ya, xb, yb, xc, yc, s: integer
begin
write('Введите координаты вершины A');
read(xa,ya);
writeln('Введите координаты вершины B');
read(xb,yb);
writeln('Введите координаты вершины C');
read(xc,yc);
s:=0.5*((xa-xc)*(yb-yc)-(xb-xc)*(ya-yc));
if s<0 then
writeln('Площадь равна ',s);
end.
end.
Я могу со знаками напутать, так как компьютера под рукой нет

+ 0 -

Dandan210

09 нояб. 2014 г., 1:55:12 (9 лет назад)

после if дополни s:=-s;

+ 0 -

Катюфка199713

09 нояб. 2014 г., 2:32:21 (9 лет назад)

Комментарий удален