|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.02.2014, 20:24 | #1 |
Пользователь
Регистрация: 27.02.2013
Сообщений: 66
|
Программы обработки текстовых файлов в PascalABC.NET
Задание 1 Текстовый файл содержит сведения о кольцевых туристических маршрутах: список городов и стоимость тура в рублях, в каждой строке файла один маршрут (например, «Челябинск – Екатеринбург – Казань – Москва – Самара – Уфа – Челябинск. 5000»). Требуется найти маршрут с наибольшим количеством городов и указать его стоимость. Полученные данные записать в текстовый файл.
Задание 2 Из ассортимента конфет, выпускаемых пермской кондитерской фабрикой, выбрать те, стоимость которых за 1 кг попадает в указанный диапазон. Указать срок их годности и номера магазинов, в которых они имеются в продаже. Указание: При решении задачи, использовать тип данных Записи (record). Исходные данные должны содержаться в текстовом файле. Количество записей в файле не меньше 20 и заранее неизвестно, сколько их. Результат работы программы записать в файл с другим именем. |
01.03.2014, 08:21 | #2 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Ну и? Наработки или оплата?
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
01.03.2014, 11:22 | #3 |
Пользователь
Регистрация: 27.02.2013
Сообщений: 66
|
По первой задачи я кое-что начудил:
s1:=''; i:=length(s); while (i>=1) and(s[i] in ['0'..'9']) do begin s1:=s[i]+s1; i:=i-1 end; |
01.03.2014, 14:00 | #4 | |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Читаете строчку из файла, подсчитываете количество тире. Строчку с аибольшим кол-вом выводите.
По первой задачке Код:
Текстовый файл для проверки Цитата:
Последний раз редактировалось ZX Spectrum-128; 01.03.2014 в 14:28. |
|
01.03.2014, 18:10 | #5 |
Пользователь
Регистрация: 27.02.2013
Сообщений: 66
|
Спасибо огромное! Вы помогли мне более чем)
|
03.03.2014, 10:15 | #6 | |
Пользователь
Регистрация: 27.02.2013
Сообщений: 66
|
Цитата:
Но мне сказали, что здесь много лишнего? Код:
___________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (кнопочка на панели форматирования с решёточкой #) И не злоупотребляйте избыточным цитированием. Оверквотинг (overquoting) на форуме запрещён. Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 03.03.2014 в 10:42. |
|
03.03.2014, 10:52 | #7 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ничего принципиально "ЛИШНЕГО" я в коде от ZX Spectrum-128 не увидел.
можно сократить код поиска максимального на несколько строк (max присвоить не длине первого маршрута, а нулю): Код:
Цитата:
|
|
03.03.2014, 10:55 | #8 |
Пользователь
Регистрация: 27.02.2013
Сообщений: 66
|
Точно! Спасибо!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составление и отладка программ для создания и обработки типизированных, и текстовых файлов. | Makos | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 21.04.2013 21:26 |
Файловый тип. Переменная для обработки текстовых файлов(pascal)) | Георгий Златов | Помощь студентам | 1 | 27.01.2013 18:22 |
Алгоритмизация и программирование задач создания и обработки типованих и текстовых файлов | Саша1194 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 20.03.2012 22:14 |
Добавление данных в текстовые файлы. Другие процедуры и функции для обработки текстовых файлов | student2009 | Помощь студентам | 1 | 02.06.2009 08:44 |
Добавление данных в текстовые файлы. Другие процедуры и функции для обработки текстовых файлов | student2009 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 01.06.2009 21:27 |