A100:20: * MATHETRAINING * A$(20),SR$(3),TE$(23):ZV0 SR$"MATHETRAINING GRUNDRECHENARTEN":HO0:150:HO6!I4 20 2:VEI9!A$(4)"1 = Addition":A$(6)"2 = Subtraktion"n!A$(8)"3 = Multiplikation":A$(10)"4 = Division"!$A$(12)"5 = Anwenderhinweise":A$(14)"6 = Programmende"!.A$(16)"":A$(18)""!8A$(20)" BITTE DEINE WAHL !"!B110:A$(I):I("LM10:M20:200:(IN49)(IN54) 1100D"VIN49 2010: ADDITIONc"`IN50 2510: SUBTRAKTION"jIN51 3010: MULTIPLIKATION"tIN52 3510: DIVISION"~IN53 4510: ANWENDER-INFO"IN54 250:950: PROGRAMMENDE# -------------------------------)# **** ADDITION ****V#SR$" A D D I T I O N ":P11n#T1$"der Summanden"#T2$"1.Summand":T3$"2.Summand":VZ$"+"#4010:1020# -------------------------------# **** SUBTRAKTION ****$ SR$" S U B T R A K T I O N ":P126$ T1$"Minuent/Subtrah."f$ T2$"Minuend :":T3$"Subtrahent:":VZ$"-"v$ 4010:1020$ -------------------------------$ **** MULTIPLIKATION ****$ SR$" M U L T I P L I K A T I O N ":P13% T1$"der Faktoren"+% T2$"1.Faktor":T3$"2.Faktor":VZ$"*";% 4010:1020a% -------------------------------|% **** DIVISION ****% SR$" D I V I S I O N ":P14% T1$"Divident/Divisor"% T2$"Divident":T3$"Divisor":VZ$":"% 4010:1020#& -------------------------------D& **** ROUTINEN ****\&100:HO1:VE0:110t&150:VE2:HO0:110&:"Lege die obere Grenze ";T1$&"fest":VE6:110:&T2$;:M1&T3$;:M2&:"Sind die Eingaben richtig ? (j/n)"'VE9:HO34:110:210#'IN$"j" 4010;'100:HO1:VE0:110S'150:VE3:HO0:110t'"Maximalwert 1.Eingabe:";M1'""Maximalwert 2.Eingabe:";M2',:"Ich stelle dir jetzt 10 Aufgaben":VE8'6I1 10'@5010: ZUFALLSZAHLEN(JHO1:VEVE1:110 (TI;". ";Z1;VZ$;Z2;"=";:ZEL(^ZEZ3 ZVZV1:HO25:110:"OK!":4210o(hHO25:110:250:"FALSCH !";Z3{(rZE0:I(|5410:VEVE1(I1 3:HO0:VEVE1:110:SR$SR$(I):150(I(VE23:HO15:110:"Weiter --> eine Taste")200:IN$"" 4250)100:8) -------------------------------S) ANWENDERINORMATIONEN{)SR$" ANWENDERINFORMATIONEN ")100:VE0:HO2:110:150)I2 23:VEI:HO0:110)TE$(I):TE$(I))I:250)200:IN$"" 4560):100:1020!* ------------------------------D* ****** ZUFALLSZAHLEN *******[*260:Z1(RVM1)1r*260:Z2(RVM2)1*P11 Z3Z1Z2:*P12 Z3Z1Z2:*P13 Z3Z1Z2:*P14 5110:Z3Z1Z2*Z3(Z3) 5010*+ -------------------------------*+ **** PRUEFEN ****N+Z1Z2 Z4Z2:Z5Z1:Z1Z4:Z2Z5d+ Z20 Z23:5110j++ -------------------------------+ *** AUSWERTUNG ***+"SRZV:300:V$SR$:ZV10 5460+,ZV7 5500+6ZV5 5540+@ZV0 5580,J56208,TSR$(1)"Prima,du hast alles richtig geloest!"j,^SR$(2)"Trotzdem, mache es dir mal nicht so ",hSR$(3)"leicht, du kannst noch viel mehr ! ",rZV0:,|SR$(1)"Naja war doch ganz gut. Du hast "V$ -SR$(2)"Aufgaben richtig geloest ! Trotzdem,"?-SR$(3)"Du kannst noch besser werden ! "J-ZV0:|-SR$(1)"Na,ich glaube du muesstest wieder "-SR$(2)"mal ins Mathebuch sehen! Nur "V$" rich-"-SR$(3)"tige Loesungen sollten dich warnen !"-ZV0:#.SR$(1)"Ganz schoen mies ! Du hast nur "V$T.SR$(2)"Aufgaben richtig geloest! Ich rate ".SR$(3)"dir,versuche es mal etwas einfacher".ZV0:.SR$(1)"Du bist ja eine absolute NIETE !!! ".SR$(2)"Keine(!) Aufgabe hast du geschafft!"#/SR$(3)"Fang noch mal ganz von vorne an! "./ZV0:T/ -------------------------------k/a DATA - ZEILEN/a"Mit diesem, auch etwas lustigem Pro-"/a"gramm kannst du die 4 Grundrechenarten"/a"ueben. Dazu musst du zum Anfang den ge-"'0a"wuenschten Zahlenbereich eingeben. Der"V0a"Computer stellt dir dann 10 Aufgaben"0a"der gewuenschten Rechenart. Tippe dein"0a"Ergebnis ein und quittiere mit "0a"Bei einem Fehler erscheint hinter der"1b"Fehlermeldung das richtige Ergebnis."A1 b"Wenn du alle 10 Aufgaben geloest hast,"p1b"bewertet der Computer noch deine "1 b"Leistung und gibt dir auch einige Tips."1*b"Zu beachten ist, dass auch der negative"14b"Zahlenbereich zur Anwendung kommt.",2>b"Um bei der Division im Bereich der"[2Hb"ganzen Zahlen zu bleiben, wurde ein"2Rb"Pruefteil mit eingebaut. Dadurch kann"2\b"es bei groesseren Zahlen eine Weile "2fb"dauern bis die Aufgabe erscheint."3pb" Na dann, viel Spass !"I3zb""," MENUE --> Taste"m3} *****************************3 } * *3} * AUTOR: BURKHARDT PREUSS *3} * H.-BEIMLER-STR.20 *3(} * FRANKFURT (ODER) *!42} * 1200 *E4<} * *i4F} * DIESES PROGRAMM WURDE AM *4P} * 17.01.1990 AUF EINEM *4Z} * C64 ERSTELLT. *4d} * *4n} *****************************4x}!5} Erstausstrahlung: Radio DDR.5} 9002074d} * *4n} ****************************