Выделить заголовки Опции

[Milena]

В строке необходимо,чтоб те слова, которые идут после точки трех(и более) пробелов начинались с большой буквы.
Сижу ,мучаюсь, ничего не получается...

[Milena]

Всеж не получается у меня ...теперь проблема как сделать так , чтоб в верхний регистр переходили буквы начала строки.
Например, вход - "в полученном детерминированном автомате заключительными становятся те со"
выход-В полученном Детерминированном автомате Заключительными становятся те со"
Вот мой текст проги....подскажите что поменять, что добавить...моя фантазия испарилась

Код

program Verhnii_registr;
uses crt;

var
ch: char;
i : byte;
count:integer;
fin,fout:text;

Function UpStr(S:char):char; {перевод строки в верхний регистр}
Var I:Byte;
Begin

if  S in ['a'..'z']
   then S := UpCase(S)
   else
       begin
       if S in ['а'..'п']
       then

           S:=Chr(Ord(S)-$20)
       else if S in ['р'..'я']
            then S:=Chr(Ord(S)-$50);
       end;

UpStr:=S;
end;

Var
 wasEOLn: boolean;
begin
   clrscr;
   assign(fin,'in.txt');
   reset(fin);
   assign(fout,'out.txt');
   rewrite(fout);
   count:=0; wasEOLn := False;
   while not eof(fin) do
    begin
   read (fin,ch);

   If wasEOLn then ch := UpStr(ch);

   if ch=' ' then  count:=count+1

   else  begin if count>2 then begin

                   ch:= UpStr(ch);
                   count:=0;
              end
                           else  count:=0;
              end;
   write(fout,ch);
   wasEOLn := (ch = #10)
   end;
   close(fin);
   close(fout);
end.

Проверь это

Сообщение отредактировано: volvo - 30.11.2004 19:00