Помогите пожалуйста решить задачу на строки по Паскалю.

[Дарюшка]

Помогите пожалуйста решить задачу на строки по Паскалю.

Дана строка. преобразовать в ней все строчные буквы(как латинские, так и русские) в прописные, а прописные- в строчные.
Заранее спасибо.

 

[Vladimir_S]

Дана строка. преобразовать в ней все строчные буквы(как латинские, так и русские) в прописные, а прописные- в строчные.
Заранее спасибо.

Здесь могу помочь ограниченно: без никаких "так и русские" - только латиница. Потому что кодировка кириллицы нестандартизована, есть куча таблиц, у 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.