02.10.2013, 21:31 | #1 (permalink) |
Новичок
Регистрация: 17.09.2013
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль
1)кол-во строк в нем 2)кол-во символов 3) кол-во слов 4)среднюю длину слова Примечание: считать все символы, кроме пробелов, частью слова. Строки текстового файла ненорманизованы. |
02.10.2013, 21:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Где то я это уже видел Паскаль Паскаль Паскаль!!! Паскаль |
03.10.2013, 05:33 | #3 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Определим в качестве слова последовательность символов, ограниченную пробелами либо признаками конца строки, конца файла.
Определим в качестве строки последовательность символов, имеющую в крайнем справа символ, совпадающий с признаком конца строки. Определим в качестве файла последовательность символов, оканчивающуюся символом, совпадающим с признаком конца файла. Алгоритм: 1. Определяем необходимые переменные. 2. Ассоциируем файловую переменную с именем файла командой assign(f, patch), где patch - путь к файлу. 3. Открываем файл по чтению командой reset(f). 4. В цикле считываем символы из файла до признака конца файла EOF(f) и анализируем каждый символ. 4.1. Если встретился признак конца строки либо перенос строки (код #13), увеличиваем счетчик строк на 1. 4.2. Если встретился символ пробела либо конец файла - увеличиваем счетчик слов на 1. 4.3. Счетчик длины слова увеличиваем на 1 до тех пор, пока не встретился пробел либо конец файла, при наступлении события - определяем длину слова командой Length(s), прибавляем ее к сумматору длин слов и обнуляем счетчик длины слова. 5. По выходу из цикла вычисляем среднюю длину слова, разделив значение сумматора длин слов на счетчик слов. 6. Выводим результаты. Реализовать этот алгоритм не труднее, чем его понять. Дерзайте! |
03.10.2013, 10:28 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Лёш, не стОит тратить время на этого деятеля: это хамло, которое позволяет себе кидать задачки на форумы (еще и с пометками типа "срочно!", "помогите!"), а потом даже не появляться. Мол, вы тут, дурачки, трудитесь, благо вас работа любит, а я умный.
Да пошлО оно! Очевидно, как пребывание строк файла в дикости, подобно древнебританским племенам до завоевания Англии норманнами. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|