Program Snegovik;
Uses Graph;
Var
P:Pointer;
Size:Word;
Gd,Gm,i:integer;
Begin
Gd:=Detect;
InitGraph (Gd,Gm, '');
Setbkcolor(0);
[COLOR="Red"]For i:=25 to 200 do[/COLOR]
Begin
Setcolor (yellow);
Circle (150,150,30); {колобок}
setcolor(blue); {глаза}
Circle (140,140,3);
Circle (160,140,3);
Setcolor (red); {рот}
Line(140,160,160,160);
Size:=Imagesize(68,10,300,280);
Getmem(P,Size);
GetImage(68,10,300,280,P^);
[COLOR="Red"]For i:=5 to 300 do[/COLOR]
Begin
PutImage(i,i,P^, normalPut);
{Delay (200);}
end;
end;
readln;
CloseGraph;
End.
помогите по графике
Мне нужно было на рисовать движущегося колобка. Он движется,но бесконечно.... Помогите что не так???
Program Snegovik;
Uses Graph;
Var
P:Pointer;
Size:Word;
Gd,Gm,i:integer;
Begin
Gd:=Detect;
InitGraph (Gd,Gm, '');
Setbkcolor(0);
For i:=25 to 200 do
Begin
Setcolor (yellow);
Circle (150,150,30); {колобок}
setcolor(blue); {глаза}
Circle (140,140,3);
Circle (160,140,3);
Setcolor (red); {рот}
Line(140,160,160,160);
Size:=Imagesize(68,10,300,280);
Getmem(P,Size);
GetImage(68,10,300,280,P^);
For i:=5 to 300 do
Begin
PutImage(i,i,P^, normalPut);
{Delay (200);}
end;
end;
readln;
CloseGraph;
End.
Uses Graph;
Var
P:Pointer;
Size:Word;
Gd,Gm,i:integer;
Begin
Gd:=Detect;
InitGraph (Gd,Gm, '');
Setbkcolor(0);
For i:=25 to 200 do
Begin
Setcolor (yellow);
Circle (150,150,30); {колобок}
setcolor(blue); {глаза}
Circle (140,140,3);
Circle (160,140,3);
Setcolor (red); {рот}
Line(140,160,160,160);
Size:=Imagesize(68,10,300,280);
Getmem(P,Size);
GetImage(68,10,300,280,P^);
For i:=5 to 300 do
Begin
PutImage(i,i,P^, normalPut);
{Delay (200);}
end;
end;
readln;
CloseGraph;
End.
Я Паскаль знаю мало, но заметил в вашем коде (который, кстати, по правилам надо оформлять тегами CODE) что в обоих циклах вы используете в качестве счетчика цикла одну и ту же переменную i. Не думаю что это правильно. Возможно, что проблема в этом.
Код:
если проблема в том что внизу остается изображение, то возьмите область рисунка больше по X и Y
проблема в том,что колобок движется бесконечно,т. ею движение повторяется снова и снова.
пасиб