Составители:
Практикум по решению задач на ЭВМ
Лабораторная работа №27
Графика и движение
1) Изобразить на экране точку, движущуюся по окружности с постоян-
ной угловой скоростью.
2) Изобразить на экране отрезок, вращающийся в плоскости экрана во-
круг: а) своей середины; б) своего конца; в) точки, делящей отрезок в от-
ношении 1:3.
3) Получить на экране мультфильм «Круги
на воде», используя семь кон-
центрических окружностей. Центры окружностей совмещены с цен-
тром экрана, а радиусы изменяются от 40 до 82 пикселей, увеличиваясь
на 7. Иллюзия движения создается последовательной сменой цветов
всех окружностей, начиная с внутренней. Смену цветов повторить не
менее 10 раз.
4) Изобразить на графическом экране точку, пересекающую с постоян-
ной скоростью
экран справа налево параллельно его горизонтальной
оси.
program point;
uses CRT,Graph;
label 100;
var
grDriver:integer;
grMode :integer;
ErrCode :integer;
var
93
Практикум по решению задач на ЭВМ Лабораторная работа №27 Графика и движение 1) Изобразить на экране точку, движущуюся по окружности с постоян- ной угловой скоростью. 2) Изобразить на экране отрезок, вращающийся в плоскости экрана во- круг: а) своей середины; б) своего конца; в) точки, делящей отрезок в от- ношении 1:3. 3) Получить на экране мультфильм «Круги на воде», используя семь кон- центрических окружностей. Центры окружностей совмещены с цен- тром экрана, а радиусы изменяются от 40 до 82 пикселей, увеличиваясь на 7. Иллюзия движения создается последовательной сменой цветов всех окружностей, начиная с внутренней. Смену цветов повторить не менее 10 раз. 4) Изобразить на графическом экране точку, пересекающую с постоян- ной скоростью экран справа налево параллельно его горизонтальной оси. program point; uses CRT,Graph; label 100; var grDriver:integer; grMode :integer; ErrCode :integer; var 93
Страницы
- « первая
- ‹ предыдущая
- …
- 91
- 92
- 93
- 94
- 95
- …
- следующая ›
- последняя »