Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Текстовый файл |
| Rocket |
 
Сообщение
#1
|
 Знаток  Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация:  0   |
Дан текстовый файл. Посчитать число повторений в нём строчных английских букв ("a"-"z") и создать строковый файл, элементы которого имеют вид "буква"-"число повторений буквы". Буквы,отсутствующие в тексте не включать. Строки упорядочить по возрастанию кодов букв. Подскажите метод решения или натолкните на мысль.  |
   |
 
|
  |
| Артемий |
Сообщение
#2
|
 Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
Открываем файл. Можно создать массив строк и добавить в цикле туда все строки файла.Можно и просто добавить в s: string 1-ую,2-ую,3-ую,..n-ую строку и каждый раз с ней работать.Дело в принципе твое.Делаешь цикл for c {Char}:='a' to 'z' do begin Далее в символ сh: char добавить по очереди каждый символ очередной строки и смотреть - ch=c ?. И так со всему строками, но только если символ повторился несколько раз,тогда открывай счетчик I: integer;!В конце цикла забиваешь в строковой файл "ch"-"i". И далее в цикле в сh добавится новая буква и опять по новой!
-------------------- Dum spiro spero!
|
|
|
|
| Rocket |
Сообщение
#3
|
|
Знаток Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
Цитата(Артемий2 @ 10.03.2007 19:40)  Открываем файл. Можно создать массив строк и добавить в цикле туда все строки файла.Можно и просто добавить в s: string 1-ую,2-ую,3-ую,..n-ую строку и каждый раз с ней работать.Дело в принципе твое.Делаешь цикл for c {Char}:='a' to 'z' do begin Далее в символ сh: char добавить по очереди каждый символ очередной строки и смотреть - ch=c ?. И так со всему строками, но только если символ повторился несколько раз,тогда открывай счетчик I: integer;!В конце цикла забиваешь в строковой файл "ch"-"i". И далее в цикле в сh добавится новая буква и опять по новой! Не мог бы ты немного поподробней...пример катануть... |
|
|
|
Rocket Текстовый файл 10.03.2007 22:50
volvo Здесь есть алгоритм: Задача на обработку текста
(… 10.03.2007 23:47 Артемий2 Ну попробуй вот так, если то..
var
arr: array of … 11.03.2007 20:53
Rocket Ну попробуй вот так, если то..
Большое спасибо… 11.03.2007 21:17
Rocket Что-то она не работает...Ничего не записывает в но… 11.03.2007 21:37 Артемий2 Какой у тебя компилятор? Я это делал на Free Pasca… 12.03.2007 0:18 Rocket
Какой у тебя компилятор? Я это делал на Free Pasc… 12.03.2007 1:59 Артемий2 Очень странно, у меня все работает.. :blink: Ты ег… 12.03.2007 2:05 Rocket
Очень странно, у меня все работает.. :blink: Ты е… 12.03.2007 2:15 volvo Вот так записывает?
var
cnt: array['a' … 12.03.2007 2:12 Rocket Вот так записывает?
Да так записывает! Большое… 12.03.2007 2:29 Артемий2 удалил.. 12.03.2007 2:16 Артемий2 var
arr: array [1..20] of string;
ch,c: Char;
coun… 12.03.2007 2:29 Rocket Ага! Пашет! Спасибо! :good: 12.03.2007 2:33 |
|
Текстовая версия | 10.09.2025 18:15 |
