Графы.паскаль

[Krigan]

Нужно нарисовать прыгающего на месте смешарика..
for i:=1 to 10 do
circle (15,y+140,10);
circle (15,y+130,5);
circle (25,y+130,10);
circle (30,y+140,7);
circle (10,y+140,7);
circle (17,y+140,5);
circle (22,y+140,5);
repeat
Delay(200);
cleardevice;
y:=y+k
y:=y-k
until y>639
closegraph


Проверьте пожалуйста все ли правильно,мне говорят что я где-то ошибся..(

[NetSpace]

Я обычно ещё в начале программы графику подключаю:

gd:=DETECT;
initgraph(gd,gm,'E:\PROGRAM\TP70\BGI');//тут путь к файлу BGI свой пропишите

[Krigan]

Сообщение от NetSpace

Я обычно ещё в начале программы графику подключаю:

да это ясно,я спрашиваю как сделать чтобы он прыгал вверх и вниз на месте?..

[invizor]

1)сделай b:boolean; true- если в воздухе, false если на земле-по умолчанию false и char c;
2)Сделай в каждом цикле
c:=readkey;
if (c=#32)and(not b) then b:=true;
if b then y=round(v_0*t-g*t*t/2);
if y<=0 then
begin
b:=false;
y:=0;
end;
t-время, коэффициенты v_0, g подберешь опытным путем