не получается написать программу (работа с записями)

[denis273]

Справочная служба аптекоуправления содержит записи со следующими сведениями: шифр лекарства, наименование, дата производства, срок годности в виде ММГГ. отпечатать список лекарств с истекшим сроком годности и список, срок годности которых истекает через 2 месяца.

[phomm]

Пишешь только одно задание и неприятно даже что-то говорить в теме...

Где твои наработки ? если таковых нет, то скорее всего прогамму бесплатно ты не получишь...

[denis273]

Я могу написать только ввод данных, дальше решить не могу.

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;

[phomm]

совет - сделать не 2 типами записей, а одной, проще будет

печатать список просто - получаем текущий месяц и год - month(now) и year(now) (вариант из дельфи, мб в паскале не работает, не могу точно сказать) и в цикле сравниваем с сохраненным в каждой записи месяцем и годом производства+месяцем и годом годности, если нынешний больше, то просрочен, печатаем, для второго списка также, только разность по месяцам будет строго 2, если выполняется условие - то выводим на печать. Всё, ничего сложного. Делаете прогу и пишете сюда код , там поправим Вам, если будут косяки.

И не забывайте оформлять код тегом code - или кнопочкой # в расширенном режиме правки