Функции. Найти периметр - Pascal ABC

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

Добрый вечер! Помогите, пожалуйста Найти периметр n-угольника, заданного координатами вершин (массивы не использовать). Описать функцию определения расстояния между двумя точками.

Код к задаче: «Функции. Найти периметр - Pascal ABC»

textual
function rasst(x1,y1,x2,y2:real):real;
begin
rasst:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var x1,y1,x2,y2,x,y:real;
    n,i:byte;
    r,p:real;
begin
repeat
write('Введите количество вершин n>2 n=');
readln(n);
until n>2;
writeln('Введите координаты первой вершины');
readln(x1,y1);
x2:=x1;
y2:=y1;
p:=0;
writeln('Введите координаты остальных вершин');
for i:=2 to n do
 begin
  readln(x,y);
  p:=p+rasst(x,y,x2,y2);
  x2:=x;
  y2:=y;
 end;
p:=p+rasst(x1,y1,x2,y2);
writeln('Периметр=',p:0:2);
end.

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


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