Выведите таблицу, заполненную символами "*", пропустив клетки, в которых обе координаты являются нечетными - Free Pascal
Формулировка задачи:
Выведите на экран таблицу 20х20, заполненную символами "*", пропустив при этом клетки, в которых сразу обе координаты являются нечетными.
Решение задачи: «Выведите таблицу, заполненную символами "*", пропустив клетки, в которых обе координаты являются нечетными»
textual
Листинг программы
const n=20; var i,j:byte; begin for i:=1 to n do begin for j:=1 to n do if odd(i)and odd(j) then write(' ') else write('*'); writeln; end; readln end.
Объяснение кода листинга программы
- В первой строке объявляется константа
n
равная 20, она будет использоваться для ограничения размеров таблицы. - Далее объявляются две переменные
i
иj
типаbyte
с инициализацией значений 1. - Затем в двойном цикле
for
происходит проход по всем ячейкам таблицы. - Внутри цикла проверяется условие
odd(i)and odd(j)
, если оба значенияi
иj
нечетные, то выводится пробел, иначе выводится символ*
. - После завершения внутреннего цикла, выводится символ
*
, для перехода на следующую строку используется функцияwriteln
. - В конце программы вызывается функция
readln
, предназначенная для чтения символа или строки с клавиатуры.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д