Нарисуйте сетку 20х20, состоящую из разноцветных прямоугольных треугольников четырех видов, различающихся расп - Pascal ABC

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

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

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

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

uses graphABC;
const n=20;
procedure kvd(a,x,y:integer);
begin
rectangle(x,y,x+a,y+a);
line(x,y,x+a,y+a);
line(x+a,y,x,y+a);
floodfill(x+2,y+a div 2,clRandom);
floodfill(x+a-2,y+a div 2,clRandom);
floodfill(x+a div 2,y+2,clRandom);
floodfill(x+a div 2,y+a-2,clRandom);
end;
 
var a,x,y:integer;
begin
randomize;
setwindowsize(n*30,n*30);
centerwindow;
a:=windowwidth div n;
y:=0;
while y<=windowheight-a do
 begin
  x:=0;
  while x<=windowwidth-a do
   begin
    kvd(a,x,y);
    x:=x+a
   end;
  y:=y+a;
 end;
end.

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

В этом коде используется язык программирования Pascal ABC для рисования сетки 20x20, состоящей из разноцветных прямоугольных треугольников четырех видов, которые различаются по размеру. Код начинается с объявления константы n, которая равна 20, и процедуры kvd, которая будет рисовать каждый прямоугольный треугольник. В основной части кода объявляются три переменные a, x и y типа integer, которые используются для координат и размера треугольников. С помощью функции randomize инициализируется генератор случайных чисел. Функция setwindowsize устанавливает размер окна, а функция centerwindow центрирует окно на экране. Затем вычисляется размер a каждого треугольника путем деления ширины окна на n. В цикле while y<=windowheight-a происходит перебор всех строк сетки. В каждой строке в цикле while x<=windowwidth-a происходит перебор всех столбцов сетки. В каждой ячейке сетки вызывается процедура kvd, которая рисует треугольник. После завершения цикла x, y увеличивается на a, чтобы перейти к следующей строке/столбцу. В конце кода вызывается функция end, которая завершает выполнение программы.