Èíôîðìàòèêà


              

Ðåøåíèå ñëîæíûõ çàäà÷ - ÷àñòü 7


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




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