Помогите пожалуйста решить задачу в Pascale...

[Евгений1313]

Программа с использованием процедуры и функции.

Даны координаты вершин многоугольника(X1,Y1,X2,Y2,…,X10,Y1 0). Определить его периметр (вычисление расстояния между вершинами оформить подпрограммой).

Помогите пожалуйста...

[NeshSoft]

Думаю растояние между двумя точками можно вычислить по теореме пифагора:

s:=sqrt((x2-x1)^2+(y2-y1)^2)

Ну собственно из этой формулы будет состоять процедура вычисляющая растояния между вершинами. Ну а сама программа - цикл.

[Sazary]

Функция, возвращающая длину стороны:

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

Находите длины, складываете.

[maladoy]

только

s:=sqrt(sqr(x2-x1)+sqr(y2-y1))

[Евгений1313]

Всем большое спасибо за помощь!