Заменить в строке все малые буквы- на большие, а большие- на малые

@Loggos · Регистрация: 05.12.2015

Author24 — интернет-сервис помощи студентам

Дана строка, заменить в этой строке все малые буквы - на большие, а большие - на малые.
Спасибо за внимание!

@Mazilo · 13.12.2015, 20:37

Loggos,

Pascal

Var s, newS : string;
    i : integer;
begin
s:='adVgf.mN-, uiY';
Writeln(s);
i:=1;
newS:='';
For i:=1 to length(s) do
    begin
    If (ord(s[i])>=65) and (ord(s[i])<=90) then newS:=newS+chr(ord(s[i])+32) else
    If (ord(s[i])>=97) and (ord(s[i])<=122) then newS:=newS+chr(ord(s[i])-32) else
        newS:=newS+s[i];
    end;
s:=newS;
Writeln(s);
end.

@Loggos · 14.12.2015, 16:57 **[ТС]**

Спасибо, но было бы неплохо, чтоб ещё и русские буквы учитывались!

@Mazilo · 14.12.2015, 17:03

Loggos, добавил русские буквы.

Pascal

Var s, newS : string;
    i : integer;
begin
s:='ывТиюб гРпиЗ';
Writeln(s);
i:=1;
newS:='';
For i:=1 to length(s) do
    begin
    If (ord(s[i])>=65) and (ord(s[i])<=90) then newS:=newS+chr(ord(s[i])+32) else
    If (ord(s[i])>=97) and (ord(s[i])<=122) then newS:=newS+chr(ord(s[i])-32) else
    If (ord(s[i])>=122) and (ord(s[i])<=223) then newS:=newS+chr(ord(s[i])+32) else
    If (ord(s[i])>=224) and (ord(s[i])<=255) then newS:=newS+chr(ord(s[i])-32) else
        newS:=newS+s[i];
    end;
s:=newS;
Writeln(s);
end.

@Loggos · 14.12.2015, 18:05 **[ТС]**

Спасибо ещё раз)

Заменить в строке все малые буквы- на большие, а большие- на малые

Решение

Решение

@Loggos 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 87
		1
	Заменить в строке все малые буквы- на большие, а большие- на малые 13.12.2015, 20:12. Показов 2407. Ответов 4 Метки нет (Все метки) Дана строка, заменить в этой строке все малые буквы - на большие, а большие - на малые. Спасибо за внимание! 0

@Loggos 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 87
	14.12.2015, 16:57 [ТС]	3
	Спасибо, но было бы неплохо, чтоб ещё и русские буквы учитывались! 0

@Loggos 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 87
	14.12.2015, 18:05 [ТС]	5
	Спасибо ещё раз) 0