TurboPascal graph - перемещение прямоугольника

[zhenka619]

Вот код, надо что бы двигался прямоугольник , не пойму почему не работает =( Заранее спасибо

    Program graphika1;
    uses crt, graph;
    var gd, gm, ax, ay, bx, by, z :integer;
    color: byte;
    ch : char;
    begin
    ax:=200;
    ay:=200;
    bx:=400;
    by:=400;
    clrscr;
    gd:=detect;
    initgraph (gd,gm,' ');
    repeat
    cleardevice;
    clrscr;
    rectangle(bx,by,ax,ay);
    if keypressed then begin
    ch:=readkey;
    case ch of
    's':begin ay:=ay+30;
              by:=by+30;
              end;
   'w':begin ay:=ay-30;
             by:=by-30;
             end;
   'a':begin ax:=ax-30;
             bx:=bx-30;
             end;
   'd':begin ax:=ax+30;
             bx:=bx+30;
             end;
   end;
   end;
   delay(100);

   until ch=#27
  end.

[Serge_Bliznykov]

Вот код, надо что бы двигался прямоугольник , не пойму почему не работает =( Заранее спасибо

по всей видимости, не вы писали данный код?!

Движется прямоугольник. нажимайте клавиши s w a d
для перемещения.

p.s. только из-за cleardevice моргает картинка так, что мама не горюй!!


я бы примерно такой код предложил:

program graphika1;
uses crt, graph;
var gd, gm, ax, ay, bx, by, z: integer;
  color: byte;
  ch: char;
begin
  ax := 200;
  ay := 200;
  bx := 400;
  by := 400;
  clrscr;
  gd := detect;
  initgraph(gd, gm, ' ');
  cleardevice;
  setcolor(2);
  rectangle(bx, by, ax, ay);
  repeat
    if keypressed then begin
      ch := readkey;
      if ch in ['s','w','a','d'] then 
      begin
        {сначала сотрём старый прямоугольник - выведем его цветом фона}
        setcolor(0);
        rectangle(bx, by, ax, ay);
        case ch of
          's': begin ay := ay + 30;
                     by := by + 30;
               end;
          'w': begin ay := ay - 30;
                     by := by - 30;
               end;
          'a': begin ax := ax - 30;
                     bx := bx - 30;
               end;
          'd': begin ax := ax + 30;
                     bx := bx + 30;
               end;
         end;
         {выведем в новой позиции прямоугольник}
         setcolor(2);
         rectangle(bx, by, ax, ay);
       end;
    end;
    delay(100);

  until ch = #27
end.