Преобразование строчных букв в прописные- Pascal(Паскаль)

program toupper;
const
     BSIZE=80;{ предельная длина строки }
var
     buf:array[1..BSIZE] of char;
     n:integer;{ длина введенной строки }
     i:integer;
begin
     n:=0;
     write('-> ');
     repeat
          if not EOLN
               then begin
                    n:=n+1;
                    read(buf[n]);
               end;
     until EOLN or(n=BSIZE);
     { здесь прочитана строка и записана в массив buf }
     
     { преобразование строки к верхнему регистру }
     for i:=1 to n do
          begin
               case buf[i] of
               'а'..'п':buf[i]:=chr(ord(buf[i])-32);
               'р'..'я':buf[i]:=chr(ord(buf[i])-80);
               end;
          end;

     { вывод преобразованной строки }
     writeln;
     for i:=1 to n do
          write(buf[i]);
end.

Leave a Comment