Конспект урока на тему «Циклы. Программирование рисунка»
Тема урока: Циклы. Программирование рисунка.
Цель Урока : — Показать использование функций графики в циклах.
План Урока : 1. Алгоритм построение рисунка. Сценарий рисунка.
Программа рисунка для ЭВМ
Ход Урока :
Темно-синий фон | |
Рисование тучи | |
Randomize; | |
Setbrushcolor ; | Светло-серый круг |
Setpencolor ; | Темно-серая окружность |
For x:=100 To 400 Do | |
Ellipse | Эллипс разного размера |
Рисование дождя | |
Setpencolor ; | Серый цвет |
X:=120; | |
Repeat | |
Line +120); | Линии дождя |
X:=x+10; | |
Delay ; | |
Until x>400; | |
Рисование стены дома | |
X:=350; | |
Y:=360; | |
Repeat | |
Repeat | |
Setpencolor ; | Кирпичный цвет |
Fillrect ; | Блоки дома по вертикали |
Setpencolor ; | Светло-серый цвет |
Rectangle ; | Раствор между кирпичами |
Y:=y-10; | |
Delay | |
Until y | |
Y:=360; x:=x+50; | И по горизонтали |
Until x>500; | |
Рисование украшение на Дом виде кружков | |
Y:=200; r:=15; | |
Repeat | |
Setbrushcolor ; | Оливковый цвет |
Circle ; | Круги слева |
Circle ; | Круги справа |
Y:=y+20; | Увеличение Y вниз |
R:=r-2; | Уменьшение радиуса |
Delay ; | Пауза |
Until y>280; | |
Рисование крыши | |
X:=10; | |
For y:=200 Downto 100 Do | |
Begin | |
Setpencolor ; | |
Line ; | Трапеция |
X:=x+1; | |
Delay ; | |
End ; | |
Рисование окна | |
For y:=300 Downto 230 Do | |
Begin | |
Setpencolor ; | Желтый цвет |
Fillrect ; | Фон окна |
Delay ; | |
End ; | |
Рисование ступенек | |
X:=520; y:=330; | |
While X | |
Begin | |
Setbrushcolor ; | Небесно-голубой цвет |
Rectangle ; | Ступенька |
X:=x+30; | |
Y:=y+10; | |
Delay ; | |
End ; | |
Рисование фонаря | |
For r:=1 To 9 Do | |
Begin | |
Setpencolor ; | Фиолетовый цвет |
Arc ; | Фонарь из кругов |
Line ; | Подставка |
Delay ; | |
End; | |
Рисование забора | |
X:=50; | |
While xDo | |
Begin | |
Setpencolor ; | Красный цвет |
Rectangle ; | Контур забора |
Setbrushcolor ; | Серый цвет |
Fillrect ; | Фон забора |
X:=x+40; | |
Delay ; | |
End ; | |
Рисование Елки | |
For I:=120 Downto 0 Do | |
Begin | |
Setpencolor ; | Зеленый цвет |
Line ,260+i,80-random ,260+i); | Ветки елки |
Setpencolor ; | Коричневый цвет |
Line ; | Ствол елки |
Setpencolor ; | Салатный цвет |
Line ,250+i,80+random ,250+i); | Ветки елки |
Delay ; | |
End ; | |
END. |
Похожая картина в редакторе ТР
Цвет фона | |
Setcolor ; | Цвет эллипса |
Setfillstyle ; | Стиль |
Эллипсовидные тучи | |
For x:=100 To 400 Do | |
Begin | |
Fillellipse +40,random ,random ); | Случайное построение эллипса |
Delay ; | Пауза в выполнении |
End ; | |
Setcolor ; | |
Дождь с помощью линий | |
X:=120; | |
Repeat | |
Line +120); | Линии случайной длины |
Delay ; | Пауза в выполнении |
X:=x+10; | Увеличение х на 10 |
Until x>400; | |
Забор с контуром и фоном | |
X:=100; | |
While xDo | |
Begin | |
Setcolor ; | |
Rectangle ; | Контур прямоугольника |
Setfillstyle +1,random +3); | |
Bar ; | Фон прямоугольника |
X:=x+40; End ; | |
Нечто зеленое и дом | |
For y:=400 Downto 200 Do | |
Begin | |
Setcolor ; | Установка зеленого цвета |
Line +100,y, random ,y); | |
Delay ; | Пауза в выполнении |
Setcolor ; | Установка коричневого цвета |
Line ; End ; |