Прямоугольник из звёздочек, а в нём текст - Pascal ABC
Формулировка задачи:
здравствуйте. нужно создать прямоугольник такого вида:
**********
*Привет*
**********
*Как дела?*
***********
Делаю так, но просто кучу раз выводит приветприветпривет... как сделать мой пример, может кто-то помочь?
Решение задачи: «Прямоугольник из звёздочек, а в нём текст»
textual
Листинг программы
Program kvadrat; procedure okno(s:string; k:byte); var i:byte; begin if k=0 then begin for i:=1 to length(s)+2 do write('*'); writeln; end; writeln('*',s,'*'); for i:=1 to length(s)+2 do write('*'); writeln; end; begin okno('Привет!',0); okno('Как дела?',1); end.
Объяснение кода листинга программы
- Создаётся программа
kvadrat
. - Создаётся процедура
okno
. - Объявляется переменная
i
типаbyte
. - В блоке if проверяется значение переменной
k
. Если оно равно нулю, то выполняется цикл for. - В цикле for от 1 до длины строки
s
плюс 2 выводится символ*
. - После окончания цикла выводится символ
*
и строкаs
в том же формате. - Выполняется еще один цикл for.
- В этом цикле выводятся символы
*
. - После окончания второго цикла выводится символ
*
и строкаs
в том же формате. - Конец программы.
- Вызываются процедуры
okno
с двумя аргументами:Привет!
иКак дела?
. - Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д