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

[2407]

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

[Dao]

Посмотри здесь http://x-admin.narod.ru/8.html

[Jahnerus]

Кажется задача совсем элементарная ... И ещё не совсем понятно при чём тут название темы "Записи, оператор присоединения"

[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.

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

[trminator]

А для полярных координат ИМХО проще перевести их в декартовы...
(r, fi) -> (x, y)
x = r*cos(fi)
y = r*sin(fi)

[Altair]

Верно... тогда работает тот код, что я уже написал ...