Скачиваний:
283
Добавлен:
04.03.2014
Размер:
1.8 Кб
Скачать
Program Movment_V;
Uses Crt,Graph;
var
p:pointer;
Gd,Gm,i,x,y,s,j,k:integer; c:char; f:boolean;
BEGIN
Gd:=Detect;
InitGraph(Gd,Gm,' ');
ClearDevice;
{ђЁб㥬 ®ЎкҐЄв}

SetColor(15); SetFillStyle(8,8);


Circle(41,119,40); Circle(41,119,20); Circle(41,119,5);
Circle(150,119,40); Circle(150,119,20); Circle(150,119,5);

FloodFill(20,119,15);
FloodFill(120,119,15);

SetColor(14);
SetFillStyle(5,12);
Rectangle(81,80,110,140);
FloodFill(90,119,14);

SetColor(13);
SetFillStyle(11,3);
Rectangle(1,60,200,79);
FloodFill(20,61,13);
SetColor(11);
SetFillStyle(7,11);
Rectangle(70,15,130,60);
FloodFill(105,30,11);

S:=ImageSize(1,14,200,160);
GetMem(p,s);
GetImage(1,14,200,160,p^); j:=0; x:=14;
ClearDevice;
SetColor(1);
Line(0,1,640,1);
Line(0,160,640,160);
Line(0,320,640,320);
Line(0,479,640,479);

For i:=1 to 500 do begin
j:=j+5;
{ If x=0 then x>400;
If y>640 then y:=1;}
If j>440 then begin
x:=174;
j:=0;
end;
PutImage(j,x ,p^,1);
Delay(100);
PutImage(j,x ,p^,1);

end;
ReadLn;
end.


Соседние файлы в папке Модуль GRAPH и динамическая память