- ЦИКЛИЧЕСКИЙ АЛГОРИТМ

Конспект урока «ЦИКЛИЧЕСКИЙ АЛГОРИТМ» по информатике

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

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

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

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

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


Ход урока:

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


Программа

Пояснение

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

верхний край

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

правый край

if x

левый край

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 udo

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

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.



Здесь представлен конспект к уроку на тему «ЦИКЛИЧЕСКИЙ АЛГОРИТМ», который Вы можете бесплатно скачать на нашем сайте. Предмет конспекта: Информатика Также здесь Вы можете найти дополнительные учебные материалы и презентации по данной теме, используя которые, Вы сможете еще больше заинтересовать аудиторию и преподнести еще больше полезной информации.

Информация о конспекте

Ваша оценка: Оцените конспект по шкале от 1 до 5 баллов
Дата добавления:3 апреля 2016
Категория:Информатика
Поделись с друзьями:
Скачать конспект