задача на замену

[glebcherednik]

помогите с кодом программы пожалуйста (turbo pascal). задача такая :

программа, считывающая с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные.

[Arigato]

Есть функция upcase, которая преобразует символ в верхний регистр. В цикле все символы строки пропустить через эту функцию. Только она с латинскими буквами работает.

[glebcherednik]

Сообщение от Arigato

Есть функция upcase, которая преобразует символ в верхний регистр. В цикле все символы строки пропустить через эту функцию. Только она с латинскими буквами работает.

проблема в том что препод не принимает работы если буквы латинские...(

[Arigato]

Тогда вручную, надо найти кодовую таблицу 866, посмотреть расположение букв (там в русском алфавите разрыв псевдографикой будет) и преобразовывать коды. Могут пригодиться такие функции:
Ord - возвращает код символа.
Chr - Возвращает символ с заданным кодом.

[glebcherednik]

Сообщение от Arigato

Тогда вручную, надо найти кодовую таблицу 866, посмотреть расположение букв (там в русском алфавите разрыв псевдографикой будет) и преобразовывать коды. Могут пригодиться такие функции:
Ord - возвращает код символа.
Chr - Возвращает символ с заданным кодом.

спасибо конечно, но мне это мало о чем говорит) ладно буду искать,пробовать писать что то,

[Mad_Cat]

Function UpChar(c:char):char;
var k:integer;
begin
k:=ord(c);
case C of
'а'..'п':k:=k+ord('A')-ord('a');
'р'..'я':K:=k+ord('Р')-ord('р');
'a'..'z':K:=k+ord('A')-ord('a');
end;
UpChar:=chr(k);
end;
var
s:string;i:integer;
begin 
Readln(s);
for i:=1 to length(S) do
s[i]:=UpChar(s[i]);
writeln(S);
readln;
end.

[glebcherednik]

Сообщение от Mad_Cat

Function UpChar(c:char):char;
var k:integer;
begin
k:=ord(c);
case C of
'а'..'п':k:=k+ord('A')-ord('a');
'р'..'я':K:=k+ord('Р')-ord('р');
'a'..'z':K:=k+ord('A')-ord('a');
end;
UpChar:=chr(k);
end;
var
s:string;i:integer;
begin 
Readln(s);
for i:=1 to length(S) do
s[i]:=UpChar(s[i]);
writeln(S);
readln;
end.

БЛАГОДАРЮ!!! избавил от мучений )))