Анимация

@marinakotenok · Регистрация: 03.05.2011

Студворк — интернет-сервис помощи студентам

У кого есть какая-нибудь анимация(с таймерами) напишите,пожалуйста(

@marshal · 19.05.2011, 15:03

Pascal

uses graphABC,crt;
var x,y,i,r:integer;s:string;
begin
repeat
i:=i+1;
clrscr;setbrushcolor(clsilver);textout(500,10,'прошло '+IntToStr(i div 5)+' секунд');
textout(200,300,s);
setbrushcolor(clmaroon);
circle(x,y,16);
setbrushcolor(clblack);
circle(300,200,r);
x:=x+1;y:=y+1;r:=r+2;
if r>12 then s:='Впереди странное свечение';
if r>34 then s:='Оно притягивает нас!';
if r>100 then s:='Это кротовая нора!';
if r>150 then begin x:=x+10;y:=y+10;end;
delay(200);
until (x>=300-r)and(y<=200+r);
rectangle(1,1,1000,1000);
setfontsize(25);setbrushcolor(clred);
textout(250,200,'The end');
end.

Как-нибудь так?Или нужно именно модуль timers

@Puporev · 19.05.2011, 17:17

В папке Samples в Timers есть пример такой программы Timer2

@marinakotenok 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 4
		1
	Анимация 19.05.2011, 12:20. Показов 1745. Ответов 2 Метки нет (Все метки) У кого есть какая-нибудь анимация(с таймерами) напишите,пожалуйста( 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	19.05.2011, 17:17	3
	В папке Samples в Timers есть пример такой программы Timer2 0

Опции темы

Анимация

Решение