Анимация в PascalABC

Тема урока Анимация в Pascal ABC

Учитель информатики

МБОУ «Шыгырданская СОШ №1»

Батыревского района

Чувашской Республики

Феткуллова Гузел Минсеитовна

Цель урока:

Обобщить работу с графическими возможностями Pascal АВС ,

познакомить с возможностями программы Pascal АВС по созданию анимации.

Анимация – оживление объектов на экране

• SetPixel( X,Y, цвет ) - ________________________________ _______
• Line( X1,Y1,X2,Y2 ) –___________________________________ ________
• Rectangle( X1,Y1,X2,Y2 ) –_______________________________ __________
• Circle( X,Y, радиус )

________ ___________________________________

• FloodFill(x,y, цвет ) – __________________________________ ________

Экранная система координат

(6 40 ,0)

(0,0)

x

y

(0,4 80 )

program а ;

uses Crt, graphABC;

begin

circle( 10 0, 2 00,60);

end.

В Паскале нет команды движения. Как же заставить двигаться окружность?

нарисовали окружность 

стерли 

нарисовали в другом месте 

Чтобы у нас окружность стиралась

и рисовалась много раз

нам необходимо задать

цикл

Цикл – это многократное выполнение одинаковой последовательности действий

В языке Паскаль существует 3 вида циклов:

• 1) цикл с параметром или цикл типа  for ,
• 2) цикл с предусловием или цикл типа  while ,
• 3) цикл с постусловием или цикл типа  repeat ... until .

program h;

uses Crt, graphABC;

var x: integer;

begin

for x := 1 to 30 0 do

begin

circle( х+ 100,200,60);

end;

end.

program h;

uses Crt, graphABC;

begin

circle(100,200,60);

end.

гиперссылка

Delay (задержка) –в скобках, в качестве параметра передается величина (в миллисекундах) необходимой задержки

Например DELAY (20)

Clearwindow - стирает, стереть – значит

нарисовать ее на том же месте,

но цветом фона

program h;

uses Crt, graphABC;

var x: integer;

Begin

clearwindow;

for x := 1 to 30 0 do

begin

circle( х+ 100,200,60);

delay(100)

end;

end.

program h;

uses Crt, graphABC;

var x: integer;

begin

for x := 1 to 30 0 do

begin

circle( х+ 100,200,60);

delay(100)

end;

end.

гиперссылка

гиперссылка

program h;

uses Crt, graphABC;

var x: integer;

begin

for x:= 1 to 300 do

clearwindow;

Rectangle(x+10,10,x+160,90);

circle(x+100,300,60);

delay(100)

end.

гиперссылка

program h;

uses Crt, graphABC;

var x: integer;

begin

for x:= 1 to 300 do

clearwindow;

circle(x+100, 2 00,60);

FloodFill(x+100,200,clred);

delay( 50 )

end.

гиперссылка

program h;

uses Crt, graphABC;

var x: integer;

begin

for x:= 1 to 300 do

clearwindow;

circle( 5 00 - x, 2 00,60);

FloodFill(500-x,200,clred);

delay( 50 )

end.

гиперссылка

program h;

uses Crt, graphABC;

var x: integer;

begin

for y:= 1 to 300 do

clearwindow;

circle(100,y+ 2 00,60);

delay( 50 )

end.

гиперссылка

гиперссылка

Рефлексия

-сегодня я узнал…

-было интересно…

-было трудно…

-теперь я смогу…

-у меня получилось …

• -сегодня я узнал… -было интересно… -было трудно… -теперь я смогу… -у меня получилось …

-меня удивило …