Question

Используя паскаль нужно написать программу для решения задачи

Известны координаты четырех вершин четырехугольника ABCD. Найти
длины диагоналей AC и BD этого четырехугольника и сравнить их длины.
Вывести длину большей диагонали AC или BD

Answer 1

Program Pryam;

var

x1,x2,x3,x4,y1,y2,y3,y4:integer; //координаты

{x1,y1 - координаты A}

{x2,y2 - координаты B}

{x3,y3 - координаты C}

{x4,y4 - координаты D}

a1,a2,b1,b2:integer;

c1,c2:real;

begin

read(x1,y1,x2,y2,x3,y3,x4,y4);

a1:=abs(y1-y2); //AB

b1:=abs(x3-x1); //BC

c1:=sqrt(a1*a1+b1*b1); //AC

a2:=abs(y4-y3); //DC

b2:=abs(x4-x1); //AD

c2:=sqrt(a2*a2+b2*b2); //BD

if c1>c2 then

   write(c1)

else

   write(c2);

end.