p>
Readln (p ^. Mesto);
writeln ('Введіть нову ціну товару:');
Readln (p ^. Cena);
Writeln ('Введіть нову дату покупки (дд.мм.рррр.):');
readln (g); (g, p ^. Date_P);;; else Writeln ('немає такого запису');;
Лістинг 7.Виводи елемента стекаPomog (k: integer; p: TPElem);
if Length (IntToStr (k)) = 1 then write (k, ''); Length (IntToStr (k)) = 2 then write (k, ''); Length (IntToStr (k )) = 3 then write (k, '');
Length (p ^. Tovar) = 17 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 12 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 5 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 7 then write (p ^. Tovar, ''); Length (p ^. Tovar) = 13 then write (p ^. Tovar, '');
Length (p ^. Mesto) = 7 then write (p ^. Mesto, ''); Length (p ^. Mesto) = 6 then write (p ^. Mesto, ''); Length (p ^. Mesto) = 8 then write (p ^. Mesto, ''); Length (p ^. Mesto) = 3 then write (p ^. Mesto, '');
Length (IntToStr (p ^. Cena)) = 4 then write (p ^. Cena, '') write (p ^. Cena, '');
(DateToStr (p ^. Date_P));;
Лістинг 8.Заданіе № 2one (p: TPElem); k: Integer; D1, D2: TDateTime; Y, Mn, D: Word;
writeln;
Writeln ('Список товарів, придбаних в 4 кварталі минулого року:');
p: = top; p = nil then Writeln ('Стек порожній') (Data, Y, Mn, D);: = EncodeDate (Y-1, 10,01);: = EncodeDate (Y, 01,01);: = 0;; p <> nil do (k); (p ^. Date_P> D1) and (p ^. Date_P
Лістинг 9. Завдання № 3
procedure thenp <> nil do (j); (p ^. Mesto = 'Зв'язковий') and (p ^. Cena> n) then: = p ^. Cena;: = j;;
(p ^. Mesto = 'МВідео') and (p ^. Cena> n1) then: = p ^. Cena;: = j;;
(p ^. Mesto = 'Евросеть') and (p ^. Cena> n2) then: = p ^. Cena;: = j;;
(p ^. Mesto = 'МТС') and (p ^. Cena> n3) then: = p ^. Cena;: = j;;
(p ^. Mesto = 'Експерт') and (p ^. Cena> n4) then: = p ^. Cena;: = j;;
: = p ^. prev;; else Writeln ('Стек порожній');; mm1 (k, j: integer); (p <> nil) or (k
Лістинг 10. Завдання № 4
procedure then Writeln ('Стек do (p ^. Date_P> D1) and (p ^. Date_P = D2) and (p ^. Date_P
