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

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

Решение:

program Param32;

type
 St=String;

var
 S:St;
 i:integer;

Procedure UP_CaseRus(var S:St);
var
 i:integer;
begin
 for i:=1 to length(S) do
  begin
   if (ord(S[i]) in [160..175]) then S[i]:=chr(ord(S[i])-32);
   if (ord(S[i]) in [224..239]) then S[i]:=chr(ord(S[i])-80);
  end;
end;

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

program Param32;

type

St=String;

var

S:St;

i:integer;

Procedure UP_CaseRus(var S:St);

var

i:integer;

begin

for i:=1 to length(S) do

begin

if (ord(S[i]) in [160..175]) then S[i]:=chr(ord(S[i])-32);

if (ord(S[i]) in [224..239]) then S[i]:=chr(ord(S[i])-80);

end;

begin

for i:=1 to 5 do

begin

Write('S:');

Readln(S);

UP_CaseRus(S);

Writeln(S);

end;

Readln;

end.

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

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

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

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