Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Aynurnk
0 / 0 / 0
Регистрация: 04.12.2014
Сообщений: 6
1

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

04.12.2014, 21:51. Просмотров 847. Ответов 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)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2014, 21:51
Ответы с готовыми решениями:

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

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

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

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

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

6
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4004 / 2939 / 3685
Регистрация: 05.06.2014
Сообщений: 14,519
04.12.2014, 21:59 2
Pascal
1
2
3
4
...
begin
  kolslov;
end.
Добавлено через 1 минуту
И у вас считается количество слов по строкам, а общее количество слов в файле - нет.
1
Aynurnk
0 / 0 / 0
Регистрация: 04.12.2014
Сообщений: 6
05.12.2014, 00:00  [ТС] 3
а как сделать, чтобы считало общее количество?
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4004 / 2939 / 3685
Регистрация: 05.06.2014
Сообщений: 14,519
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
Aynurnk
0 / 0 / 0
Регистрация: 04.12.2014
Сообщений: 6
05.12.2014, 19:39  [ТС] 5
Всё равно на экран ничего не выводится, в чём дело?
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4004 / 2939 / 3685
Регистрация: 05.06.2014
Сообщений: 14,519
05.12.2014, 20:09 6
Неправда. Все прекрасно выводится.
1
Миниатюры
Поиск количества слов в текстовом файле  
Aynurnk
0 / 0 / 0
Регистрация: 04.12.2014
Сообщений: 6
05.12.2014, 22:26  [ТС] 7
Спасибо большое!
0
05.12.2014, 22:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2014, 22:26

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

Поиск слова в текстовом файле. Перезапись в новый файл по правилу
Приветствую. Ни как не могу решить кое какую задачку. Надеюсь на вашу помошь. Задача. Сделать...

Подсчитать в текстовом файле количество слов и количество цифр
Дан файл, содержащий текст. Сколько слов в тексте? Сколько цифр в тексте?


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru