Найти периметр десятиугольника, вершины которого имеют соответственные координаты - Turbo Pascal

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

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

Решение задачи: «Найти периметр десятиугольника, вершины которого имеют соответственные координаты»

Листинг программы

uses crt;
const n=10;
var x:array[1..n]of real;
    y:array[1..n]of real;
    i:integer;
    s:real;
 
function len(x1,y1,x2,y2:real):real;
begin
 len:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do
 begin
  x[i]:=random(100)/10;
  y[i]:=random(100)/10;
  writeln('Tochka ',i,'= ',x[i]:3:1,' , ',y[i]:3:1);
 end;
 s:=len(x[1],y[1],x[n],y[n]);
 for i:=1 to (n-1) do
 begin
  s:= s + len(x[i],y[i],x[i+1],x[i+1]);
 end;
 writeln('p= ',s:4:1);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal.

Используется библиотека crt для работы с консолью.
Объявляются две переменные типа array[1..n] of real: x и y, где n - это количество вершин десятиугольника.
Объявляется переменная i типа integer, которая будет использоваться для цикла.
Объявляется переменная s типа real, которая будет использоваться для хранения периметра десятиугольника.
Определяется функция len, которая принимает четыре аргумента типа real и возвращает значение типа real. Функция вычисляет длину вектора, соединяющего четыре точки в двумерном пространстве.
Начинается цикл for, который генерирует случайные координаты для каждой вершины десятиугольника.
Вычисляется длина вектора между первой и последней вершинами десятиугольника с помощью функции len.
В цикле for вычисляется сумма длин всех сторон десятиугольника, кроме первой и последней.
Выводится значение переменной s, которое представляет собой периметр десятиугольника.