Движение окружности

[What's_That?]

Прошу посмотреть на это произведение выполненное в жанре быдло-кода :

uses crt,graph;
var x,y,d,g,r,j,color:integer;
c:char;
begin
d:=detect;
initgraph(d,g,'');
randomize;
x:=random(450);
y:=random(300);
r:=50;
circle(x,y,r);
clrscr;
circle(x,y,r);
repeat
c:=readkey;
case c of
#72: y:=y-5;
#77: x:=x+5;
#80: y:=y+5;
#75: x:=x-5;
end;
clrscr;
circle(x,y,r);
until not keypressed;
readln;
closegraph;
end.

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

[Alex11223]

Может быть потому что при вводе с:=readkey одновременно выполняется и условие завершения цикла?

А зачем 2 раза?

circle(x,y,r);
clrscr;
circle(x,y,r);

[What's_That?]

2 раза - так задумано)) цвет фона после clrscr меняется,пробовал изначально выставлять как серый - не получилось,идентификатор не признает...а так...попробую выставить условие завершения цикла на #13 =)

[What's_That?]

Спасибо,все работает! Судя по всему,я действительно быдло-кодер =\

[LeonSoftwares]

Быдло-кодер --- Убило вы программист или кто???

[What's_That?]

я пока никто...))

[What's_That?]

uses crt,graph;
   procedure BindB(x,y:integer);
     begin
        delay(65535);
        randomize;
        x:=random(350);
        y:=random(200);
        Rectangle(x,y,x+20,y+20);
     end;
   var x,y,d,g,r,color,x1,y1:integer;
     c:char;
   begin
     d:=detect;
     initgraph(d,g,'');
     randomize;
        x:=random(450);
        y:=random(300);
        r:=30;
     circle(x,y,r);
     clrscr;
     circle(x,y,r);
        repeat
           c:=readkey;
             case c of
              #72: y:=y-5;
              #77: x:=x+5;
              #80: y:=y+5;
              #75: x:=x-5;
           end;
           clrscr;
           circle(x,y,r);
           BindB(x1,y1);
        until c=#13;
      closegraph;
   end.

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

[mss]

Стесняюсь спросить, в каком дебильном ликбезе и каких дебилов учат так дебильно писать такой быдлокод ?

[Alex11223]

mss, а как надо писать быдлокод?

[What's_That?]

mss,а тяжело объяснить,в чем именно мои ошибки,тяжело начать выпрямлять мне руки при помощи соответствующего поста(постов) в одну из моих тем?