Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
sasha650
0 / 0 / 1
Регистрация: 04.12.2016
Сообщений: 25
#1

Описать процедуры, преобразующие координаты точки плоскости из декартовых в полярные и обратно - Delphi

28.03.2017, 08:19. Просмотров 217. Ответов 0
Метки нет (Все метки)

type декарт = record x,y: real end;
поляр = record r,fi: real end; (r 0; –< fi )
Описать процедуры: ДП(d, p), преобразующую координаты точки плоскости из декартовых d в полярные p, и ПД(p,d), выполняющую обратное преобразование.


маленькое начало есть
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
type
  dek = record
             x, y : real
         end;
  pol = record
           r, fi : real
          end;
 
var
  d:dek;
  p:pol;
 
Procedure DP(d:dek; var p:pol);
begin
  p.r:=999;
  p.fi:=111;
end;
 
procedure TForm7.Button1Click(Sender: TObject);
var
x,y,p1:real;
begin
  d.x:=StrToFloat(Edit1.Text);
{  d:=sqrt(sqr x+ sqr y );  }
 
 
  edit4.Text:=FloatToStr (d.y);
 
end;
procedure TForm7.FormCreate(Sender: TObject);
var
x,y,ff:real;
begin
  p.fi:=StrtoFloat(Edit3.Text);
 
  edit2.Text:=FloatToStr (p.r);
  end;
 
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2017, 08:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Описать процедуры, преобразующие координаты точки плоскости из декартовых в полярные и обратно (Delphi):

Преобразовать координаты точки плоскости из декартовых в полярные и обратно
type декарт = record x,y: real end; поляр = record r,fi: real end;...

С клавиатуры вводятся координаты точки. На экран выводится номер четверти декартовой плоскости, которой она принадлежит
Товарищи, помогите, пожалуйста, скоро экзамен по Делфи, а мы его совсем не...

Полярные координаты
Требуется перевести изображение 1080*1080 (обрезать от 1920*1080) из полярных...

Полярные координаты. Перевод
Подскажите, по какой формуле фотошоп переводит из полярных координат в...

Построение графика функции (полярные координаты)
Построить график функции в полярных координатах, следуя методически указаниям y...

Описать процедуру, преобразующую координаты точки на плоскости из декартовых в полярные
Помогите с кодом. type декарт = record x, y : real ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.03.2017, 08:19
Привет! Вот еще темы с решениями:

Для вводимых прямоугольных декартовых координат x и y точки определить и вывести ее полярные координаты
Напишите программу, которая для вводимых прямоугольных декартовых координат x и...

Преобразовать координаты точки на плоскости из декартовой в полярные
Нужно создать записи определяющие положение точки в декартовой и в полярной...

Найти полярные координаты r и f точки на плоскости и построить график
Помогите написать программу. &quot;Найти полярные координаты r и f точки на...

Из декартовых в полярные координаты
Добрый вечер! Итак, у меня есть график R(θ), построенный в полярных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru