Цитата:
Сообщение от Дарюшка
Дана строка. преобразовать в ней все строчные буквы(как латинские, так и русские) в прописные, а прописные- в строчные.
Заранее спасибо.
|
Здесь могу помочь ограниченно: без никаких "так и русские" - только латиница. Потому что кодировка кириллицы нестандартизована, есть куча таблиц, у DOS (которым я пользуюсь) - своя, у Windows - своя, а кто-то вообще в UTF сидит, в общем, извините, заморачиваться с кириллицей никакого желания нет. Хотите - можете сами, исходя из своей кодировки, добавить в программу недостающие строки по тому же принципу сдвига значений кодов символов. А по латинице - пожалуйста:
Код:
var
S,S1:string;
i:byte;
begin
writeln('String:');
Readln(S);
S1:='';
For i:=1 to Length(S) do
begin
If (Ord(S[i])>64) and (Ord(S[i])<91) then S1:=S1+Chr(Ord(S[i])+32)
else
If (Ord(S[i])>96) and (Ord(S[i])<123) then S1:=S1+Chr(Ord(S[i])-32)
else
S1:=S1+S[i];
end;
Writeln(S1);
Readln
End.