Записи о положении точки |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Записи о положении точки |
Бина |
Сообщение
#1
|
Гость |
Привет! Помогите пожалуйста решить задачу на записи.
Задача: Создать записи, определяющие положение точки в декартовой и в полярной системах координат. Считая, что задан массив координат точек в декартовой системе координат, получить соответствующий массив координат заданных точек в полярной системе координат. Заранее спасибо. |
P@sh@ |
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 180 Пол: Мужской Репутация: 2 |
ох, еще бы вспомнить, как пересчитать координаты в полярную систему...
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
|
Гость |
А нельзя ли всю программу полностью, а то я не поняла: что просто добавить эту процедуру после ввода массива и все?
|
Текстовая версия | 4.05.2024 16:52 |