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

Дарюшка · 11.04.2012, 23:46

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

Vladimir_S · 12.04.2012, 10:28

Цитата:

Сообщение от Дарюшка

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

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

11.04.2012, 23:46	#1 (permalink)
Дарюшка Новичок Регистрация: 11.04.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста решить задачу на строки по Паскалю. Дана строка. преобразовать в ней все строчные буквы(как латинские, так и русские) в прописные, а прописные- в строчные. Заранее спасибо.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070