Как нарисовать в паскале лист в клетку 1000 на 1000

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal, который рисует лист в клетку на экране размером 1000 на 1000:

program DrawLeaf;
uses Graph;
var
gd, gm: Integer;
i, j: Integer;
begin
// инициализация графического режима
gd := Detect;
InitGraph(gd, gm, '');
// рисуем лист в клетку
for i := 0 to 999 do
begin
for j := 0 to 999 do
begin
if (i mod 100 = 0) or (j mod 100 = 0) then
PutPixel(i, j, White) // рисуем клетку
else
PutPixel(i, j, Green); // рисуем лист
end;
end;
// ждем нажатие клавиши перед закрытием окна
Readkey;
CloseGraph;
end.

Программа использует библиотеку Graph для работы с графикой в Pascal. Код рисует лист в клетку на экране размером 1000 на 1000 пикселей. Перед закрытием окна программа ожидает нажатия клавиши.