Конспект урока на тему “Циклы. Программирование рисунка”

Var x, i, y, r:integer;

BEGIN

Floodfill(1,1,clnavy);

Темно-синий фон

Рисование тучи

Randomize;

Setbrushcolor(cllightgray);

Светло-серый круг

Setpencolor(cldarkgray);

Темно-серая окружность

For

Ellipse(x, random(30)+10,x+50,random(70));

Эллипс разного размера

Рисование дождя

Setpencolor(clgray);

Серый цвет

X:=120;

Repeat

Line(x,80,x+20,random(120)+120);

Линии дождя

X:=x+10;

Delay(10);

Until x>400;

Рисование стены дома

X:=350;

Y:=360;

Repeat

Repeat

Setpencolor(clmaroon);

Кирпичный цвет

Fillrect(x+2,y+2,x+51,y+11);

Блоки дома по вертикали

Setpencolor(clLightgray);

Светло-серый

Rectangle(x, y, x+50,y+10);

Раствор между кирпичами

Y:=y-10;

Delay(50);

Until y

Y:=360; x:=x+50;

И по горизонтали

Until x>500;

Рисование украшение на Дом виде кружков

Y:=200; r:=15;

Repeat

Setbrushcolor(clOlive);

Оливковый цвет

Circle(350,y, r);

Круги слева

Circle(550,y, r);

Круги справа

Y:=y+20;

Увеличение Y вниз

R:=r-2;

Уменьшение радиуса

Delay(10);

Пауза

Until y>280;

Рисование крыши

X:=10;

For y:=200 Downto 100 Do

Begin

Setpencolor(clpurple);

Line(300+x, y,600-x, y);

Трапеция

X:=x+1;

Delay(50);

End ;

Рисование окна

For y:=300 Downto 230 Do

Begin

Setpencolor(clyellow);

Желтый цвет

Fillrect(410,y,480,y-10);

Фон окна

Delay(10);

End ;

Рисование ступенек

X:=520; y:=330;

While X<=610 do

Begin

Setbrushcolor(clSkyBlue);

Небесно-голубой цвет

Rectangle (x, y, x+30,y+10);

Ступенька

X:=x+30;

Y:=y+10;

Delay(10);

End ;

Рисование фонаря

For r:=1 To 9 Do

Begin

Setpencolor(clfuchsia);

Фиолетовый цвет

Arc(580,280,r2,0,360);

Фонарь из кругов

Line(540,290+r,580,295+r);

Подставка

Delay(10);

End;

Рисование забора

X:=50;

While xDo

Begin

Setpencolor(clred);

Красный цвет

Rectangle(x-2,258,x+32,372);

Контур забора

Setbrushcolor(clgray);

Серый цвет

Fillrect(x,260,x+30,370);

Фон забора

X:=x+40;

Delay(10);

End ;

Рисование Елки

For I:=120 Downto 0 Do

Begin

Setpencolor(clgreen);

Зеленый цвет

Line(80+random(i-1),260+i,80-random(i-1),260+i);

Ветки елки

Setpencolor(clbrown);

Коричневый цвет

Line(80,270+i,85,270+i);

Ствол елки

Setpencolor(cllime);

Салатный цвет

Line(80-random(i-1),250+i,80+random(i+1),250+i);

Ветки елки

Delay(10);

End ;

END.

Var x, i, y, r:integer;

BEGIN

I:=detect;

InitGraph(i, i,”);

Randomize ;

Setbkcolor(1);

Цвет фона (синий)

Setcolor(8);

Цвет эллипса (серый)

Setfillstyle(1,7);

Стиль (сплошной, св. серый)

Эллипсовидные тучи

For x:=100 To 400 Do

Begin

Fillellipse(x, random(50)+40,random(40),random(20));

Случайное построение эллипса

Delay(2500);

Пауза в выполнении

End ;

Setcolor(3);

Дождь с помощью линий

X:=120;

Repeat

Line(x,100,x+20,random(120)+120);

Линии случайной длины

Delay(2300);

Пауза в выполнении

X:=x+10;

Увеличение х на 10

Until x>400;

Забор с контуром и фоном

X:=100;

While xDo

Begin

Setcolor(15);

Rectangle(x-2,258,x+32,372);

Контур прямоугольника

Setfillstyle(random(10)+1,random(16)+3);

Bar(x,260,x+30,370);

Фон прямоугольника

X:=x+40; End ;

Нечто зеленое и дом

For y:=400 Downto 200 Do

Begin

Setcolor(2);

Установка зеленого цвета

Line(random(100)+100,y, random(200),y);

Delay(2000);

Пауза в выполнении

Setcolor(6);

Установка коричневого цвета

Line(500,y,620,y); End ;