Перевод текста в нижний/верхний регист — Pascal(Паскаль)

В нижний регистр

var s:string;
 
function SmallAlpha(ps:string):string;
var i:integer;
begin
   for i:=1 to length(ps) do begin
     case ps[i] of
        'A'..'Z','А'..'П': inc(ps[i],32);
        'Р'..'Я'         : inc(ps[i],80);
     end;
   end;
   SmallAlpha:=ps;
end;
 
begin
     writeln('Введите любой текст'); readln(s);
     writeln('Этот же текст маленькими буквами:');
     writeln(SmallAlpha(s));
end.

В верхний регистр

var s:string;
 
function BigAlpha(ps:string):string;
var i:integer;
begin
   for i:=1 to length(ps) do begin
     case ps[i] of
        'a'..'z','а'..'п': dec(ps[i],32);
        'р'..'я'         : dec(ps[i],80);
     end;
   end;
   BigAlpha:=ps;
end;
 
begin
     writeln('Введите любой текст'); readln(s);
     writeln('Этот же текст большими буквами:');
     writeln(BigAlpha(s));
end.

Leave a Comment

+ 40 = 44