Полная версия: Записи, оператор присоединения.
Точка задается своими координатами, которые могут быть полярными или декартовыми. Написать функцию, которая определяет расстояние между двумя точками.
Посмотри здесь http://x-admin.narod.ru/8.html
Кажется задача совсем элементарная ... И ещё не совсем понятно при чём тут название темы "Записи, оператор присоединения" 
Все правильно с названием темы!
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.
Смысл в том, что записи для хранения координат .. думаю принцип ясен.
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.
Смысл в том, что записи для хранения координат .. думаю принцип ясен.
А для полярных координат ИМХО проще перевести их в декартовы...
(r, fi) -> (x, y)
x = r*cos(fi)
y = r*sin(fi)
(r, fi) -> (x, y)
x = r*cos(fi)
y = r*sin(fi)
Верно... тогда работает тот код, что я уже написал ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.