Строки

[(=Hello=)]

Как написать программу для преобразования заданной строки из строчных букв русского алфавита в строку из прописных букв. Например, если ввести "ссср" она должна вывести"СССР".


Заранее спасибо.

[_Dmitry]

Язык какой?

Если Delphi, то функция: AnsiUpperCase
Ссылка "Основы Delphi" в самом верху каждой странички форума.

[(=Hello=)]

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

Язык какой?

Если Delphi, то функция: AnsiUpperCase
Ссылка "Основы Delphi" в самом верху каждой странички форума.

Язык - Pascal

[Serge_Bliznykov]

задача может быть решена кучей способов!

вариант 1.

function UpperRus(s : string) : string;
const 
  LoRus = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  UpRus : string = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var i : integer;
begin
  for i:=1 to Length(s) do
    if Pos(s[i],LoRus)>0 then s[i] := UpRus[Pos(s[i],LoRus)]
    else s[i] := UpCase(s[i]);
  UpperRus := s
end;

begin
  Write(UpperRus('test is Only Best В чаще юга жил был цитрус!'));
  readln
end.

вариант 2.
см. тут - http://www.programmersforum.ru/showp...4&postcount=20


вариант 3.

function UpChar (c:char):char;
Label	U1,U2,U6;
begin
  asm
	MOV	AL,c
	CMP	AL,060h
	JNA	U6
        CMP     AL,07Ah
        JA	U1
	SUB	AL,20h
        JMP     U6
U1:	CMP	AL,09Fh
	JNA	U6
	CMP	AL,0AFh
	JA	U2
        SUB	AL,20h
        JMP     U6
U2:	CMP	AL,0DFh
	JNA	U6
	CMP	AL,0EFh
        JA	U6
        SUB	AL,50h
U6:     MOV     [BP-1],AL
  end;
end;

function Upper(s:string):string;
var i:byte;
begin
  for i:=1 to byte(s[0]) do s[i]:=UpChar(s[i]);
  Upper:=s;
end;


var
  s : string;
begin
  s := 'Маша добавляет в щи французский сыр CalaMber?';
  s := Upper(s);
  WriteLn(s);
end.

достаточно?

[(=Hello=)]

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

задача может быть решена кучей способов!
...
достаточно?

Да, спасибо.



Убрал излишнее цитирование..