Записи, оператор присоединения. Опции

[2407]

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

[Altair]

Все правильно с названием темы!
APAL, ну пожалуйста, не удаляй! Прошу тебя! ;)

Вот при чем записи: (только
для декартовой приведу пример)

Код

type
koord=record
     X,Y:integer;
  end;
Const
n=2;
var
a:array[1..N] of koord;
i:word;
rasst:real;
begin
for i:=1 to n do begin
write('x='); readln(a[i].x);
write('y='); readln(a[i].y);
end;
rasst:=sqrt(sqr(a[2].x-a[1].x)+sqr(a[2].y-a[1].y));
writeln(rasst);
end.

Смысл в том, что записи для хранения координат .. думаю принцип ясен.