Тема урока: ЦИКЛИЧЕСКИЙ АЛГОРИТМ

Цель урока: - Научить писать программу моделирования движения.

План урока: 1. Постановка задачи

2. Программа с пояснениями

3. Набор программ на компьютере

Ход урока:

Задача: Написать программу движение окружности и изменения её движения при
столкновении с границами окна.

Программа

Пояснение

Uses GraphABC, Crt;

Var x,y,dy,dx: integer;

координаты окружности и приращения

BEGIN

Rectangle(0,0,640,400);

рамка на экране

x:=300; y:=200;

начальные координаты центра окружности

dx:=10;

величина перемещения по x

dy:=10;

величина перемещения по y

Repeat

Цикл пост. условие

SetpenColor(clblack);

цвет окружности черный

SetBrushColor(clblack);

цвет круга черный

Circle(x,y,10);

рисование окружности

if y>=370 then dy:=-10;

нижний край

if y<=25 then dy:=10;

верхний край

if x>=620 then dx:=-10;

правый край

if x<=25 then dx:=10;

левый край

Delay(100);

пауза

SetpenColor(clwhite);

цвет окружности белый

SetBrushColor(clwhite);

цвет круга белый

Circle(x,y,10);

рисование окружности

x:=x+dx; y:=y+dy;

расчет новых координат

Until KeyPressed;

До тех пор пока не будет нажата клавиша

END.

Задача: Написать программу движения автомобиля с подсветкой дороги фарами.

Uses CRT,GraphABC;

Var u: integer;

переменная цикла

BEGIN

floodfill(1,1,clnavy);

темно-синий цвет фона

setbrushcolor(clsilver);

серебристый цвет

fillrect(1,305,640,310);

рисование дороги

u:= 1;

начальное значение

While u<=640 do

цикл до конечного значения

begin setbrushcolor(clmaroon);

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

rectangle(20+u,230,80+u,270);

кабина машины

setbrushcolor(clbrown);

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

fillrect(10+u,255,120+u,285);

кузов машины

setbrushcolor(cldarkgray);

темно-серый цвет

circle(30+u,290,15);

колесо заднее (левое)

circle(90+u,290,15);

колесо переднее (правое)

setpencolor(clyellow);

желтый цвет

line(121 + u,260,160 + u,300);

свет фар

line( 160 + u,300,200 + u,300);

line(200 + u,300,121 + u,260);

floodfill(180 + u,299,clyellow);

заливка области освещения фарой

delay(100);

паузы в движении машины

setbrushcolor(clnavy);

темно-синий цвет

fillrect(10+u,200,210 + u,305);

очистка места расположения машины

u:=u+3; end;

изменение шага движения

END.

Задача: Написать программу управления движением шарика-круга.

USES GRAPHABC,CRT;

Var x,y : Integer;

c: CHAR;

символьная переменная

BEGIN

x:=300; y:=200;

координаты круга

Setbrushcolor(clblack);Circle(x,y,20);

черный шарик-круг

Repeat

c:=readkey;

чтение значения с клавиатуры

Case c of

выбор

#72: y:=y-1;

движение вверх

#80: y:=y+1;

движение вниз

#75: x:=x+1;

движение вправо

#77: x:=x-1;

движение влево

end;

Setpencolor(clwhite);

белый цвет окружности

Setbrushcolor(clwhite); Circle(x,y,20);

белый цвет круга

Setbrushcolor(clblack); Circle(x,y,20);

черный цвет круга

Until c=#27;

Нажатие клавиши ESC

END.

Задача: Написать программу часов

Uses GraphABC, Crt;

Const pi=3.14;

Var n,y,x,a,b,i: integer;

BEGIN

For n:=1 To 12 Do

begin a:=trunc(13-6*cos(n/6*pi)*2);

b:=trunc(38+18*sin(n/6*pi)*1.7);

gotoxy(b,a); write(n); end;

repeat

i:=-8;

repeat

SetpenColor(clNavy);

line( 300,200, 300+round(180*cos(i/5)), 200+round(150*sin(i/5)));

delay(300);

SetpenColor(clwhite);

line( 300,200, 300+round(180*cos(i/5)), 200+round(150*sin(i/5)));

SetpenColor(clNavy); SetBrushColor(clred);

Circle(300+round(180*cos(i/5)), 200+round(150*sin(i/5)), 5);

SetbrushColor(clwhite);

i:=i+1;

until i>22;

until keypressed;

END.