«Разработка на обработку строчных величин» - Pascal
Формулировка задачи:
1. В тексте все буквы "s" заменить "d", подсчитать количество замен.
2. Дана строка слов из латинских букв. Разработать программу, которая будет менять строчные буквы на большие, а большие на малые.
Решение задачи: ««Разработка на обработку строчных величин»»
textual
Листинг программы
uses crt; var s:string; i,k:integer; begin clrscr; writeln('Введите строку из символов латинского алфавита'); writeln('в разных регистрах, содержащую буквы s '); readln(s); k:=0; for i:=1 to length(s) do if s[i]='s' then begin s[i]:='d'; k:=k+1; end; writeln('Замена букв s на d'); writeln(s); writeln('Количество замен=',k); for i:=1 to length(s) do if s[i] in ['a'..'z'] then s[i]:=UpCase(s[i]) else if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32); writeln('Смена регистра букв'); writeln(s); readln end.
Объяснение кода листинга программы
- Объявлены переменные: s (строка), i, k (целые числа).
- Выводится сообщение для ввода строки.
- Вводится строка s.
- Переменная k инициализируется нулем.
- Происходит замена каждой буквы 's' на 'd' и увеличивается значение переменной k.
- Выводится сообщение о замене букв 's' на 'd'.
- Выводится исходная строка s.
- Выводится сообщение о количестве замен.
- Происходит смена регистра букв в строке s.
- Выводится сообщение о смене регистра букв.
- Выводится итоговая строка s.
- Программа ожидает ввода данных.