paskale

[ddeman666]

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

[Rehsuperauqs]

1)Гарантируется ли, что последовательность этих точек с первой по десятую даст десятиугольник или последовательность точек надо менять чтобы десятиугольник получился?
2)Паскаль или Делфи?

[Rehsuperauqs]

uses crt;
var
  x,y:array[0..9] of real;
  i:integer;
  p:real;

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

begin
  clrscr;
  p:=0;
  for i:=0 to 9 do begin
    write('x',i+1,': ');
    readln(x[i]);
    write('y',i+1,': ');
    readln(y[i]);
    clrscr;
  end;
  for i:=0 to 8 do begin
    p:=p+distance(x[i],y[i],x[i+1],y[i+1]);
  end;
  p:=p+distance(x[9],y[9],x[0],y[0]);
  writeln('P=',p);
end.