01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Модуль GRAPH и динамическая память / MOVMENT

Program Movment;
Uses Crt,Graph;
var
p:pointer;
Gd,Gm,i,x,y:integer; c:char; f:boolean;
BEGIN
Gd:=Detect;
InitGraph(Gd,Gm,' ');
ClearDevice;
SetBkColor(11);
SetColor(1);
SetFillStyle(green,1);
Circle(25,60,20);
FloodFill(25,60,1);

GetMem(p,ImageSize(5,40,65,80));
GetImage(5,40,65,80,p^);
ClearDevice;
c:='h';
{ REPEAT} While c<>' ' do begin
f:=false;
C:=READKEY;
Case c of
#81 : exit ;
else
For i:=1 to 720 do
begin
X:=320+TRUNC(100*SIN(PI*i/360));
Y:=240+TRUNC(100*COS(PI*i/360));
PutImage(x,y,p^,1);
Delay(10);
PutImage(x,y,p^,1);
end;
end;
{ UNTIL f;} end;
readln;
CloseGraph;
end.