Вставка символов между символами исходной строки - 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.

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

  1. Переменная s объявлена как строка (string).
  2. Переменная i объявлена как целочисленная (integer).
  3. Строка s запрашивается у пользователя с помощью функции ReadLn().
  4. Строка s изменяется путем добавления пробела к каждому символу.
  5. Затем происходит цикл for, который выполняется от 1 до длины строки s.
  6. Внутри цикла проверяется, является ли текущий индекс нечетным.
  7. Если текущий индекс нечетный, то символ '*' вставляется в строку s на этом индексе.
  8. После завершения цикла for, строка s выводится на экран с помощью функции WriteLn().

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


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

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

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