ЗАДАЧА С ФАЙЛОМ Опции

[Vlad]

Здравствуйте, помогите, пожалуйста решить задачку по паскалю. У меня курсовая в понедельник, а я немогу разобраться! ПОЖАЛУЙСТА!!!


Дано символьный файл f, найти количество слов в файле.

Сообщение отредактировано: Vlad - 21.05.2009 18:40

[Krjuger]

while ch <> ' ' do // вот здесь ошибка - ch="", и read(fin,ch); не выполняется, программа зацикливается.

Вообще то выполняется,потому что пустой элемент выполняет условие цикла и ТОЛЬко пробел обеспечивает нам вылет из цикла,насчет того что я в начале,не задаю значение ch,да туда запишется всякий мусор из памяти,и принципи там чисто теоретически может затесаться пробел,но шанс этого мал,принципи согласен лучше инициализировать ch.Это лиш увеличит стабильность.

Procedure rek;
begin
if not eod(fin) then
 begin
   if (ch <> ' ')  then
    begin
      read(fin,ch);
      rek;
    end;
   else
     begin
       S:=S+1;
       read(fin,ch);
       rek;
     end;
  end;
end;

Принципи оно должно сработать,на данный момент паскаля под рукой не имею,поэтому работоспособность проверить не могу,если где то ошибся,то сообщи исправлю.
И еще По сути любой цыкл можно заменить рекурсией, а рекурсию циклом,но есть моменты,когда это делать принципи нерационально.Вот например метод с циклом на мой взгляд в этой задаче проще,чем рекурсивный.