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

[Milena]

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

[volvo]

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;


begin
 clrscr;
 assign(fin,'in.txt');
 reset(fin);
 assign(fout,'out.txt');
 rewrite(fout);
 count:=0;
 while not eof(fin) do
   begin
     read (fin,ch);
     if ch=' ' then  count:=count+1

     else
       if not (ch in [#10, #13]) then
         begin
           if count>2 then ch:= UpStr(ch);
           count:=0;
         end;
     write(fout,ch);
   end;
 close(fin);
 close(fout);
end.

Одно замечание - при проверке работы не изменяй текстовые файлы в Паскале. Изменяй их в Блокноте (Паскаль не сохраняет пробелы в конце строки)...

Сообщение отредактировано: volvo - 1.12.2004 18:06