Программа рисования "пульсирующей" окружности

Категория: Delphi/Pascal
2011-08-28 20:44:10
code: #pascal
  1. USES Crt, Graph;
  2. VAR
  3.  Gd, Gm : integer;
  4. BEGIN
  5.  Gd := Detect;
  6.  InitGraph(Gd, Gm, 'd:\prog\bp\bgi'); {здесь указывается путь к папке \bgi}
  7.  if GraphResult <> grOk then
  8.    Halt(1);
  9.  repeat
  10.    setcolor(random(10));
  11.    Circle(300, 200, 50);
  12.    delay(50)
  13.  until keypressed;
  14.  CloseGraph;
  15. END.
Поделиться:

Похожие статьи:

теги: консольное приложение, графика, окружность