Заменить строчные буквы на прописные - Turbo Pascal

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

Разработайте программу, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные. англ заменяет безотказно, а русские путает...
var
s:string;
i:integer;
function upcase(c:char):char;
begin if c in['a'..'z','а'..'я'] then
upcase:=chr(ord(c)-32)
else upcase:=c
end;
begin
write('введите предложение:');
readln(s);
for i:=1 to length(s) do
s[i-1]:=upcase(s[i-1]);
s[i]:=upcase(s[i]);
write('результат:',s);
readln;
end.

Код к задаче: «Заменить строчные буквы на прописные - Turbo Pascal»

textual
Var i: Integer;
begin
 for i := 32 to 254
 do begin
    if i mod 9 = 0
    then WriteLn;
    Write('[',i:3,':',Chr(i),'] ');
    end;
 ReadLn;
end.

13   голосов, оценка 3.769 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы