|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.03.2011, 21:48 | #1 |
Регистрация: 17.03.2011
Сообщений: 5
|
не получается написать программу (работа с записями)
Справочная служба аптекоуправления содержит записи со следующими сведениями: шифр лекарства, наименование, дата производства, срок годности в виде ММГГ. отпечатать список лекарств с истекшим сроком годности и список, срок годности которых истекает через 2 месяца.
|
29.03.2011, 22:12 | #2 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,886
|
Пишешь только одно задание и неприятно даже что-то говорить в теме...
Где твои наработки ? если таковых нет, то скорее всего прогамму бесплатно ты не получишь... |
29.03.2011, 22:22 | #3 |
Регистрация: 17.03.2011
Сообщений: 5
|
Я могу написать только ввод данных, дальше решить не могу.
Program No1; Const M=100; Type TData=Record Data:Record Month: Byte; Year: Word; End; Shifr: char; Name: String[20]; godnost: real; End; Var A: Array[1..M] of TData; L,i,j,k,N: word; k1: char; Itogo: LongInt; Nam1: String[20]; Begin Write('Vvedite kolichestvo zapisei N='); Readln(N); For i:=1 To N Do Begin Writeln(i,'-ya zapis:'); Write('Vvedite datu proizvodstva v vide MM GGGG '); With A[i].Data Do Readln(Month,Year); With A[i] Do Begin Write('Vvedite shifr lekarctva '); Readln(Shifr); Write('Vvedite imya lekarstva '); Readln(Name); Write(' Vvedite srok godnosti '); readln(godnost); End; End; |
29.03.2011, 23:44 | #4 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,886
|
совет - сделать не 2 типами записей, а одной, проще будет
печатать список просто - получаем текущий месяц и год - month(now) и year(now) (вариант из дельфи, мб в паскале не работает, не могу точно сказать) и в цикле сравниваем с сохраненным в каждой записи месяцем и годом производства+месяцем и годом годности, если нынешний больше, то просрочен, печатаем, для второго списка также, только разность по месяцам будет строго 2, если выполняется условие - то выводим на печать. Всё, ничего сложного. Делаете прогу и пишете сюда код , там поправим Вам, если будут косяки. И не забывайте оформлять код тегом code - или кнопочкой # в расширенном режиме правки |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[c++ Builder]Нужно написать программу (работа с БД) | webdesigner | Фриланс | 2 | 30.07.2010 11:26 |
Работа в дельфи.Написать программу. | L0102591 | Помощь студентам | 0 | 27.03.2010 23:46 |
Написать программу для зачета (Работа с файлами) | Барби | Общие вопросы C/C++ | 6 | 22.12.2007 15:40 |