Запись оставлена никита 30.03.2023 в 18:36
запустить | скачать | новая запись
- program spinning_disk;
- uses
- graph, sysutils;
- const
- cx = 320; { координаты центра диска }
- cy = 240;
- r = 100; { радиус диска }
- n = 5; { количество спиц }
- dt = 50; { время задержки между кадрами }
- var
- i: Integer;
- angle: Real;
- begin
- InitGraph; { инициализация графической системы }
- ClearDevice; { очистка экрана }
- angle := 0; { начальный угол }
- repeat
- ClearDevice;
- for i := 0 to n - 1 do
- begin
- Line(cx, cy, cx + Round(r * Cos(angle + i * 2 * Pi / n)), cy + Round(r * Sin(angle + i * 2 * Pi / n)));
- { рисуем спицы диска }
- end;
- angle := angle + 0.1; { изменяем угол }
- if angle >= 2 * Pi then
- angle := angle - 2 * Pi; { ограничиваем угол }
- Delay(dt); { задержка между кадрами }
- until KeyPressed; { выходим, когда нажата клавиша }
- CloseGraph; { закрываем графическую систему }
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.