«Разработка на обработку строчных величин» - 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.

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

  1. Объявлены переменные: s (строка), i, k (целые числа).
  2. Выводится сообщение для ввода строки.
  3. Вводится строка s.
  4. Переменная k инициализируется нулем.
  5. Происходит замена каждой буквы 's' на 'd' и увеличивается значение переменной k.
  6. Выводится сообщение о замене букв 's' на 'd'.
  7. Выводится исходная строка s.
  8. Выводится сообщение о количестве замен.
  9. Происходит смена регистра букв в строке s.
  10. Выводится сообщение о смене регистра букв.
  11. Выводится итоговая строка s.
  12. Программа ожидает ввода данных.

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

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