Вывести на экран изображение шахматной доски - PascalABC.NET

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

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

Решение задачи: «Вывести на экран изображение шахматной доски»

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

var n,i,j:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(n-i+1+j)mod 2=0 then write('*':2)
    else write(' ':2);
   end;
  writeln;
 end;
end

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

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

Объявляются три переменные: n, i, j (1) типа integer (целое число).
Пользователю предлагается ввести значение переменной n с помощью функции readln(n) (2).
С помощью двух вложенных циклов for (3) происходит вывод на экран символов, формирующих шахматную доску.
Если (n-i+1+j) mod 2 = 0, то выводится символ * (4), иначе выводится пробел (5).
После завершения второго вложенного цикла выводится символ новой строки, с помощью функции writeln(6).
После завершения внешнего цикла выводится символ новой строки, с помощью функции writeln(7).
Код завершается, программа готова к следующему запуску.