Herm
Сообщений: 218
Оценки: 0
Присоединился: 2008-08-15 21:08:09.063333
|
Program He;
Uses Graph,crt;
var gm,gd:integer;
p,d:pointer;
size,size1:integer;
x1,y1,x2,y2:integer;
kl:char;keypressed:boolean;
begin
initgraph(gd,gm,' ');
Setcolor(yellow);
Circle(20,20,10);
Circle(60,20,10);
Line(30,20,50,20);
Setfillstyle(1,yellow);
floodfill(20,20,yellow);
floodfill(60,20,yellow);
Size:=imagesize(0,0,100,100);
Getmem(p,size);
Getimage(0,0,70,70,p^);
cleardevice;
x2:=50;
y2:=50;
kl:=readkey;
While kl<>#27 do
begin
Case kl of
#80:y2:=y2+1;
#72:y2:=y2-1;
#77:x2:=x2+1;
#75:x2:=x2-1;
end;
cleardevice;
Putimage(x2,y2,p^,1);
kl:=readkey;
end;
readln;
CloseGraph;
end.
|