Найти сумму длин диагоналей параллелограмма - Free Pascal

Формулировка задачи:

найдите сумму длин диагоналей параллелограмма abcd и madt каждый из которых задан координат его вершин (можно использовать циклы и Процедуру и оператор if)

Код к задаче: «Найти сумму длин диагоналей параллелограмма - Free Pascal»

textual
type point=record
           x,y:real;
           end;
function dlina(a,b:point):real;
begin
dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
procedure dl_diag(var a,b,c,d:point;var d1,d2:real;s:string);
var o:point;
begin
writeln('Параллелограмм ',s);
writeln('Введите координаты двух противоположных вершин параллелограмма');
readln(a.x,a.y,c.x,c.y);
writeln('Введите координаты третьей вершины');
readln(b.x,b.y);
o.x:=(a.x+c.x)/2;
o.y:=(a.y+c.y)/2;
d.x:=2*o.x-b.x; //четвертая вершина
d.y:=2*o.y-b.y;
d1:=dlina(a,c);
d2:=dlina(b,d);
//writeln('D: x=',d.x:0:2,' y=',d.y:0:2); //для проверки
writeln('D1=',d1:0:2,' D2=',d2:0:2);
end;
var a,b,c,d,m,h,p,t:point;
    d1,d2:real;
begin
dl_diag(a,b,c,d,d1,d2,'ABCD');
dl_diag(a,b,c,d,d1,d2,'MHPT');
end.

12   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ