«Разработка на обработку строчных величин» - Pascal

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

1. В тексте все буквы "s" заменить "d", подсчитать количество замен. 2. Дана строка слов из латинских букв. Разработать программу, которая будет менять строчные буквы на большие, а большие на малые.

Код к задаче: ««Разработка на обработку строчных величин» - Pascal»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы