Помощь - Поиск - Пользователи - Календарь
Полная версия: Программа счета
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Илья S.
Нужно написать программу, позволяющую выбрать произвольные файлы и, считая его простым текстовым файлом, сосчитать, сколько в нем строк, символов, слов, букв и предложений.Преносы можно не учитывать.Подскажите пожалуйста с чего начать.
klem4
Какой из пунктов вызывает затруднение ?
Илья S.
В принципе не знаю с чего начать
мисс_граффити
если верить заданию, начать надо с выбора файла.
для этого можно использовать компонент OpenDialog+какую-нибудь кнопку ("открыть"), в обработчике нажатия на которую он будет использоваться
Илья S.
Я понимаю так что нужно написать программу котороя берет любой файл(произвольный) и считает его код.В принчипе это сделать нетрудно, но как сделать так чтобы это программа считал файлы текстовыми
мисс_граффити
работать с ним как с текстовым:
var f: textfile;
s: string;
...
//можно проверку сделать
reset(f,filename);
//пока не конец файла
readln(f,s);
...
Гость
Итересно.Файл он посчитает текстовым, а как сделать чтобы он посчитал код.
Илья S.
Да очень просто.Главное надо подумать как сделать так чтобы он посчитал по заданным параметрам(колич слов, букв, предл) wink.gif
мисс_граффити
самое сложное из этого - предложения, т.к. в задании не оговорено, чем они разделяются (только точкой?).
строки - просто считать кол-во итераций.
символы - ввести переменную и на каждой итерации прибавлять длину строки.

Илья S., а в чем прикол самому с собой разговаривать?
задать вопрос, и через 4 минуты себе ответить, что это легко...
Гость
Цитата(мисс_граффити @ 27.05.2008 17:04) *

самое сложное из этого - предложения, т.к. в задании не оговорено, чем они разделяются (только точкой?).
строки - просто считать кол-во итераций.
символы - ввести переменную и на каждой итерации прибавлять длину строки.

Незнаю.Но точка поедее считаеться символом,следовательно только пробелами.В принципе немного разобрался но есть вопросы. smile.gif

Илья S., а в чем прикол самому с собой разговаривать?
задать вопрос, и через 4 минуты себе ответить, что это легко...


Сам не знаю как так получилось. Наверное Голова в этот момент была забита другим( сессия и зачетная неделя + до фига проблем) wacko.gif
Илья S.
Помогите ктонить-завтра нужно здать.Неполучилось сделать чтобы он их считал поотдельности.А так все норм mega_chok.gif
klem4
Открываешь файл как текстовый, начинаешь читать его построчно. Прочитав каждую строку увеличиваешь счетчик строк на 1, счетчик символов на length(s), далее проходишь по строке, смотришь сколько в ней разделителей предложений (точка, вопросительный знак и т.д.) Увеличиваешь количество предложений на найденное число символов.
Илья S.
Цитата(klem4 @ 29.05.2008 15:58) *

Открываешь файл как текстовый, начинаешь читать его построчно. Прочитав каждую строку увеличиваешь счетчик строк на 1, счетчик символов на length(s), далее проходишь по строке, смотришь сколько в ней разделителей предложений (точка, вопросительный знак и т.д.) Увеличиваешь количество предложений на найденное число символов.


Спасибо.Получилось и работает.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.