Прога про текстовый файл, Пожалуйста, помогите кто-нибудь!!! |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Прога про текстовый файл, Пожалуйста, помогите кто-нибудь!!! |
avaness |
Сообщение
#1
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Вот задали такую задачку:
В текстовом файле записаны слова. Определить, сколько раз встречается каждое слово и вывести в обратном порядке. Прошу выслать код |
Bokul |
Сообщение
#2
|
Гуру Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11 |
Цитата В текстовом файле записаны слова. Определить, сколько раз встречается каждое слово и вывести в обратном порядке. Ну если надо определить сколько раз встречается каждое слово, а не количиство разных слов, то вот... uses crt; -------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
avaness |
Сообщение
#3
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Цитата(Bokul @ 7.06.2006 3:00) Ну если надо определить сколько раз встречается каждое слово, а не количиство разных слов, то вот... BOKUL, у меня к Вам есть некоторые вопросы по коду. Что это означает? "const path='d:\temp.dat';" "temp:='ab bc c c km b';" "if (ch=' ') or (ch=#13) then inc(i) else ar[i]:=ar[i]+ch;" "procedure num_dif(ar:mas; n:integer);"(что она делает?) а почему не выводит в обратнои порядке? а, всё - догнал - работает! тока не пойму - как убрать последнюю строку "8 word 1 times - " . То есть при выводе всех слов последняя строка не заполнена - она не нужна - как её удалить? а если ещё и по частоте появления вывести, сильно муторно? если не трудно - черканите. буду очень признателен! |
Текстовая версия | 29.03.2024 13:27 |