Решаем задачи Абрамян на Паскале. Param33

Param33. Описать процедуру LowCaseRus($$S$$), преобразующую все прописные русские буквы строки $$S$$ в строчные (остальные символы строки $$S$$ не изменяются). Строка $$S$$ является входным и выходным параметром. Используя процедуру LowCaseRus, преобразовать пять данных строк.

Решение:

program Param33;
type
 St=String;

var
 S:St;
 i:integer;

Procedure LowCaseRus(var S:St);
var
 i:integer;
begin
 for i:=1 to length(S) do
  begin
   if (ord(S[i]) in [128..143]) then S[i]:=chr(ord(S[i])+32);
   if (ord(S[i]) in [144..159]) then S[i]:=chr(ord(S[i])+80);
  end;
end;

begin
 for i:=1 to 5 do
  begin
   Write('S:');
   Readln(S);
   LowCaseRus(S);
   Writeln(S);
  end;
end.

program Param33;

type

St=String;

var

S:St;

i:integer;

Procedure LowCaseRus(var S:St);

var

i:integer;

begin

for i:=1 to length(S) do

begin

if (ord(S[i]) in [128..143]) then S[i]:=chr(ord(S[i])+32);

if (ord(S[i]) in [144..159]) then S[i]:=chr(ord(S[i])+80);

end;

begin

for i:=1 to 5 do

begin

Write('S:');

Readln(S);

LowCaseRus(S);

Writeln(S);

end;

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param33

Комментарии:

Добавить комментарий Отменить ответ