1. Как вывести на экран изображение домиков от 1 до 10, с пробелами от 1 до 5 между ними? Необходимо использовать

  • 66
1. Как вывести на экран изображение домиков от 1 до 10, с пробелами от 1 до 5 между ними? Необходимо использовать форматный вывод и циклы. Приведите пример выполнения программы, которая выводит один домик:

Программа Prog4_1;
Процедура HouseRow(d: Integer; s: String);
Переменные
i: Integer;
Начало
записать(s:d);
перевод строки;
Конец;

Начало
HouseRow(4, "A");
HouseRow(5, "АМА");
HouseRow(6, "АМММА");
HouseRow(7, "АА");
HouseRow(6, "");
HouseRow(6, "ЖЖ");
Конец;
Baska
30
В данной задаче требуется написать программу для вывода изображения домиков на экран от 1 до 10, с пробелами от 1 до 5 между ними, используя форматный вывод и циклы.

В примере программы, предоставленном в задаче, используется процедура HouseRow(d: Integer; s: String), где d - количество символов в строке, s - символы строки. Процедура выводит указанное количество символов с указанными символами на экран.

В самом примере программы вызывается процедура HouseRow с разными параметрами, чтобы вывести на экран разные изображения домиков. Вот, как это может выглядеть:


Программа Prog4_1;

Процедура HouseRow(d: Integer; s: String);
Переменные
i: Integer;
Начало
записать(s:d);
перевод строки;
Конец;

Начало
HouseRow(1, " * ");
HouseRow(1, " * ");
HouseRow(7, "
* ");
HouseRow(7, "*");
HouseRow(7, " ");
HouseRow(7, "");
HouseRow(7, " JJ ");
Конец


В результате выполнения данной программы на экране будут выведены следующие изображения домиков:


*
*
*
*


JJ


Если у вас есть еще вопросы, не стесняйтесь задавать.