Необходимо определить периметр многоугольника, заданного координатами вершин

[Андрю)(@]

Необходимо определить периметр многоугольника, заданного координатами вершин
(x1, y1), (x2, y2), ..., (x10, y10), с использованием функции...
Пожалуйста помогите с данной задачкой..., долго пытаюсь никак не поддаётся...

[zonclayv]

ты знаешь как найти периметр по точкам? или ты незнаешь как это записать с помощью функции?

[Sazary]

Собственно, функция. Как делать остальное, думаю, разберетесь.

function dlina(x1,x2,y1,y2 : integer) : real;
 begin
 dlina := sqrt(sqr(x2-x1) + sqr(y2-y1));
 end;

[Андрю)(@]

да формулу то я знал, я не понимаю как сделать для 10 точек

[Sazary]

Андрю)(@

per := 0;
for i:=2 to 10 do
 begin
 per := per + dlina(x[i-1],y[i-1],x[i],y[i]);
 end;

Где per - периметр, x[],y[] - массивы координат x и y.

[Андрю)(@]

Program Lab7;
USES Crt;
Var
i, N: integer;
per,dlina: real;
function dlinastr(x1,x2,y1,y2 : integer) : real;
 begin
 per:= 0;
for i:=2 to N do
 begin
 Write('Введите координату x1 '); Readln(x1);
 Write('Введите координату y1 '); Readln(y1);
 Write('Введите координату x1 '); Readln(x2);
 Write('Введите координату y2 '); Readln(y2);
 dlina := sqrt(sqr(x2-x1) + sqr(y2-y1));
 per := per + dlina;
 end;
 Writeln(per);
 end;
begin
ClrScr;
Writeln('Введите количество сторон'); ReadLn(N);
dlinastr;
end.

Вот попробовал написать, что-то не работает...
Пожалуйста помогите исправить..

[Sazary]

Program Lab7;
USES Crt;
Var
i, N: integer;
x,y : array[1..100] of integer;
per: real;

function dlina(x1,x2,y1,y2 : integer) : real;
begin
dlina := sqrt(sqr(x2-x1) + sqr(y2-y1));
end;

begin
ClrScr;
Writeln('Kolichestvo storon: '); ReadLn(N);
per := 0;
write('Enter x1='); readln(x[1]);
write('Enter y1='); readln(y[1]);
for i:=2 to N do
 begin
 write('Enter x',i,'='); readln(x[i]);
 write('Enter y',i,'='); readln(y[i]);
 per := per + dlina(x[i-1],y[i-1],x[i],y[i]);
 end;
per := per + dlina(x[i],y[i],x[1],y[1]);
writeln('Perimeter= ',per:3:1);
readln;
end.

Вроде так..