Поиск количества слов в текстовом файле

@Aynurnk · Регистрация: 04.12.2014

Студворк — интернет-сервис помощи студентам

Добрый вечер! Пытаюсь разобраться с файлами. Задача состоит в следующем: написать процедуру поиска количества слов в текстовом файле. Когда ввожу имя файла в основной программе(файл называется slova.txt, находится в одной папке с программой), то на экране ничего не выводится. В чём состоит ошибка?

Pascal

procedure kolslov;
    //Подсчет количества слов в файле
    var f:text;
    stroka,fname:string;
    i,s:integer;
    begin
    writeln('Введите имя файла');
    readln(fname);
    assign(f,fname);
     reset(f);
     while not eof(f) do
     begin
     readln(f,stroka);
     writeln(stroka);
      while stroka[length(stroka)]=' ' do delete(stroka,length(stroka),1);
      while stroka[1]=' ' do delete(stroka,1,1);
      for i:= 1 to length(stroka) do      if(stroka[i]=' ') and (stroka[i+1]=' ')
        then delete( stroka,i,1);
      s:=1;
      for i:= 1 to length(stroka) do
        if stroka[i]=' ' then s:=s+1;
        writeln('Количество слов в файле',s);
     end;
     closefile(f);
     readln;
    end;

@ZX Spectrum-128 · 04.12.2014, 21:59

Pascal

...
begin
  kolslov;
end.

Добавлено через 1 минуту
И у вас считается количество слов по строкам, а общее количество слов в файле - нет.

@Aynurnk · 05.12.2014, 00:00 **[ТС]**

а как сделать, чтобы считало общее количество?

@ZX Spectrum-128 · 05.12.2014, 09:40

Pascal

procedure kolslov;
    //Подсчет количества слов в файле
    var f:text;
    stroka,fname:string;
    sum,i,s:integer;
    begin
    sum:=0; 
    writeln('Введите имя файла');
    readln(fname);
    assign(f,fname);
     reset(f);
     while not eof(f) do
     begin
     readln(f,stroka);
     writeln(stroka);
      while stroka[length(stroka)]=' ' do delete(stroka,length(stroka),1);
      while stroka[1]=' ' do delete(stroka,1,1);
      for i:= 1 to length(stroka) do      if(stroka[i]=' ') and (stroka[i+1]=' ')
        then delete( stroka,i,1);
      s:=1;
      for i:= 1 to length(stroka) do
        if stroka[i]=' ' then s:=s+1;
        writeln('Количество слов в строке: ',s);
     sum:=sum+s;
     end;
 
 
     closefile(f);
     writeln('Количество слов в файле: ',sum);
     readln;
    end;
begin
  kolslov;
end.

@Aynurnk · 05.12.2014, 19:39 **[ТС]**

Всё равно на экран ничего не выводится, в чём дело?

@ZX Spectrum-128 · 05.12.2014, 20:09

Неправда. Все прекрасно выводится.

@Aynurnk · 05.12.2014, 22:26 **[ТС]**

Спасибо большое!

@Aynurnk 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 6
	05.12.2014, 00:00 [ТС]	3
	а как сделать, чтобы считало общее количество? 0

@Aynurnk 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 6
	05.12.2014, 19:39 [ТС]	5
	Всё равно на экран ничего не выводится, в чём дело? 0

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	05.12.2014, 20:09	6
	Неправда. Все прекрасно выводится. Миниатюры 1

@Aynurnk 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 6
	05.12.2014, 22:26 [ТС]	7
	Спасибо большое! 0

Опции темы

Поиск количества слов в текстовом файле

Решение