Pascal. Upcase

[Liinad]

В задании нужно, что-бы слова, которые состоят из маленьких букв перевести в верхний регистр ( сделать большими ), а если слово состоит из больших и маленьких (пример: ТрОн) оставить такими же, и вывести это все. Подскажите в чем ошибка, или что нужно добавить. У меня просто переводит все слова в верхний регистр

var
   f,p : text;
   sim : char;
   st: string;
   i:integer;
begin
     assign(f,'test.pas');
     assign(p,'itog.pas');
     reset(f);
     writeln('   Исходный файл : ');
     while not eof(f) do
          begin
               readln(f,st);
               write(st);
               writeln;
          end;
          rewrite(p);
          reset(f);
     while not eof(f) do
          begin
               read(f,sim);
               For i:=1 to length(st) do
                  sim:=upcase(sim);
                  write(p,sim);
          end;

     writeln('   Полученный файл : ');
     reset(p);
     while not eof(p) do
          begin
               readln(p,st);
               writeln(st);
          end;
     close(f);
     close(p);
end.

[viks1]

Тебе надо просто если есть большая буква, перенести в регистр маленький, а первую поднять ? я правильно понял?

[Liinad]

Нет если слово только с маленьких букв то перевести его в верхний регистр (пример: самолет->САМОЛЕТ), а если слово состоит с маленьких и больших оставить прежним ( пример: СамОлет , это слово не трогаем)

[Serge_Bliznykov]

тут ещё важно, какой Паскаль...

например, в TurboPascal стандартный UpCase тупо игнорировал все символы, кроме латиницы.

поэтому и рождались такие "шедевры":

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.

Разумеется, это всего лишь один из простых, универсальных вариантов.
А вообще, функций, которые изменяют регистр букв и для кириллицы было много, начиная с ассемблерного варианта и заканчивая манипуляциями с битами



UPDATE

вот, "до кучи", ещё один вариант:

(* (c) puporev
http://www.programmersforum.ru/showp...4&postcount=20
преобразовать текст в верхний регистр - UpperCase
*)

uses crt;
const mb1=['а'..'п'];
      mb2=['р'..'я'];
var s:string;
    i:integer;
begin
  clrscr;
  write('s: ');readln(s);
  for i:=1 to length(s) do
    if s[i] in mb1 then s[i]:=chr(ord(s[i])-32)
    else if s[i] in mb2 then s[i]:=chr(ord(s[i])-80)
    else if s[i]='ё'then s[i]:='Ё';
  write(s);
  readln
end.

UPDATE 2

Нет если слово только с маленьких букв то перевести его в верхний регистр (пример: самолет->САМОЛЕТ), а если слово состоит с маленьких и больших оставить прежним ( пример: СамОлет , это слово не трогаем)

кстати, проверять, из маленьких букв или нет состоит слово очень удобно, с помощью кода:

const 
  LoRus = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var i : integer;
  isSmallRusOnly : boolean;
begin
  isSmallRusOnly := true;
  for i:=1 to Length(s) do
    if Pos(s[i],LoRus)=0 then 
       begin isSmallRusOnly := false; 
              break 
       end;
  if isSmallRusOnly then s := UpperRus( s );

[Liinad]

Serge_Bliznykov, вы как всегда отзывчивы). У меня Паскаль ABC, я попробовал функцию которую вы мне написали первую, ну результат такой же как и у меня, полностью все слова почему-то переводит в верхний регистр. Так что с этим сейчас буду разбираться. Отдельное спасибо за функцию для проверки слова )

[Serge_Bliznykov]

полностью все слова почему-то переводит в верхний регистр.

посмотрите, я дописал update 3 в своём сообщении выше...

[Liinad]

Все, увидел )