Code: Alles auswählen
10 rem
20 rem geldautomat
30 rem -----------
40 rem
50 rem nw() - notenwerte
60 rem az() - anzahl scheine im automaten
70 rem z() - anzahl scheine fuer die ausgabe
80 rem gs - gesamtsumme im automaten
90 rem
100 rem notenwerte
110 data 500,200,100,50,20,5
120 dim nw(6):for i=1 to 6:read nw(i):next
130 dim az(6):for i=1 to 6:az(i)=1000:next
140 dim z(6)
150 rem
160 rem hauptschleife
170 rem
180 print:print:print "geldautomat":print "-----------":print
190 gs=0:for i=1 to 6:gs=gs+az(i)*nw(i):next:print "inhalt =";gs;"euro":print
200 input "auszahlbetrag";b
210 if b>gs then print "nicht genug geld vorhanden":goto 180
220 for i=1 to 6:z(i)=0:next
230 for i=1 to 6
240 n=int(b/nw(i)):if n>az(i) then n=az(i)
250 az(i)=az(i)-n:z(i)=n:b=b-n*nw(i)
260 next i
270 if b>0 then print "kann nicht passend auszahlen":goto 180
280 print "auszahlung:"
290 for i=1 to 6
300 if z(i)>0 then print " ";z(i);"x";nw(i)
310 next i:goto 180
@KlaliB: Wenn Du etwas programmieren willst, solltest Du von den *Grundlagen* der Programmiersprache auch alles lernen. Objektorientierung könnte man für diese Aufgabe weglassen, obwohl sich das für's modellieren eines Bankautomaten natürlich auch anbietet.
Wieso weisst Du nicht *was* Du programmieren sollst? Gibt's keine schriftliche Aufgabenstellung? Keine Vereinbarung mit dem Lehrer was den Umfang des Referats angeht?
Welch schrecklicher Tag.
