Процедура: заменить в строке 'А' на 'У' - 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.
Объяснение кода листинга программы
- Создаётся процедура с именем
zamena
, которая принимает один параметр типаstring
- переменнаяs
. - В процедуре создаётся переменная
i
типаbyte
, которая будет использоваться для цикла. - В цикле от 1 до длины переменной
s
происходит проверка: если текущий символ в строкеs
равен 'А', то он заменяется на 'У'. - После выполнения цикла, результат выводится на экран с помощью функции
write
. - Создаётся переменная
s
типаstring
, в которую пользователю предлагается ввести строку из букв русского алфавита, содержащую букву 'А'. - Запускается цикл, аналогичный циклу в процедуре
zamena
, но вместо замены символов в строкеs
, происходит чтение введенной пользователем строки. - После завершения чтения, выполняется вызов процедуры
zamena
с переменнойs
в качестве аргумента. - Выводится сообщение с просьбой ввести строку, содержащую букву 'А'.
- Запускается цикл, аналогичный циклу в процедуре
zamena
, но вместо замены символов в строкеs
, происходит чтение введенной пользователем строки. - После завершения чтения, выполняется вызов процедуры
zamena
с переменнойs
в качестве аргумента. - Выводится сообщение с просьбой ввести строку, содержащую букву 'А'.
- Цикл повторяется до тех пор, пока пользователь не введет строку, содержащую букву 'А'.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д