PREISVERGLEICH (1.110 Bytes)
10 CLS 100 REM*** 110 REM*** PREISVERGLEICH *** 120 REM*** 130 INPUT "Menge Ware 1 ";MENGE1 140 INPUT "Preis Ware 1 ";PREIS1 145 CLS 150 INPUT "Menge Ware 2 ";MENGE2 160 INPUT "Preis Ware 2 ";PREIS2 165 CLS 170 PJM1=PREIS1/MENGE1 180 PJM2=PREIS2/MENGE2 190 IF PJM1=PJM2 THEN PRINT "Ware ist gleich teuer !":GOTO220 200 IF PJM1>PJM2 THEN PRINT "Ware 1 ist teurer !":GOSUB 500:GOTO 220 210 IF PJM1<PJM2 THEN PRINT "Ware 2 ist teurer !":GOSUB 700:GOTO220 220 CLS:INPUT "Noch ein Vergleich (J/N) ";A$ 230 IF A$="J"THEN 100 240 IF A$="N"THEN END 250 GOTO 220 500 PRINT "Bei Menge 100 ist Ware 1 um ";ROUND(B,-3);" Euro teuerer !":GOTO 690 510 A=PJM1-PJM2 520 IF A<0.10THEN 600 530 PRINT "Ware 1 ist um ";ROUND(A,-3);" Euro teuerer !":GOTO 690 600 B=A*100 610 PRINT "Bei Menge 100 ist Ware 1 um ";ROUND(B,-3);" Euro teuerer !":GOTO 690 690 RETURN 700 REM PJM1<PJM2 710 A=PJM2-PJM1 720 IF A<0.10THEN 800 730 PRINT "Ware 2 ist um ";ROUND(A,-3);" Euro teuerer !":GOTO 890 800 B=A*100 810 PRINT "Bei Menge 100 ist Ware 1 um ";ROUND(B,-3);" Euro teuerer !":GOTO 890 890 RETURN
Generated by (c) Casio FX-850P/FX-880P Notepad 2.03.0
(C) 2009 by Monika und Wilhelm Leibold - mleibold@arcor.de - http://blog.manib.bplaced.net