Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2008, 18:09   #1
klindk
 
Регистрация: 27.11.2008
Сообщений: 3
По умолчанию Помогите с задачей. в файлах вообще ноль

В текстовом файле представлены названия лекарств , срок годности,кол-во,стоимость(через пробел)
Вывести на экран данные о лекарствах с истекшим сроком годности.Подсчитать общую стоимость таких медикоментов
klindk вне форума Ответить с цитированием
Старый 12.12.2008, 20:15   #2
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

1)Откр. Файл.
2)Считываешь строку
3)Считываешь строку До пробела (выводишь на Экран) в цикле до конца строки , в отдельную переменную := Сумма + Стоимость =)
4) - в пункт 2 до конца файла
5)End.
Skype : UASm1Le.
Sm1Le вне форума Ответить с цитированием
Старый 13.12.2008, 10:25   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

в алгоритме после п. 3) должно ещё быть:
сравниваешь срок годности с текущей датой - если срок годности меньше (т.е. уже прошёл) - значит лекарство просроченное - тогда вывадишь его данные и суммируешь стоимость...

задачка то тривиальная - простой парсинг текста!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача в паскале, помогите пожалуйста я полный ноль Arsenal777 Помощь студентам 8 03.06.2008 22:22
Помогите с вопросами о файлах Дима82 Помощь студентам 5 26.05.2008 19:49
Дюди добрые помогите по ПАСКАЛЮ. Я полный ноль в нем )) Jey_RO Помощь студентам 4 24.05.2008 13:06
Помогите, пожалуйста, решить задачу по файлах sheva_ser Паскаль, Turbo Pascal, PascalABC.NET 1 27.03.2008 19:36