Текстовый файл |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Текстовый файл |
Rocket |
10.03.2007 18:50
Сообщение
#1
|
Знаток Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
Дан текстовый файл. Посчитать число повторений в нём строчных английских букв ("a"-"z") и создать строковый файл, элементы которого имеют вид "буква"-"число повторений буквы". Буквы,отсутствующие в тексте не включать. Строки упорядочить по возрастанию кодов букв. Подскажите метод решения или натолкните на мысль. |
Артемий |
10.03.2007 19:40
Сообщение
#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!
|
volvo |
10.03.2007 19:47
Сообщение
#3
|
Гость |
|
Rocket |
10.03.2007 20:07
Сообщение
#4
|
Знаток Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
Открываем файл. Можно создать массив строк и добавить в цикле туда все строки файла.Можно и просто добавить в s: string 1-ую,2-ую,3-ую,..n-ую строку и каждый раз с ней работать.Дело в принципе твое.Делаешь цикл for c {Char}:='a' to 'z' do begin Далее в символ сh: char добавить по очереди каждый символ очередной строки и смотреть - ch=c ?. И так со всему строками, но только если символ повторился несколько раз,тогда открывай счетчик I: integer;!В конце цикла забиваешь в строковой файл "ch"-"i". И далее в цикле в сh добавится новая буква и опять по новой! Не мог бы ты немного поподробней...пример катануть... |
Артемий |
11.03.2007 16:53
Сообщение
#5
|
Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
Ну попробуй вот так, если то..
var Добавлено через 5 мин. Цитата Строки упорядочить по возрастанию кодов букв. Пока сделано без этого Сообщение отредактировано: Артемий2 - 11.03.2007 16:55 -------------------- Dum spiro spero!
|
Rocket |
11.03.2007 17:17
Сообщение
#6
|
Знаток Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
|
Rocket |
11.03.2007 17:37
Сообщение
#7
|
Знаток Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
Что-то она не работает...Ничего не записывает в новый файл... А по алфавиту вроде бы должна раставлять.
Сообщение отредактировано: volvo - 14.01.2009 10:04 |
Артемий |
11.03.2007 20:18
Сообщение
#8
|
Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
Какой у тебя компилятор? Я это делал на Free Pascal!
Добавлено через 6 мин. У меня все откомпилилось.. -------------------- Dum spiro spero!
|
Rocket |
11.03.2007 21:59
Сообщение
#9
|
Знаток Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
|
Артемий |
11.03.2007 22:05
Сообщение
#10
|
Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
Очень странно, у меня все работает.. Ты его текстовым открываешь?
-------------------- Dum spiro spero!
|
volvo |
11.03.2007 22:12
Сообщение
#11
|
Гость |
Вот так записывает?
var |
Rocket |
11.03.2007 22:15
Сообщение
#12
|
Знаток Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
Очень странно, у меня все работает.. Ты его текстовым открываешь?
Мне пришлось заменить строчный тип файла fs на text,компилятор ошибку выдавал в writeln(fs,s)... В чём косяк может быть? |
Артемий |
11.03.2007 22:16
Сообщение
#13
|
Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
удалил..
Сообщение отредактировано: Артемий2 - 11.03.2007 22:24 -------------------- Dum spiro spero!
|
Rocket |
11.03.2007 22:29
Сообщение
#14
|
Знаток Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
|
Артемий |
11.03.2007 22:29
Сообщение
#15
|
Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
var ? -------------------- Dum spiro spero!
|
Rocket |
11.03.2007 22:33
Сообщение
#16
|
Знаток Группа: Пользователи Сообщений: 306 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
Ага! Пашет! Спасибо!
Сообщение отредактировано: volvo - 14.01.2009 10:02 |
Текстовая версия | 29.04.2024 6:27 |