Animasyonlar, program.

Lutfen çalıştırıp bakın arkadaşlar.

Program cizgifilm;

USES CRT, DOS, GRAPH, PRINTER;

Var GRAFIKSURUCU, GRAFIKKONUMU,

Radius, Grow, IncP, IncQ : Integer;

DecrP, DecrQ : Boolean;

Begin

GRAFIKSURUCU := Detect;

InitGraph(GRAFIKSURUCU, GRAFIKKONUMU, 'C:\TP\BGI');

if GraphResult <> grOk then

Halt(1);

Randomize;

SetColor(Random(15)+1);

For Radius := 1 to 600 do

Begin

Circle(GetMaxX Div 2, GetMaxY Div 2, Radius);

Delay(1);

End;

ClearViewPort;

SetTextJustify(230, GetMaxY Div 2);

OutTextXY(230,GetMaxY Div 2,'ikinciye hazir olun!');

Delay(1500);

ClearViewPort;

Grow := 0;

For Radius := 1 to 600 do

Begin

Circle(GetMaxX Div 2, GetMaxY Div 2, Radius);

Delay(1);

End;

ClearViewPort;

SetTextJustify(230, GetMaxY Div 2);

OutTextXY(230,GetMaxY Div 2,'sirada bir elips var');

Delay(1500);

ClearViewPort;

Grow := 0;

For Radius := 1 to 600 do

Begin

Inc(Grow);

Ellipse(GetMaxX Div 2,

GetMaxY Div 2, 0, 360,

GetMaxX Div 2, Radius + Grow);

Delay(1);

End;

ClearViewPort;

SetTextJustify(230, GetMaxY Div 2);

OutTextXY(230,GetMaxY Div 2,'Peki ya simdi?'); Delay(1000);

ClearViewPort;

For Radius := 1 to 320 do

Begin

Inc(IncQ, 1);

Inc(IncP, (IncQ Div 4));

PieSlice(GetMaxX Div 2,

GetMaxY Div 2, 0 + IncP, 2 + IncP, 240);

PieSlice(GetMaxX Div 2,

GetMaxY Div 2, 180 + IncP, 182 + IncP, 240);

PieSlice(GetMaxX Div 2,

GetMaxY Div 2, 90 + IncP, 92 + IncP, 240);

PieSlice(GetMaxX Div 2,

GetMaxY Div 2, 270 + IncP, 272 + IncP, 240);

PieSlice(GetMaxX Div 2,

GetMaxY Div 2, 45 + IncP, 47 + IncP, 240);

PieSlice(GetMaxX Div 2,

GetMaxY Div 2, 135 + IncP, 137 + IncP, 240);

PieSlice(GetMaxX Div 2,

GetMaxY Div 2, 225 + IncP, 227 + IncP, 240);

PieSlice(GetMaxX Div 2,

GetMaxY Div 2, 315 + IncP, 317 + IncP, 240);

Delay(10);

ClearDevice;

End;

SetTextJustify(230, GetMaxY Div 2);

OutTextXY(220,GetMaxY Div 2,'Umarim beyenmissinizdir, :)');

Delay(1500);

ClearDevice;

Readln;

CloseGraph;

end.