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

Тема урока: Циклы. Программирование рисунка.

Цель Урока : — Показать использование функций графики в циклах.

План Урока : 1. Алгоритм построение рисунка. Сценарий рисунка.

Программа рисунка для ЭВМ

Ход Урока :

Uses Crt, GraphABC;

Var x, i, y, r:integer;

BEGIN

Floodfill ;

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

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

Randomize;

Setbrushcolor ;

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

Setpencolor ;

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

For x:=100 To 400 Do

Ellipse

+10,x+50,random );

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

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

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.

Похожая картина в редакторе ТР

Uses Crt, Graph;

Var x, i, y, r:integer;

BEGIN

I:=detect;

InitGraph ;

Randomize ;

Setbkcolor ;

Цвет фона

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 ;

1 звезда2 звезды3 звезды4 звезды5 звезд (1 votes, average: 5,00 out of 5)


Сейчас вы читаете: Конспект урока на тему «Циклы. Программирование рисунка»