 Borland Pascal. Задача. Работа с файлами., Borland Pascal. Задача. Работа с файлами. |
Здравствуйте, гость ( Вход | Регистрация )
| zoo |
 15.10.2008, 14:32
Сообщение
#1
|
|
Новичок  Группа: Продвинутые Сообщений: 4 Регистрация: 15.10.2008 Город: уфа  |
Имеется текстовый файл(не менее 5 строк). Напечатать номер самой длинной строки. Напечатать все строки, содержащие в качестве фрагмента текст "ба".
|
   |
 
|
  |
Ответов
| Inspektor |
16.10.2008, 11:47
Сообщение
#2
|
|
Аспирант Группа: Активисты Сообщений: 384 Регистрация: 11.6.2008 Город: Крыжополь Учебное заведение: БГТУ Вы: студент |
Цитата т.е., если я правильно понимаю, вам надо при помощи оператора length найти длину всех строк и сравнить их между собой. Хотя могу и ошибаться. Исходя из формулировки задачи этот вариант не корректен. Длинна строки в файле не ограничена, а функция Length работает только с типом данных string, размер которого ограничен 256 байтами- 255 слотов под символы. Самое простое это читать строки посимвольно. Код n:=0; {номер самой длинной строки} k:=1; {текущая строка} l:=0; {число символов в самой длинной строке} while not eof(f) do i:=0; begin while not eoln(f) do begin read(f,c); Inc(i); end; if i>l then begin l:=i; n:=k; end; Inc(k); end; В условии не сказано что делать при нескольких одинаково длинных строках, поэтому приоритет здесь у первых. Если предположить, что длинна строк в файле не привышает 255 символов, то задача сильно упрощается. |
|
|
|
| tig81 |
16.10.2008, 12:02
Сообщение
#3
|
|
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель |
Цитата(Inspektor @ 16.10.2008, 14:47)  Исходя из формулировки задачи этот вариант не корректен. Длинна строки в файле не ограничена, а функция Length работает только с типом данных string, размер которого ограничен 256 байтами- 255 слотов под символы. спасибо, буду знать. |
|
|
|
Сообщений в этой теме
zoo Borland Pascal. Задача. Работа с файлами. 15.10.2008, 14:32
Inspektor А вопрос-то какой? Это типичная школьная задача на... 15.10.2008, 17:17 zoo Составить программу,которая выводит номер самой дл... 15.10.2008, 17:50 Inspektor Помочь мы всегда рады, но решать за тебя не будем.... 15.10.2008, 17:56 zoo у меня вообще нет вариантов. я не знаю,как работат... 16.10.2008, 9:36
tig81
дальше не знаю,какой нужен счетчик,оператор. для ... 16.10.2008, 9:57 zoo что такое Inc(i), Inc(k)? вот такой вариант как ва... 16.10.2008, 16:34 Inspektor
Инкремент. Тоже самое что i:=i+1, только обрабаты... 16.10.2008, 17:49 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 19.4.2026, 8:00 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2026 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru