Графика в Pascal ABC. Рисование и оператор цикла. whilex<=620 do begin

Графика в Pascal ABC

Урок 2

Рисование и оператор цикла

Напишем программу, в результате выполнения которой, вдоль верхней границы графического окна будут нарисованы окружности. Например, вот так:

Для начала, нам надо определить, координаты центра первой и последней окружностей в этой цепочке. Пусть координаты центра первой окружности – 20, 20, а последней – 620, 20.

Очевидно, что у всех окружностей координата У будет одинакова, меняется лишь Х. Остается решить, с каким шагом. Очевидно, что шаг будет целым числом, и это и будет расстояние между центрами окружностей. Если шаг будет больше их диаметра, они не будут пересекаться, равен – будут соприкасаться, меньше – окружности пересекутся.

Предположим, что радиус наших окружностей – 8. Тогда мы можем сделать шаг – 20.

620-20=600, 600/20=30, то есть, на экране мы увидим 30 окружностей.

Пишем программу:

programcircles;

uses GraphABC;

var

x: integer;

begin

x:=20;

whilex<=620 do begin

circle (x, 20, 8);

x:=x+20;

end;

end.

Добавим теперь окружности вдоль правой границы графического окна:

Для этого в описание переменных добавим переменную У.

var

x, y: integer;

Координаты центра последней окружности вдоль верхней границы окна – 620, 20.

Пусть окружности вдоль правой границы окна идут с тем же шагом – 20, и у них будет тот же радиус – 8.

Значит, координата У первой из них – 40. Последней – 460.

Дописываем в нашу программу:

y:=40;

12 Следующая ⇒