Программа для подсчета количества слов в файле

[Юльза]

Программа для подсчета количества слов в файле

Помогите,пожалуйста,с программкой...очень нужно)))

 

[Юльза]

на языке турбо паскаль

 

[Vladimir_S]

Пожалуйста (путь к файлу и его имя поправьте как Вам надо):

Const
 Smb=[' ',',','.','?','!',':',';','"','(',')'];
VAR
 S:String;
 i,j:Byte;
 N:Word;
 b:Boolean;
 f:Text;

BEGIN
 Assign(f, 'D:\fff.txt');
 ReSet(f);
 N:=0;
 REPEAT
  ReadLn(f,S);
  i:=0;
  j:=0;
  Repeat
   b:=false;
   Repeat
    Inc(i);
   Until (Not(S[i] in Smb)) or (i=Length(S));
   While (Not(S[i] in Smb)) and (i<Length(S)) do
    begin
     Inc(i);
     b:=true;
    end;
   If b then Inc(j);
  Until i=Length(S);
  Inc(N,j);
 UNTIL EoF(f);
 Close(f);
 WriteLn('File contains ',N,' words');
 ReadLn;
END.

 

[Юльза]

Спасибо за программку,но почему-то выдает ошибку в этом месте Until (Not(S in Smb)) or (i=Length(S));
While (Not(S in Smb)) and (i<Length(S)) do

 

[Vladimir_S]

Спасибо за программку,но почему-то выдает ошибку в этом месте Until (Not(S in Smb)) or (i=Length(S));
While (Not(S in Smb)) and (i<Length(S)) do

Прискорбно, потому что программа была, естественно, отлажена и оттестирована. Какие-то задвиги версий Паскаля.
Попробуйте вот что: после Not вставить пробелы, т.е. так:
Until (Not (S in Smb)) or (i=Length(S));
While (Not (S in Smb)) and (i<Length(S))
У меня работает и в таком варианте - может быть и у Вас заработает?

 

[Юльза]

Спасибо огромное за программку)))все работает)))