Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Записи о положении точки

Автор: Бина 20.04.2004 22:03

Привет! Помогите пожалуйста решить задачу на записи. unsure.gif
Задача:
Создать записи, определяющие положение точки в декартовой и в полярной системах координат. Считая, что задан массив координат точек в декартовой системе координат, получить соответствующий массив координат заданных точек в полярной системе координат.
Заранее спасибо.

Автор: P@sh@ 21.04.2004 13:29

ох, еще бы вспомнить, как пересчитать координаты в полярную систему...
r:=sqrt(x*x+y*y);
a:=arctan(y/x);
вроде так... или нет ? в общем, подставишь нужные формулы туда:

Код
type
 xy=record x,y: real end;
 polar=record a,r: real end;
...
procedure XYtoPolar(var a,b);  { здесь а-массив типа xy, b - типа polar, размеры должны быть одинаковы }
var i: integer;
begin
 for i:=Low(a) to High(a) do
   with a[i] do begin
     b[i].a:=...
     b[i].r:=...
   end;
end;

Автор: Бина 3.05.2004 23:22

А нельзя ли всю программу полностью, а то я не поняла: что просто добавить эту процедуру после ввода массива и все?