ìàññèâ L[1:N],c[1:N],p[1:N] dim L(N),c(N),p(N)
íà÷ ñls
âûâîä («òîâàðû:») ? «òîâàðû:»
äàííûå-òîâàðîâ gosub tovar 'òîâàðû
âûâîä («îñòàòêè:») ? «îñòàòêè:»
äàííûå-îñòàòêîâ gosub ostatok 'îñòàòêè
âûâîä («-----») ? «-----»
ïîäñ÷åò-âûðó÷êè gosub vyruch 'âûðó÷êà
âûâîä («âûðó÷êà», S) ? «âûðó÷êà=»;S
âûâîä («ñîðòèðîâêà:») ? «ñîðòèðîâêà:»
ñîðòèðîâêà-òîâàðîâ gosub sortdan 'ñîðòèðîâêà
êîí end
Ïî ïðèâåäåííîìó àëãîðèòìó è îñíîâíîé ÷àñòè ïðîãðàììû âèäíî, ÷òî ïîñëåäîâàòåëüíîñòü ââîäà-âûâîäà äàííûõ î òîâàðàõ è ðåçóëüòàòîâ îáðàáîòêè ïîëíîñòüþ ñîîòâåòñòâóåò âûáðàííîìó ñöåíàðèþ. Çàãðóçêó èñõîäíûõ äàííûõ â âûáðàííûå ìàññèâû â ñîîòâåòñòâèè ñ ïðèíÿòûì ïðåäñòàâëåíèåì âûïîëíÿò äâà ñëåäóþùèõ âñïîìîãàòåëüíûõ àëãîðèòìà
àëã «äàííûå òîâàðîâ» tovar: 'äàííûå òîâàðîâ
íà÷ '
çàãðóçêà-òîâàðîâ restore tovs
îò k = 1 äî N öèêë for k = 1 to N
÷meíue(tv(k),s(k),m(k)) read tv$(k),s(k),m(k)
ïðè tv(k) = «» òî if tv$(k) = «» then exit for
âûâîä (tv(k),s(k),m(k)) ? tv$(k);s(k);m(k)