Èíôîðìàòèêà


         

è âûáðàííîìó ìåòîäó ïðåäñòàâëåíèÿ äàííûõ


                        ... ...                                                                 data «ïèòàíèå», 200000
Ðàñõîäîâ = <Sd>                                                      data «îäåæäà», 120000
Äîñòàòîê = <S>                                                      data «òðàíñïîðò», 60000
                                                                                                data «», 0
Ïðèâåäåì ñîîòâåòñòâóþùèå ýòîìó ñöåíàðèþ è âûáðàííîìó ìåòîäó ïðåäñòàâëåíèÿ äàííûõ àëãîðèòìû è ïðîãðàììó íà Áåéñèêå:
àëã «äîñòàòîê ñåìüè»                               'äîñòàòîê ñåìüè
íà÷                                                                  cls
âûâîä («Ïîäñ÷åò äîñòàòêà»)
                 ? «Ïîäñ÷åò äîñòàòêà»
âûâîä («Äîõîäû ñåìüè:»)                           ? «Äîõîäû ñåìüè:»
ïîäñ÷åò_äîõîäîâ                                        gosub dchs 'äîõîäû
âûâîä («Äîõîäîâ=», Sd)                              ? «Äîõîäîâ=», Sd
âûâîä («Ðàñõîäû ñåìüè:»)                         ? «Ðàñõîäû ñåìüè:»
ïîäñ÷åò_ðàñõîäîâ                                      gosub rashs 'ðàñõîäû
âûâîä («Ðàñõîäîâ =», Sr)                            ? «Ðàñõîäîâ=», Sr
S
:= Sd - Sr                                                    S = Sd - Sr
âûâîä («Äîñòàòîê=», S)                                       ? «Äîñòàòîê=», S
êîí                                                                  end
àëã «ïîäñ÷åò äîõîäîâ»                                dchs: 'ïîäñ÷åò äîõîäîâ»
íà÷                                                                  '
çàãðóçêà_äîõîäîâ                                         restore doch 'äîõîäû
Sd := 0                                                           Sd = 0
öèêë                                                              do
÷òåíèå (èìÿ, d)                                         read namS, d
ïðè èìÿ
= «» âûõ                                        if nam$ = «» then exit do
âûâîä (èìÿ, d)                                            ? nam$, d

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