Процедура: заменить в строке 'А' на 'У' - Turbo Pascal

Узнай цену своей работы

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

Нужна программа, считывающая строку с клавиатуры, и с помощью процедуры заменяющая в строке 'А' на 'У'.

Решение задачи: «Процедура: заменить в строке 'А' на 'У'»

textual
Листинг программы
procedure zamena(var s:string);
var i:byte;
begin
for i:=1 to length(s) do
if s[i]='А' then s[i]:='У';
write(s);
end;
var s:string;
begin
writeln('Введите строку из букв русского алфавита, содержащую букву А');
readln(s);
zamena(s);
readln
end.

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

  1. Создаётся процедура с именем zamena, которая принимает один параметр типа string - переменная s.
  2. В процедуре создаётся переменная i типа byte, которая будет использоваться для цикла.
  3. В цикле от 1 до длины переменной s происходит проверка: если текущий символ в строке s равен 'А', то он заменяется на 'У'.
  4. После выполнения цикла, результат выводится на экран с помощью функции write.
  5. Создаётся переменная s типа string, в которую пользователю предлагается ввести строку из букв русского алфавита, содержащую букву 'А'.
  6. Запускается цикл, аналогичный циклу в процедуре zamena, но вместо замены символов в строке s, происходит чтение введенной пользователем строки.
  7. После завершения чтения, выполняется вызов процедуры zamena с переменной s в качестве аргумента.
  8. Выводится сообщение с просьбой ввести строку, содержащую букву 'А'.
  9. Запускается цикл, аналогичный циклу в процедуре zamena, но вместо замены символов в строке s, происходит чтение введенной пользователем строки.
  10. После завершения чтения, выполняется вызов процедуры zamena с переменной s в качестве аргумента.
  11. Выводится сообщение с просьбой ввести строку, содержащую букву 'А'.
  12. Цикл повторяется до тех пор, пока пользователь не введет строку, содержащую букву 'А'.

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


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

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

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