Вычислить длины средних линий треугольника - Pascal ABC

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

1. Дан треугольник, заданный координатами его вершин. Вычислить длины его средних линий.

Код к задаче: «Вычислить длины средних линий треугольника - Pascal ABC»

textual
function sr_ln(x1,y1,x2,y2,x3,y3:real):real;
var ax,ay,bx,by:real;
begin
ax:=(x1+x2)/2;
ay:=(y1+y2)/2;
bx:=(x1+x3)/2;
by:=(y1+y3)/2;
sr_ln:=sqrt(sqr(ax-bx)+sqr(ay-by));
end;
var x1,y1,x2,y2,x3,y3:real;
begin
writeln('Введите координаты вершин треугольника');
readln(x1,y1,x2,y2,x3,y3);
writeln('Длины его средних линий');
write(sr_ln(x1,y1,x2,y2,x3,y3):0:2,' ',sr_ln(x2,y2,x1,y1,x3,y3):0:2,' ',
      sr_ln(x3,y3,x2,y2,x1,y1):0:2);
end.

7   голосов, оценка 3.857 из 5


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