Замещает стандартную процедуру UpCase} function
{ Преобразование строчных букв в прописные } ( Замещает стандартную процедуру UpCase} function UpCase(st:string): string; var
i:integer; begin
for i:=0 to Length(st) do { символы нумеруются с нуля ! } case st[i] of
{ латинские буквы}
'a'..'z':UpCase[i]:=chr(ord(st[i])-32);
{ русские буквы}
'a'..'n':UpCase[i]:=chr(ord(st[i])-32);
'p'..'я':UpCase[i]:=chr(ord(st[i])-80);
else { остальные символы не преобразуем
UpCase[i]:=st[i]; end;
end;
{ пример использования функции UpCase } var
st: string; begin
writeln(' Введите текст и нажмите <Enter>');
write('->');
readln(st);
writeln(UpCase(st));
readln; end.
