Движение обычного круга по осям стрелками клавиатуры.

[mitmikha]

Помогите написать программу , что бы нарисовать круг и двигать его при помощи стрелок.

[mitmikha]

нашёл в инете

могли бы помочь с переводом на русский что она делает.

uses crt;
var i, x, y: integer;
  ch: char;

procedure sq(x, y, cl: byte);
var j, lx, ly, i: integer;
begin
  lx := 4; ly := 2;
  gotoxy(x, y);
  textcolor(cl);
  for i := 1 to ly do
    for j := 1 to lx do
    begin
      gotoxy(x + j - 1, y + i - 1);
      write('Ы');
    end;
end;
begin
  clrscr;
  x := 39; y := 12;
  sq(39, 12, 14);
  repeat
    ch := readkey;
    sq(x, y, 0);
    case ch of
      #72: y := y - 1;
      #80: y := y + 1;
      #75: x := x - 1;
      #77: x := x + 1;
    end;

    if x = 0 then x := 77;
    if x = 78 then x := 1;
    if y = 0 then y := 24;
    if y = 25 then y := 1;

    sq(x, y, 14);

  until ch = #27;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

помочь в чём именно?
Вы не знаете, как в графическом режиме круг нарисовать?
или как обрабатывать нажатия клавиш?
или (боюсь даже предполагать такое!!) Вы хотите, чтобы за Вас программу ПОЛНОСТЬЮ написали?

p.s. задачка элементарнейшая! Начните делать и всё у Вас получится!

ДОБАВЛЕНО
мой пост относится к Вашему первому сообщению...


ДОБАВЛЕНО
программка в текстовом режиме "рисует" прямоугольник в виде двух строчек буквами "Ы"
и перемещает его при нажатии клавиш управления курсора ("стрелками")