Програми за проста анимация

{ Движение на точка (представена с малка окръжност) по хоризонтала }

program Running_Ball;

uses Crt, Graph;

var

c:char;

x,y:integer;

const

xl:integer=60;

xr:integer=570;

procedure Initialize; { Инициализира графичната система }

var GraphDriver, GraphMode, ErrorCode:integer;

begin

GraphDriver:=Detect;

InitGraph(GraphDriver, GraphMode, 'c:bpbgi');

ErrorCode:=GraphResult;

if ErrorCode <> grOK then

begin

Writeln('Графична грешка', GraphErrorMsg(ErrorCode));

Halt(1);

end;

end;

begin

Initialize;

Circle(xl,100,5); readln;

for x:=xl to xr do

begin

SetColor(GetMaxColor);

Circle(x,100,5);

Delay(20);

SetColor(0);

Circle(x,100,5);

end;

readln;

CloseGraph;

end.

=================================================================================

{ Пример за анимация с междинни състояния }

program InBetweens;

uses Graph, Crt;

const

Length=5; { Брой върхове на многоъгълника }

type

ArrayType=array[1..Length]of PointType;

const

NumSteps:integer=100;

StartPoints:ArrayType=

((x:0;y:0),(x:100;y:0),(x:100;y:20),