Важная информация
Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 15

Тема: файлы

  1. #1 файлы 
    Новичок
    Регистрация
    02.04.2011
    Сообщений
    14
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Нужно работать с файлами. Подсчитать, сколько раз в тексте встречается заданное слово. спасибо всем кто поможет)) пожалуйста помогите
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Такой вопрос: вам нужен именно код программы или результат её действия. Тоесть, вы пишите программу для свого пользования или это зачёт по информатике?
    Просто у меня есть такая прога, но у неё инъерфейс и куча библиотек включено, так чт если для себя, то отлично будет, а если здавать, то придётся переработать.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    02.04.2011
    Сообщений
    14
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    нужно для лабораторной по информатике,
    Ответить с цитированием  
     

  4. #4  
    Новичок
    Регистрация
    02.04.2011
    Сообщений
    14
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    пожалуйста скиньте что-нибудь)
    Ответить с цитированием  
     

  5. #5  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Завтра скину. Сейчас-спать.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  6. #6  
    Новичок
    Регистрация
    02.04.2011
    Сообщений
    14
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо Вам ))
    Ответить с цитированием  
     

  7. #7  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Если говорить о Delphi? то думаю достаточно будет читать из текстового файла строки и в них искать нужное слово. Итак изначально надо определить файловую переменную:
    Код :
    Var FD: TextFile;
    далее связать файловую переменную и файл:
    Код :
    AssignFile(FD,'Имя файла');
    еще момент чтение строки из файла в переменную Stroka
    Код :
    Readln(FD,Stroka);
    и наконец поиск заданного слова в строке
    Код :
    Pos(Slovo;Stroka);
    если функция возвращает не ноль значит слово в строке найдено.
    Естественно все это необходимо повторять в цикле:
    Код :
    While not(Eof(FD)) Do // цикл чтения файла
    Begin
      Readln(FD,Stroka);
      Repeat // цикл обработки строки
        Poz:=Pos(Slovo;Stroka);
        If Poz<>0 Then 
        Begin
          Stroka:=Delete(Stroka;1;(Poz+Length(Slovo))); // Удаляем начало строки с найденным словом чтобы проверить не встречается ли слово еще раз.
          Kolich:=Kolich+1;
        End;
      Until(Poz<>0);
    End;
    Не забыть, перед началом необходимо объявить переменные
    Код :
    Kolich:Integer;
    Poz:Integer;
    Stroka:String;
    Slovo:String;
    По окончании закрыть файл.
    Код :
    CloseFile(FD);
    Пока это все писал, наткнулся на подобную программу приведенную в книге Митчел К.Керман "Програмирование и отладка в Delphi учебный курс" 2003г вот в главе 7 "Текстовые файлы" имеется практический пример с 186 подсчета количества слов...
    Последний раз редактировалось Dimon012; 03.04.2011 в 07:52.
    Ответить с цитированием  
     

  8. #8  
    Новичок
    Регистрация
    02.04.2011
    Сообщений
    14
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо)) мне надо на паскале но кажется я поняла идею
    Ответить с цитированием  
     

  9. #9  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Программу полностью обработал, но интернет настолько плохой, что даже такой маленький файлик неполучается сбросить. Будем ждать, когда улучшится.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  10. #10  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от чес Посмотреть сообщение
    спасибо)) мне надо на паскале...
    Дык Delphi это Паскаль и есть только так называется
    Ответить с цитированием  
     

Страница 1 из 2 12 ПоследняяПоследняя
Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 3
    Последнее сообщение: 11.12.2011, 18:08
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •