Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
ybgvuvtb
0 / 0 / 0
Регистрация: 05.06.2018
Сообщений: 13
1

Поворот объекта относительно заданной точки на заданный угол, а затем - отражение относительно заданной прямой

02.07.2018, 10:17. Просмотров 392. Ответов 3
Метки нет (Все метки)

напишите программу,которая осуществляет поворот объекта относительно заданной точки на заданный угол,а затем осуществляет отображение относительно заданной прямой.( в Паскале)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.07.2018, 10:17
Ответы с готовыми решениями:

Выяснить, лежат ли две точки в одной полуплоскости относительно заданной прямой
Даны действительные числа x, y. Точки с координатами (x,y),(x,y),(x,y) расcматриваются как...

Симметричность точки относительно прямой
Задана прямая L, параллельная одной из осей координат, и точка А. Найти координаты точки В,...

Определить симметричны ли точки относительно прямой
Помогите пожалуйста решить задачу. Совсем запуталась...Нужно составить программу. Определить...

На плоскости заданы прямая и точка. Найти координаты точки, симметричной относительно прямой
10. На плоскости заданы прямая и точка. Найти координаты точки, симметричной относительно прямой.

Поворот объекта относительно заданной точки на заданный угол
напишите программу,которая осуществляет поворот объекта относительно заданной точки на заданный...

3
JuriiMW
2421 / 1346 / 1731
Регистрация: 10.12.2014
Сообщений: 5,279
02.07.2018, 10:31 2
Pascal
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
uses GraphWPF;
 
function Xrotation(X, Y, angle : Real; mirror : Boolean := False) := X * cos(angle) * (Mirror ? -1 : +1) - Y * sin(angle);
function Yrotation(X, Y, angle : Real; mirror : Boolean := False) := X * sin(angle) * (Mirror ? -1 : +1) + Y * cos(angle);
 
procedure DrawCircle(X, Y, R, angle : Real; mirror : Boolean := False) :=
  Circle(Xrotation(X, Y, angle, mirror), Yrotation(X, Y, angle, mirror), R);
  
procedure Snowmen(angle : Real; mirror : Boolean := False);
begin
  DrawCircle(1.2, 1, 0.9, angle, mirror);
  DrawCircle(1.2, 2.6, 0.7, angle, mirror);
  DrawCircle(0.3, 2.8, 0.2, angle, mirror);
  DrawCircle(2.1, 2.8, 0.2, angle, mirror);
  DrawCircle(1.2, 3.8, 0.5, angle, mirror);
  DrawCircle(1, 4, 0.03, angle, mirror);
  DrawCircle(1.4, 4, 0.03, angle, mirror);
  var t := arr(pnt(1.2,3.8),pnt(1.2,3.5),pnt(1.7,3.5));
  if mirror then for var i := 0 to t.Count-1 do t[i].X *= -1;
  for var i := 0 to 2 do
    (t[i].X, t[i].Y) := (Xrotation(t[i].X, t[i].Y, angle), Yrotation(t[i].X, t[i].Y, angle));
  Polygon(t);
end;
 
begin
  SetMathematicCoords;
  Snowmen(0);
  Snowmen(30*Pi/180);
  Snowmen(30*Pi/180, True);
end.
0
ybgvuvtb
0 / 0 / 0
Регистрация: 05.06.2018
Сообщений: 13
02.07.2018, 10:46  [ТС] 3
а если без снеговиков,а ,допустим, круг
0
JuriiMW
2421 / 1346 / 1731
Регистрация: 10.12.2014
Сообщений: 5,279
02.07.2018, 10:54 4
Закомментируйте строки с 12 по 22…
0
02.07.2018, 10:54
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2018, 10:54

Напишите программу, которая осуществляет поворот объекта относительно заданной точки на заданный угол
напишите программу,которая осуществляет поворот объекта относительно заданной точки на заданный...

Поворот отрезка на произвольный угол относительно заданной точки
Доброго всем времени суток. Не как не получается найти метод для поворота отрезка Сам отрезок...

Поворот объекта относительно заданной точки OpenGL ES 2.0
Здравствуйте! У меня есть прямоугольник 100 на 50, который я хочу повернуть относительно точки, к...


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

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

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