Создание четырех окон разного цвета, которые появляются по кругу с небольшой задержкой - Turbo Pascal

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

Создание четырех окон разного цвета, которые появляются по кругу с небольшой задержкой. В это время играет мелодия.

Решение задачи: «Создание четырех окон разного цвета, которые появляются по кругу с небольшой задержкой»

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

uses crt;
procedure okno(x,y,c,k:integer);
begin
window(x,y,x+11,y+7); {окно 12х8}
textbackground(c);
textcolor(15);
clrscr;
gotoXY(7,4);
write(k);
end;
var i,j,k,c:byte;
begin
textbackground(0);
clrscr;
k:=0;{номер окна}
c:=0;{его фон}
for j:=1 to 3 do
if odd(j) then{нечетные столбцы сверху вниз}
for i:=1 to 3 do
 begin
  k:=k+1;
  c:=c+1;
  if c=8 then c:=1;
  okno(1+(j-1)*12,1+(i-1)*8,c,k);
 end
else {четные снзу вверх}
 for i:=3 downto 1 do
  begin
  k:=k+1;
  c:=c+1;
  if c=8 then c:=1;
  okno(1+(j-1)*12,1+(i-1)*8,c,k);
 end;
readln
end.

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

В начале кода подключается библиотека crt, которая предоставляет функции для работы с окнами и экраном.
Создается процедура okno, которая принимает четыре параметра: x, y, c и k. Она создает окно на указанных координатах размером 12х8, устанавливает цвет фона окна на c и цвет текста на 15, очищает экран и выводит значение переменной k.
Создается переменная k типа byte и инициализируется значением 0.
Создается переменная c типа byte и инициализируется значением 0.
Запускается цикл, который повторяется три раза. Для каждого раза цикла выполняется следующая последовательность действий:
- Устанавливается фон экрана на 0.
- Очищается экран.
- Значение переменной k увеличивается на 1.
- Значение переменной c увеличивается на 1.
- Если значение переменной c равно 8, то значение переменной c сбрасывается на 1.
- Вызывается процедура okno с параметрами, соответствующими текущему разуму цикла.
После завершения цикла экран очищается и выводится значение переменной k.
Конец программы.