Найти максимальную длину строки в текстовом файле и. распечатать все строки файла, имеющие такую длину.
Помогите, пожайлуста, решить задачу!!! Заранее благодарю!!!!
 Определение длины строки в текстовом файле |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Katya |
Сообщение
#1
|
|
Гость  |
|
 
|
|
  |
Ответов
| klem4 |
Сообщение
#2
|
 Perl. Just code it!  Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44  |
Цитата А вообще можно так сделать : Напечатать все строки на экране потом оттуда через видео проверять сколько символов в каждой из них. Тут уже будет 2 прохода но не по файлу =) Потом через СРТ удалять ненужные. Или через граф также вывести чтроки красным цветом потом брать каждую строку и черпать цвет пикселя, у кого больше наберётся проверок, с той длиной и сравнивать, боюсь если даже это возможно я не реализую. это фактически использование массива, так что не прокатит, я тоже подумал сначала про видеопамять. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
|
Сообщений в этой теме
Katya Определение длины строки в текстовом файле 6.04.2007 14:57
Tan uses crt;
Const filename = 'MyFile.txt';
v… 6.04.2007 15:27 volvo Первая реализация программы, делающей то, что указ… 6.04.2007 15:32 klem4 Массивами/списками итд пользоваться естественно не… 6.04.2007 15:38 volvo Естественно... 6.04.2007 15:39 Tan А вообще можно так сделать : Напечатать все строки… 6.04.2007 15:44 мисс_граффити program text_file;
uses crt;
var f: text;
max: int… 6.04.2007 15:49 volvo Не пойдет... Если длина строк пойдет по возрастающ… 6.04.2007 15:56 klem4
Почему ? Вроде все верно работает ...
для
1
12
… 6.04.2007 15:59 volvo Ну, тогда что, решение при котором цвет неподходящ… 6.04.2007 16:04
klem4 uses crt;
var
f: Text;
s, temp: String;
max… 6.04.2007 16:04 Malice Не понял, в чем фишка, решение напрашивается очеви… 7.04.2007 12:04 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 6.11.2025 11:52 |
Связь с администрацией: bu_gen в домене octagram.name