Программа на паскаль для рисования графических узоров
В этой статье мы научимся писать программу на паскаль, которая рисует красивые графические узоры из концентрических окружностей. Концентрические окружности имеют общий центр и разные радиусы.
Напишем процедуру uzor для рисования концентрических окружностей, в качестве параметров в процедуру будем передавать центр концентрических окружностей, количество окружностей и шаг изменения радиуса
Подробно о процедурах в Паскале В цикле for будем рисовать заданное число окружностей, при этом радиус окружностей будет постоянно увеличиваться( r:=r+v;)
Чтобы цвет окружностей чередовался, будем использовать оператор выбора case в паскале и в зависимости от остатка от деления на 3 (число цветов можно увеличить) будет устанавливаться соответствующий цвет. Для определения остатка от деления используется оператор переменная mod число
procedure uzor(x, y, n, v : integer);
var i,r:integer;
begin
r:=10;
for i:=1 to n do begin
r:=r+v;
SetPenColor(clRed);
case i mod 3 of
0 : SetPenColor(clRed);
1 : SetPenColor(clGreen);
2 : SetPenColor(clBlue);
end;
drawcircle (x,y,r);
end;
end;
теперь в теле основной программы на паскаль мы можем вызывать процедуру uzor с различными значениями параметров. Если изменять координаты x и y то можно красиво наложить узоры из концентрических окружностей.
Полная версия программы на паскаль для рисования графических узоров из концентрических окружностей
uses GraphABC;
procedure uzor(x, y, n, v : integer);
var i,r:integer;
begin
r:=10;
for i:=1 to n do begin
r:=r+v;
SetPenColor(clRed);
case i mod 3 of
0 : SetPenColor(clRed);
1 : SetPenColor(clGreen);
2 : SetPenColor(clBlue);
end;
drawcircle (x,y,r);
end;
end;
begin
setWindowSize(500, 500);
uzor(100,150,20,4);
uzor(150,150,20,4);
uzor(125,100,20,4);
uzor(125,200,20,4);
end.
Получится такой красивый узор

Перейти к содержанию курса паскаль
Полезно почитать по теме графика в паскаль
Графика на паскале
Анимация на паскале
Поделиться: