Выведите таблицу, заполненную символами "*", пропустив клетки, в которых обе координаты являются нечетными - 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.

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

  1. В первой строке объявляется константа n равная 20, она будет использоваться для ограничения размеров таблицы.
  2. Далее объявляются две переменные i и j типа byte с инициализацией значений 1.
  3. Затем в двойном цикле for происходит проход по всем ячейкам таблицы.
  4. Внутри цикла проверяется условие odd(i)and odd(j), если оба значения i и j нечетные, то выводится пробел, иначе выводится символ *.
  5. После завершения внутреннего цикла, выводится символ *, для перехода на следующую строку используется функция writeln.
  6. В конце программы вызывается функция readln, предназначенная для чтения символа или строки с клавиатуры.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.6 из 5
Похожие ответы