Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р - Free Pascal
Формулировка задачи:
Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р,а буквы А на И.
Протокол: Быть умным-это не значит знать всё,знать всё-это не значит быть умным.
Получилось: Быть урныр - это не зничит знить всё,знить всё-это не зничит быть урныр.
Помогите,пожалуйста,написать программный код на языке Pascal....
Решение задачи: «Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р»
textual
Листинг программы
program zam; uses crt; var i:integer; s:string; begin writeln('vvedite tekst'); readln(s); for i:=1 to length(s) do if s[i]= 'М' then s[i]:= 'Р' else if s[i]= 'А' then s[i]:= 'И' else if s[i]= 'м' then s[i]:= 'р' else if s[i]= 'а' then s[i]:= 'и'; writeln(s); end.
Объяснение кода листинга программы
- Создается программа zam с использованием библиотеки crt.
- В программе объявлены следующие переменные: i: integer; s: string;
- Программа выводит сообщение
vvedite tekst
и запрашивает ввод текстовой строки с помощью функции readln(s). - Переменная s содержит введенную текстовую строку.
- Используется цикл for для прохода по каждому символу в строке s.
- Внутри цикла проверяется значение каждого символа и при необходимости заменяется на новое значение.
- Если символ равен 'М', то он заменяется на 'Р'.
- Если символ равен 'А', то он заменяется на 'И'.
- Если символ равен 'м', то он заменяется на 'р'.
- Если символ равен 'а', то он заменяется на 'и'.
- После прохода по всем символам, выводится измененная строка s.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д