P 8H?.!\D:\aMzDqýý,B.|@@ lｽ,BD88x8xD8x<-BD@8@x8xD 8xlｽ,B0 TDDDD0DTDD0D-| D x D xDDDD@ < <Dx 'DDDDx$x|@@|BB/BDDTxDx$DD'@@ D"DD@DBBB@B@D DD@ 'DDDD@$@B@@BDBB-BDDT@D@$DD)@@>D<8D<<8D<h$h$=y$ xJh=h$:r,s;n$(h-x$);x$;r+1,s;b$(h);r+2,s;n$(h-y$);y$ s=s+h: Primfaktorenzerlegung p$="":j=18 9quo=n/p(j):quo=quop$=p$+""+p(j):n=quo:170 n0220 nop=zg: Hauptnenner berechnen 'z=n1:n=n2:200:hn=n1*n2/nop: ,9Unechten Bruch in gemischte Zahl umformen 6ge=(ze/ne):ze=ze-ge*ne: Wz=z1:n=n1:100d:r+1,s;z$:s=s+1::1.Bruch und Zei-chen schreiben Rz=z2:n=n2:100d:r+1,s;"=":s=s+1::2. Bruch und = schreiben F100d:r+1,s;"="::Einen einzelnen Bruch und = schreiben {r+1,s;g1:s=s+g1:z=z1:n=n1:100d:r+1,s;z$:s=s+1::1. gemischte Zahl und Zeichen schreiben yr+1,s;g2:s=s+1:z=z2:n=n2:100d:r+1,s;"=":s=s+1::2. gemischte Zahl und = schreiben >r+1,s;ge:s=s+ge:ze>0z=ze:n=ne:100d ':Gemischte Zahl (Ergebnis schreiben) /r+1,s;g:s=s+g:z>0100d ':Gemischte Zahl (Ergebnis schreiben) #Aufgabe ohne ganze Zahl schreiben  r=0:s=0:20 900:zn510 z1=z:n1=n::400 ;6;0,30;pte:900:zn530 z$="-"z/n>z1/n1530 $z2=z:n2=n:410:800 : & Ergebnis 0zeg1640  900:zn650 $z$="-"g1=g2z1/n1579820 4 7g$g$8204 9@3:s=s+2:r+1,s;g$:s=s+g$:g$=""g$="0" >18,0;"Wenn der Zhler 0 ist, einfach ENTER drcken !":"Zhler? ";i$:i$=""g$="0"r+1,s;"0" @Si$=""18,0;o$;19,0;o$:z=0:n=1:870f C&i$<480ůi$>579830> Di$i$830> HPz=i$:18,0;o$;19,0;o$;21,0;"Zhler ";z R7"Nenner ? ";i$:i$<480ůi$>579850R Wi$i$850R \(n=i$:21,0;o$:100d fq5,0;o$;6,0;o$:"Richtig geschrieben ? j/n ";i$:i$="j"0:ga=g$:za=z:na=n: p4i$="n"s=s-h-g$:j=02:r+j,s;n$:j z 8204 Auswahl der Bruchzahlen z=(*skg*4)+1 ?n=(*skg*4)+1:200:nop1920  Ganze Zahl auswhlen 9zuf=(*2):zuf=1g=(*9 )+1:  g=0: DVorrechnen bei und , wenn die eingegebene lsung falsch war #g1=0g2=01040 dr,17;"Forme um !":750:g10r+1,15;g1;"";n1;"+";z1;"=";g1*n1+z1 ?g20r+2,15;g2;"";n2;"+";z2;"=";g2*n2+z2 dr+3,15;"Der Nenner bleibt":760:z1=g1*n1+z1:400:z2=g2*n2+z2:410 z$=""r+1,17;"Multipliziere";r+2,15;"mit dem Kehrwert":z$="":760:400:x=z2:z2=n2:n2=x:410 r,17;"Krze !":750:r+1,15;"Neutraloperator":z=z1*z2:n=n1*n2:200:r+2,15;nop $nop=1r+3,1;"Man kann ";r+4,0;"nicht krzen!":750:r+3,1;n$;r+4,0;n$;n$;r,17;n$;r+1,15;n$;n$;r+2,15;n$:1120` ..n=nop:150:r+2,19;"=";p$ 8-z=z1:n=n2:200:z1=z1/nop:n2=n2/nop B-z=z2:n=n1:200:z2=z2/nop:n1=n1/nop V!760:400:410 `or,17;"Rechne :";r+1,15;"Zhler Zhler";r+2,15;"Nenner Nenner":760 jz=z1*z2:n=n1*n2:420 t#zz=z/nop:n=hn/nop:760:460-40(*(g=0) x+zz$="":" MULTIPLIKATION mit ganzen Zahlen"  600X dz=(g1*n1+z1)*(g2*n2+z2):n=n1*n2:200:ze=(g1*n1+z1)*(g2*n2+z2)/nop:ne=n1*n2/nop:550&  1010 |"" mit ganzen Zahlen i=1a: ?z$="":" DIVISION mit ganzen Zahlen"  600X dz=(g1*n1+z1)*n2:n=n1*(g2*n2+z2):200:ze=(g1*n1+z1)*n2/nop:ne=n1*(g2*n2+z2)/nop:550&  1010 p "+" mit g.Z. i=1a: ?z$="+":" ADDITION mit ganzen Zahlen" 600X:250 Mz=z1*hn/n1+z2*hn/n2:n=hn:200:ze=(z1*hn/n1+z2*hn/n2)/nop:ne=hn/nop *ge=g1+g2:ze>neze=ze-ne:ge=ge+1 580D:1200 d "-" mit g.Z. i=1a: @z$="-":" SUBTRAKTION mit ganzen Zahlen" 600X:250 7ge=g1-g2:zz=z1:z1/n120a$=a$(20) y:2:1;3,5;"Es freut mich sehr,";5,5;"mit dir zu ben.";7,5;a$;" !" 750::5,5;a$;" .";10 ,5;"brauchst du eine Erklrung";12 ,5;"zum Programm ?":"j fr ja","n fr nein ";i$ i$="n"i$="N"9000(# y4::"Hallo, ";a$;" !"''" Dieses COMPUTER-Programm soll dir helfen, alle Bruchrechnun- gen zu ben.":750 ''" Du kannst selbst auswhlen , welche Rechenart du ben willst."'"Ich stelle dir in jeder Runde ";a;" Aufgaben .":750 t''" Auerdem kannst du whlen, ob ich dir Aufgaben mit oder ohne ganzen Zahlen stellen soll.":750 :5:"Hallo ";a$;" !"''" Ich erwarte, da du bei deiner Antwort"'2'" gekrzt ";0;"und";3'" gemischte Zahlen";0''"berechnet hast (wenn mglich) !":750 ''" Wenn du, ";a$;","'"eine falsche Antwort gibst, rechne ich dir vor, wie die Auf-gabe richtig gelst werden kann."''"(Ich rechne vielleicht umstnd- licher als du. Aber ich bin nicht gescheit genug, einfacher zu rechnen.)":750 ګ:6:a$;", du kannst"'"selbst aussuchen,wie gro Zhlerund Nenner in meinen Aufgaben hchstens werden sollen. (Grerals 20 werden diese Zahlen nie.)":750 [i=07:i:.025{L,i:i:2;1'"Viel Spa, ";a$;" !":750 !* 9000(# !4Punkte und Note !o:''n$;a$;" ,"''"du hast in dieser Runde"''n$;pte;" PUNKTE erreicht."''3'"Willst du eine Note dafr ?" !" j - ja | n - nein ";i$ !i$="n"i$="N"8800`" ! Notengebung "note=6-pte ">''"Du hast die Note ";1;1;note;:" erreicht ." " 750 "`:" ";a$;" ,"''"alle Daten auer deinem Namen werden jetzt vernichtet !"''"Willst du"''''" noch fnf Aufgaben ben N "'''" einen anderen ben lassen E "'''" aufhren A"'''" ? " "ji$=:i$=""8810j" "ti$="e"i$="E"8300l "~i$="a"i$="A" "i$="n"i$="N"9000(# " 8810j" #( MENU  #2<pte=0::1,7;"BRUCHRECHEN-TRAINING" #< 3,5;"aufhren";5,5;" Multiplikation";7,5;" Division";9 ,5;"+ Addition";11 ,5;"- Subtraktion";13 ,5;"+ und -";15,5;" und ";17,5;"alle Rechenarten vermischt" #Fw19,0;"Steuere mit Taste 6() und 7() den > in die gewnschte Reihe und drcke dann Taste E !" #Pr=3:r,1;">" #Zi$=:i$=""9050Z# #dr,1;" " #ni$="6"r=r+2 #xi$="7"r=r-2 #Ei$="e"i$="E"1;1;6;r,0;o$:9150# #r=19r=3 #r=1r=17 #r,1;">" #""9130# # 9050Z# # r=3 #Ë2;19,0;" Whle jetzt und dann ENTERe : 1 fr Aufgaben ohne ganze Zahlen2 fr Aufgaben mit ganzen Zahlen" #w #ҹ3;18,0;"Welcher Schwierigkeitsgrad ? 1 Zahlen bis 4 2 bis 8 3 bis12 4 bis 16 5 bis20 und ENTER " #Nskg:skg1skg2skg3skg4skg59175# #$r=13 2000+w*100d #$r=152200+w*100d #$r=172400` +w*100d #$(r-1)*250+w*2000 &F"bruchtest"8000@::''" Bitte zurckspulen: !":"bruchtest" qTaBN O + v "brueche.p" : P P! f8 fM!\P;Ta! v>$8