0 / 0 / 0
Регистрация: 04.12.2014
Сообщений: 6
1

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

04.12.2014, 21:51. Показов 1163. Ответов 6
Метки нет (Все метки)

Добрый вечер! Пытаюсь разобраться с файлами. Задача состоит в следующем: написать процедуру поиска количества слов в текстовом файле. Когда ввожу имя файла в основной программе(файл называется slova.txt, находится в одной папке с программой), то на экране ничего не выводится. В чём состоит ошибка?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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;
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2014, 21:51
Ответы с готовыми решениями:

Написать программу нахождения количества встречи цифр в заданном текстовом файле
Написать программу нахождения количества встречи цифр в заданном текстовом файле

Определить количество коротких слов в текстовом файле
определить количество коротких слов в текстовом файле

Написать программу нахождения количества встречи заданной буквы в заданном текстовом файле
Написать программу нахождения количества встречи заданной буквы в заданном текстовом файле

Найти одно из самых длинных слов в текстовом файле
Напишите программу, находящую одно из самых длинных слов в текстовом файле. Под словом понимается...

6
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
04.12.2014, 21:59 2
Pascal
1
2
3
4
...
begin
  kolslov;
end.
Добавлено через 1 минуту
И у вас считается количество слов по строкам, а общее количество слов в файле - нет.
1
0 / 0 / 0
Регистрация: 04.12.2014
Сообщений: 6
05.12.2014, 00:00  [ТС] 3
а как сделать, чтобы считало общее количество?
0
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
05.12.2014, 09:40 4
Лучший ответ Сообщение было отмечено Aynurnk как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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.
1
0 / 0 / 0
Регистрация: 04.12.2014
Сообщений: 6
05.12.2014, 19:39  [ТС] 5
Всё равно на экран ничего не выводится, в чём дело?
0
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
05.12.2014, 20:09 6
Неправда. Все прекрасно выводится.
Миниатюры
Поиск количества слов в текстовом файле  
1
0 / 0 / 0
Регистрация: 04.12.2014
Сообщений: 6
05.12.2014, 22:26  [ТС] 7
Спасибо большое!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2014, 22:26
Помогаю со студенческими работами здесь

Написать программу, которая подсчитывает количество слов в текстовом файле
Дан символьный файл f. Написать программу, которая подсчитывает количество слов, в текстовом файле...

Напишите программу, которая удаляет все переносы слов, встречающиеся в текстовом файле
6. Напишите программу, которая удаляет все переносы слов, встречающиеся в текстовом файле....

Поиск и замена слов в текстовом файле
Здравствуйте, помогите с реализацией задачи. в файле 222.txt (прикрепил) после слова "Name:" до...

Подсчёт количества строк в текстовом файле
Создать текстовый файл с произвольным текстом и через меню предусмотреть следующие действия: 1)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru