Question

Составить программу в PascalABC расчета площади,углов треугольника,если все стороны известны.Точка A имеет координаты (0 , 0)

Answer 1

var x1,x2,x3,y1,y2,y3:integer;

   S:real;

begin

writeln('Введите координату точки x1 ,y1 ' );

readln(x1, y1);

writeln('Введите координату точки x2 ,y2 ');

readln(x2, y2);

writeln('Введите координату точки x3 ,y3 ');

readln(x3, y3);

S:=abs(0.5*((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3)));

writeln('Площадь S= ',S:3:0);

end.