è âûáðàííîìó ìåòîäó ïðåäñòàâëåíèÿ äàííûõ
... ... 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
Ñîäåðæàíèå Íàçàä Âïåðåä