Èíôîðìàòèêà


              

è îñíîâíîé ÷àñòè ïðîãðàììû âèäíî,


ìàññèâ 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)

Ñîäåðæàíèå  Íàçàä  Âïåðåä