forum.boolean.name - хелп моему другу

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - хелп моему другу (http://forum.boolean.name/showthread.php?t=4589)

хелп моему другу

"от программа должна каждые пять секунлд выводить круг в рэндомном месте экрана. в этоже время должен прверяться нажатие на клавишу. постоянно. как реализовать все это вместе?"

орфография сохранена

Re: хелп моему другу

Типа так:

Код:

 

Program RandomCircle;

Var key, ms, wi, hi: integer;

Begin

 ms:=0; wi:=GetWidth; hi:=GetHeight;  // в ms - милисекунды, wi - ширина, hi - высота экрана

 repeat            // Бесконечный цикл

  if ms = 5000 then        // Если прошло 5 секунд - пора рисовать круг

       begin

        DrawEllipse(Random(wi-10), Random(hi-10), 10,10); // Рисуем круг

        Repaint; ms:=0;

       end;

  Delay(50); key:=GetKeyClicked;   // Небольшая задержка и опрос клавы

  if key=53 then break;      // Если нажали 5 - выход из программы

  ms:=ms+50;

 until false;

End.