Практикум по решению задач на ЭВМ. Тарова И.Н - 93 стр.

UptoLike

Практикум по решению задач на ЭВМ
Лабораторная работа 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