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

[Vlad]

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


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

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

[sheka]

Код

program lab_file;

uses crt;
var
fin: text;
ch:char;
s:integer;

begin
assign (fin,'C:\Tpascal\test.txt');{как пример}
reset (fin);
while not eof(fin) do begin
while ch <> ' ' do
read(fin,ch);
S:=S+1;
end;
writeln(s);
end.

смотри:
во-первых, ch перед 1-м входом не инициализирована, что иногда вызывает ошибки.
во-вторых, допустим мы наткнулись на пробел, то есть ch:=""; S:=S+1; заходим на следующий повтор цикла:
while not eof(fin) do begin //допустим не конец файла
while ch <> ' ' do // вот здесь ошибка - ch="", и read(fin,ch); не выполняется, программа зацикливается.

спс за рекурсию , я с ней не очень дружу. а что, всю программу тоде модно было сделать рекурсией?