Нарисовать квадрат, который постоянно менянт цвет - Turbo Pascal

Формулировка задачи:

Нарисовать квадрат , который постоянно менянт цвет а когда нажимаешь любую клавишу прекращает.

Решение задачи: «Нарисовать квадрат, который постоянно менянт цвет»

Листинг программы

uses graph,crt;
var x,y,a,i:integer;
begin
randomize;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
a:=y div 2;
outtextXY(x-100,10,'Stop any key(no Enter)');
repeat
i:=2+random(14);
setfillstyle(1,i);
setcolor(i);
bar(x-a,y-a,x+a,y+a);
delay(500);
until keypressed;
cleardevice;
setcolor(15);
outtextXY(x-50,y,'Press Enter');
readln
end.

Объяснение кода листинга программы

В начале кода подключаются необходимые библиотеки graph и crt.
Переменные x, y, a и i объявляются как целочисленные.
Функция randomize вызывается для инициализации генератора случайных чисел.
Функция initgraph(x, y, ``) вызывается для инициализации графического окна, где x и y - координаты верхнего левого угла окна, а пустая строка - название графического окна.
Переменная x вычисляется как половина максимальной x-координаты.
Переменная y вычисляется как половина максимальной y-координаты.
Переменная a вычисляется как y делить на 2.
С помощью функции outtextXY(x-100,10,'Stop any key(no Enter)') выводится текст в верхней левой части окна, который предупреждает пользователя о необходимости нажатия любой клавиши, кроме Enter.
В цикле repeat...until выполняется следующая последовательность действий:
- Переменная i инициализируется значением 2+random(14), что генерирует случайное число от 2 до 17.
- С помощью функции setfillstyle(1,i) устанавливается стиль заполнения барами на 1 (т.е. сплошной цвет) и цвет i (который был случайно сгенерирован).
- С помощью функции setcolor(i) устанавливается цвет барок на i (который был случайно сгенерирован).
- Функция bar(x-a,y-a,x+a,y+a) рисует прямоугольник между координатами (x-a,y-a) и (x+a,y+a).
- С помощью функции delay(500) задерживается выполнение программы на 500 миллисекунд.
После завершения цикла keypressed? выводится сообщение 'Press Enter' с помощью функции outtextXY(x-50,y,'Press Enter') и функция readln() вызывается для чтения ввода пользователя.