Вставка символов между символами исходной строки - Turbo Pascal
Формулировка задачи:
нужно сделать такую программу чтобы я писал слово например "куркума" и чтобы выводило "к*у*р*к*у*м*а"
И если я напишу другое слово чтобы делалось так же.
Писать на основе этой программы:
Решение задачи: «Вставка символов между символами исходной строки»
textual
Листинг программы
var s: string; i:integer; begin Write('Введи слово: '); ReadLn(s); s:=s+' '; for i:=1 to length(s) do if odd(i) then insert('*',s,i+1); WriteLn(s); end.
Объяснение кода листинга программы
- Переменная
s
объявлена как строка (string
). - Переменная
i
объявлена как целочисленная (integer
). - Строка
s
запрашивается у пользователя с помощью функцииReadLn()
. - Строка
s
изменяется путем добавления пробела к каждому символу. - Затем происходит цикл
for
, который выполняется от 1 до длины строкиs
. - Внутри цикла проверяется, является ли текущий индекс нечетным.
- Если текущий индекс нечетный, то символ
'*'
вставляется в строкуs
на этом индексе. - После завершения цикла
for
, строкаs
выводится на экран с помощью функцииWriteLn()
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д