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

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

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

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

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

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

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

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

Угол относительно Ox
Здравствуйте. Решил немного заняться имитацией физики у обычных объектов модуля...

3
JuriiMW
1921 / 1029 / 1551
Регистрация: 10.12.2014
Сообщений: 3,802
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
Сообщений: 8
02.07.2018, 10:46  [ТС] #3
а если без снеговиков,а ,допустим, круг
0
JuriiMW
1921 / 1029 / 1551
Регистрация: 10.12.2014
Сообщений: 3,802
02.07.2018, 10:54 #4
Закомментируйте строки с 12 по 22…
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2018, 10:54

Поменять элементы в матрице относительно симметрично относительно главной диагонали
Дана квадратная матрица поменять в ней элементы симметричные относительно...

Выяснить, симметричен ли заданный массив относительно середины
Задан линейный массив А. выяснить, симметричен ли он относительно середины....

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


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

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

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