Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Записи, оператор присоединения.
Автор: 2407 14.11.2004 16:47
Точка задается своими координатами, которые могут быть полярными или декартовыми. Написать функцию, которая определяет расстояние между двумя точками.
Автор: Dao 14.11.2004 16:53
Посмотри здесь http://x-admin.narod.ru/8.html
Автор: Jahnerus 14.11.2004 17:13
Кажется задача совсем элементарная ... И ещё не совсем понятно при чём тут название темы "Записи, оператор присоединения" 
Автор: Altair 15.11.2004 0:26
Все правильно с названием темы!
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 15.11.2004 1:27
А для полярных координат ИМХО проще перевести их в декартовы...
(r, fi) -> (x, y)
x = r*cos(fi)
y = r*sin(fi)
Автор: Altair 15.11.2004 1:34
Верно... тогда работает тот код, что я уже написал ...