Даны натуральные k, m. Написать процедуры для вывода следующих фигур - Pascal ABC

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

Даны натуральные k, m. Написать процедуры для вывода следующих фигур: а) k - строк, m - столбцов, б) k - строк, m – половина разности длины двух любых соседних строк.

Решение задачи: «Даны натуральные k, m. Написать процедуры для вывода следующих фигур»

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

uses crt;
var k,m,i,j:byte;
begin
repeat
write('Введите количество строк от 3 до 20 k=');
readln(k);
until k in [3..20];
repeat
write('Введите количество столбцов от 3 до 20 m=');
readln(m);
until m in [3..20];
for i:=1 to k do
 begin
  for j:=1 to m do
  if (j in [1,m])or(i in [1,k]) then write('*')
  else write(' ');
  writeln;
 end
end.

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

В данном коде используется язык программирования Pascal ABC. Он предназначен для создания графических приложений. Код начинается с использования библиотеки crt, которая обеспечивает работу с консолью. Затем определяются три переменные: k, m и i, которые представляют собой байтовые значения. Далее идет цикл repeat, который продолжается до тех пор, пока значение переменной k не будет в диапазоне от 3 до 20. Внутри цикла пользователю предлагается ввести количество строк и столбцов. После этого идет еще один цикл repeat, который также продолжается до тех пор, пока значение переменной m не будет в диапазоне от 3 до 20. Далее идет блок for, который выполняется для каждой строки от 1 до k. Внутри этого блока происходит проверка условия: если значение переменной j (столбец) находится в диапазоне от 1 до m или значение переменной i (строка) находится в диапазоне от 1 до k, то выводится символ *, в противном случае выводится пробел. После завершения блока for строки выполняется команда writeln, которая выводит символ новой строки. Цикл for завершается, и программа продолжает работу с новой строки. Таким образом, данный код выводит таблицу с заданным количеством строк и столбцов, заполненную символами * и пробелами в зависимости от значений переменных k и m.