Question

Написать программу для определения существует ли треугольник по заданным координатам в Рascal ABC.

Answer 1

Ответ:

Объяснение:

var x1,y1,x2,y2,x3,y3, AB, BC, AC:real;

function a(x1,y1,x2,y2:real):real;

begin

Result:= sqrt(sqr(x1-x2)+sqr(y1-y2));

end;

begin

readln(x1, y1);

readln(x2, y2);

readln(x3, y3);

AB :=a(x1,y1,x2,y2);

BC :=a(x2,y2,x3,y3);

AC :=a(x1,y1,x3,y3);

if (AB<BC+AC) and (BC<AC+AB) and (AC<BC+AB) then writeln('такой треугольник существует')

else writeln('такой треугольник не существует');

writeln(AB, ' ', AC, ' ', BC);

end.