 задача "файлы" помогите решить, задали задачку уже 8 часов голову ломаю(((( |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Vigame |
  16.12.2008 2:11
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация:  0   |
вот задача
Цитата Дан текстовый файл. Считая, что количество букв в одном слове не превосходит 20, определить, сколько в файле имеется слов, состоящих из одного, двух, трех и т.д. символов. Результат вывести в другой текстовый файл. помогите пожалуйста нечего не получается смог смастерить программу для подсчета слов в фаиле и больше нечего паскаль идет всего неделю и нужно срочно сдать задачу Заранее спасибо |
   |
 
|
  |
Ответов
| Айра |
16.12.2008 3:22
Сообщение
#2
|
|
Профи  Группа: Пользователи Сообщений: 731 Пол: Женский Репутация: 25 |
Ну по сути большую часть ты сделал)) только интересно, по какому алгоритму)
А так, есть такие мысли: описываем массив из 20 элементов, номер элемента соответствует количеству букв в слове, заполняем его сначала нулями.. Затем просматриваем файл, считываем символы и загоняем их в строку s:=s+ch, пока очередной не будет пробелом (или какие там еще могут быть символы разделители), собрали слово, посчитали его длину через length(s), и увеличили значение соответствующего элемента массива.. Очистили строку s:='', и пошли выделять слова дальше.. Как-то так) |
|
|
|
Сообщений в этой теме
Vigame задача "файлы" помогите решить 16.12.2008 2:11
Lapp ... и загоняем их в строку
... Очистили строку ..... 16.12.2008 5:58
Vigame в общем от что у меня получилась но дальше не могу... 16.12.2008 3:31 Vigame спасибо работает но нужно сделать сохранение в дру... 16.12.2008 12:40 Lapp Если ты делаешь форматированный вывод, то файл дол... 16.12.2008 12:55 Vigame вот сделал
for i:=1 to 20 do begin
Write... 16.12.2008 13:15 Lapp магу рублеф 50 кинуть на вебмани токо вечером :)
Н... 16.12.2008 13:35 Vigame да я уже все понял как делать огромное пасибо... 16.12.2008 13:53 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 14:42 |