Правила форума
Window.PASЯзык:
Русский
English
{ Пример программы для процедуры Window }
uses Crt;
var
X, Y : Byte;
begin
TextBackground(Black); { Очищаем экран }
ClrScr;
repeat
X := Succ(Random(80)); { Рисуем произвольные окна }
Y := Succ(Random(25));
Window(X, Y, X + Random(10), Y + Random(8));
TextBackground(Random(16)); { Произвольными цветами }
ClrScr;
until KeyPressed;
end.
var
X, Y : Byte;
begin
TextBackground(Black); { Очищаем экран }
ClrScr;
repeat
X := Succ(Random(80)); { Рисуем произвольные окна }
Y := Succ(Random(25));
Window(X, Y, X + Random(10), Y + Random(8));
TextBackground(Random(16)); { Произвольными цветами }
ClrScr;
until KeyPressed;
end.
::
::
::
