Описать функцию Perim(xA, yA, xB, yB, xC, yC) вещественного типа, находящую периметр треугольника - Turbo Pascal

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

Всем привет, прошу помочь, совсем скоро нужно сдавать эту задачу, но мне эта тема далась не очень. Кто чем сможет, буду очень благодарен!!! Описать функцию Perim(xA, yA, xB, yB, xC, yC) вещественного типа, находящую периметр треугольника ABC по координатам его вершин (xA, yA, xB, yB, xC, yC — вещественные параметры). С помощью этой функции найти периметры треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

Код к задаче: «Описать функцию Perim(xA, yA, xB, yB, xC, yC) вещественного типа, находящую периметр треугольника - Turbo Pascal»

textual
uses crt;
function Perim(xa,ya,xb,yb,xc,yc:real):real;
begin
Perim:=sqrt(sqr(xa-xb)+sqr(ya-yb))+sqrt(sqr(xb-xc)+sqr(yb-yc))+sqrt(sqr(xc-xa)+sqr(yc-ya));
end;
var ax,ay,bx,by,cx,cy,dx,dy:real;
    i:byte;
begin
clrscr;
writeln('Введите координаты 4х точек');
readln(ax,ay,bx,by,cx,cy,dx,dy);
writeln('Периметр треугольника АВС=',Perim(ax,ay,bx,by,cx,cy):0:2);
writeln('Периметр треугольника АВD=',Perim(ax,ay,bx,by,dx,dy):0:2);
writeln('Периметр треугольника АCD=',Perim(ax,ay,cx,cy,dx,dy):0:2);
readln
end.

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


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