Pascal. Graph.

[Razorishe]

Добрый день уважаемые посетители форума. Мне нужно сделать чтобы при нажатии на стрелки "влево" "вправо" шарик перемещался по экрану соответственно. Вот то что получилось:

uses crt, graph;
var gd,gm,r,x,sv,sp,t:integer;
    c:char;
begin
 clrscr;
 r:=10;
 x:=200;
 initgraph(gd,gm,'');
 circle(x,250,r);
 {line(x,260,x,270);
 line(x,270,x-r,270);}
 sv:=10;   sp:=10;
 repeat
 c:=readkey;
 if c=#0 then
  begin
   c:=readkey;
   if c=#77 then
    begin
     cleardevice;
     circle(x+sp,250,r);
     t:=x+sp;
     sp:=sp+10;
    end;
   if c=#75 then
    begin
     cleardevice;
     circle(t-sv,250,r);
     sv:=sv+10;
    end;
  end;
 until c=chr(13);
end.

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

[Stilet]

Дык все работает. Шарик перемещается в нужные стороны.

Могу только так поправить:

uses crt, graph;
var gd,gm,r,x,sv,sp,t:integer;
    c:char;
begin
 clrscr;
 r:=10;
 x:=200;
 initgraph(gd,gm,'');
 circle(x,250,r);
 {line(x,260,x,270);
 line(x,270,x-r,270);}
 sv:=10;   sp:=10;
 repeat
 c:=readkey;
 if c=#0 then
  begin
   c:=readkey;
   if c=#77 then inc(x,10);
   if c=#75 then dec(x,10);
  end;
     cleardevice;
     circle(x,250,r);
 until c=chr(13);
end.

[Razorishe]

Вот теперь все работает прекрасно, спасибо. Немогли бы вы пояснить, что делют INC и DEC ?

[Stilet]

Немогли бы вы пояснить, что делют INC и DEC ?

Инкремент и декремент - читай в хелпе.

[Razorishe]

Все прочитал понял, благодарю еще раз. Возник еще вопрос: допустим я нарисовал рисунок в Graph, каким образом его можно перемещать с помощью все тех же стрелочек. Просто в рисунке много различных фигур и линий, не задавать же каждую кординату перменной и после этого увеличивать или уменьшать значение координат.

[Stilet]

Отрисовывай рисунок одной процедурой в которую передавай координаты точки опоры, относительно которой будут рисоваться элементы.

Соответственно позицию точки опоры и меняй при нажатиях

[Razorishe]

Принцип понятен, осталось изучить процедуры )) Спасибо.