как заставить шарик прыгать?

[alex(21)]

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

uses graph, crt;
var   d,r:integer;
       klavisha:=char;

procedure shar(x,y:integer);
begin
setcolor(magenta);
circle(x,y,30);
setfillstyle(1,red);
floodfill(x,y,magenta);
repeat
setcolor(0);
circle(x,y,30);
setfillstyle(1,0);
floodfill(x,y,0);
klavisha:=' ';
if keypressed then klavisha:=readkey;
if (klavisha='a') and (x>50) then x:=x-10;
if (klavisha='d') and (x<580) then x:=x+10;
setcolor(magenta);
circle(x,y,30);
setfill style(1,red);
floodfill(x,y,magenta);
until klavisha=#27;
end;

begin
d:=detect; initgraph(d,r,'');
line(0,432,640,432);
shar(500,400);
closegraph;
end.

[Stilet]

т.е. шарик в состоянии покоя. При нажатии на пробел он подпрыгивает и возвращается назад?

[alex(21)]

т.е. шарик в состоянии покоя. При нажатии на пробел он подпрыгивает и возвращается назад?

вы правильно поняли!

[Stilet]

Ну вот смотри. НАпример так:

uses graph,crt;
var d,r,x,y:integer;s:string;
c:char;gogo:byte;
begin
 d:=detect; initgraph(d,r,'');
 gogo:=0;d:=200;x:=GetMaxX div 2;y:=getMaxY-20;
 repeat
  if keypressed then c:=readkey;
  if c=#32 then gogo:=1;
  if gogo=1 then begin
   y:=y-d;d:=d div 2;
   if d<=1 then gogo:=2;
   x:=x+1;
  end;
  if gogo=2 then begin
   y:=y+10;
   x:=x+1;
   if y>=getmaxy-20 then gogo:=0;
  end;
  clearDevice;
  delay(1);
  circle(x,y,50);
until c=#27;
 closegraph;
end.

[Gapro]

Stilet Твой код не работаетЮ сейчас попробую че нить соорудить

[Gapro]

Вернее работает, но шарик внизу не останавливается и продолжает дальше падать

[alex(21)]

я хотел сделать так: линия, по ней с помощью клавиш "А" и "D" можно передвигать шар вправо и влево. при нажатии на клавишу пробел шар подпрыгивает и обратно падает на линию, после этого шаром вновь можно управлять

[sheka]

Сообщение от alex(21)

я хотел сделать так: линия, по ней с помощью клавиш "А" и "D" можно передвигать шар вправо и влево. при нажатии на клавишу пробел шар подпрыгивает и обратно падает на линию, после этого шаром вновь можно управлять

с учетом гравитации?

[sheka]

uses crt,graph;

const
     yl=350;
     Radius=20;
     step=5;
     zaderzhka=12;
     h=200;

var mem_shar:integer;
    shar:pointer;
    x,y:integer;

procedure init;
var GDriver,GMode:integer;
begin
     GDriver:=Detect;
     InitGraph(GDriver,GMode,'');
end;

procedure buff;
begin
     SetColor(Yellow);
     SetFillStyle(1,Yellow);
     PiesLice(Radius,Radius,0,360,Radius);
     mem_shar:=ImageSize(0,0,2*Radius,2*Radius);
     GetMem(shar,mem_shar);
     GetImage(0,0,2*Radius,2*Radius,shar^);
     ClearDevice;
end;

procedure draw(x,y:integer);
begin
     PutImage(x,y,shar^,XorPut);
end;

procedure jump;
begin
     for y:=yl-radius downto yl-radius-h do
         begin
         draw(x,y);
         draw(x,y-1);
         delay(((yl-radius)-y)*zaderzhka);
         end;
     for y:=yl-radius-h to  yl-radius do
         begin
         draw(x,y-1);
         draw(x,y);
         delay(((yl-radius)-y)*zaderzhka);
         end;
end;



begin
     init;
     buff;
     SetColor(White);
     SetLineStyle(0,0,1);
     line(0,yl,GetMaxX,yl);
     x:=round(GetMaxX/2);
     y:=yl-Radius;
     draw(x,y);
     repeat
           if KeyPressed then
              begin
              case readkey of
                   'a':if x-step>=0 then
                          begin
                          draw(x,y);
                          dec(x,step);
                          draw(x,y);
                          end;
                   'd':if x+step<=GetMaxX-2*Radius then
                          begin
                          draw(x,y);
                          inc(x,step);
                          draw(x,y);
                          end;
                   #32: jump;
                   #27: begin
                        CloseGraph;
                        halt;
                        end;
                   end;
              end;
     until False;
end.

[alex(21)]

sheka, это не совсем то что я хотел. запустив эту программу на экране появился шар, нажав на клавишу пробел шар поднимается вертикально вверх и остаётся там. после нажатия клавиши "А" шар двигается влево, а при нажатии на пробел от линии поднимается новый шар. на прыжок это не похоже!