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

[Milena]

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

[Milena]

Плиз проверьте прогу...читаю файл по символьно...если делать без проверки на конец файла (not eof),обрабатывается тока одна строка....а с проверкой на конец файла прога зацикливается....
Вот код:

Код

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
   while not eoln(fin) do begin
   read (fin,ch);
   if ch=' ' then  count:=count+1

   else if count>2 then begin

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

Не забывай теги [ code] [ /code]

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