Конспект урока на тему “Циклы. Программирование рисунка”
Тема урока: Циклы. Программирование рисунка.
Цель Урока : – Показать использование функций графики в циклах.
План Урока : 1. Алгоритм построение рисунка. Сценарий рисунка.
Программа рисунка для ЭВМ
Ход Урока :
Var x, i, y, r:integer; | |
BEGIN | |
Floodfill(1,1,clnavy); | Темно-синий фон |
Рисование тучи | |
Randomize; | |
Setbrushcolor(cllightgray); | Светло-серый круг |
Setpencolor(cldarkgray); | Темно-серая окружность |
For x:=100 To 400 Do | |
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 | |
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 ; |
(2 votes, average: 5.00 out of 5)Твір на тему: Конспект урока на тему “Циклы. Программирование рисунка”
Конспект урока на тему “Циклы. Программирование рисунка”