API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 20th, 2018
73
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.92 KB | None | 0 0
raw download clone embed print report
  1. pr Minusnegativ :schwierigkeit :anzahl :anzahlplus
  2. wenn :anzahlplus > :anzahl -1 [statistik :richtig :falsch :anzahlplus rk]
  3. wenn :schwierigkeit=1 [setze "maxZahl 11]
  4. wenn :schwierigkeit=2 [setze "maxZahl 101]
  5. wenn :schwierigkeit=3 [setze "maxZahl 1001]
  6.  
  7. setze "anzahlplus :anzahlplus +1
  8. setze "Zahl1 zz :maxZahl
  9. setze "Zahl2 zz :maxZahl
  10. setze "ergebnis :Zahl1 - :Zahl2
  11. (dz [Was ergibt ] :Zahl1 [ - ] :Zahl2 [ ?])
  12. setze "lösung1 Fragebox [Ergebnis] [Wie lautet die Antwort ?]
  13. setze “lösung er :lösung1
  14. prüfe :ergebnis = :lösung
  15. WW [setze “richtig :richtig +1 Dz [Richtig !]]
  16. WF [setze “falsch :falsch +1 Dz [Falsch !]]
  17. Minusnegativ :schwierigkeit :anzahl :anzahlplus
  18. ende
  19.  
  20. pr Minuspositiv :schwierigkeit :anzahl :anzahlplus
  21. wenn :anzahlplus > :anzahl -1 [statistik :richtig :falsch :anzahlplus rk]
  22. wenn :schwierigkeit=1 [setze "maxZahl 11]
  23. wenn :schwierigkeit=2 [setze "maxZahl 101]
  24. wenn :schwierigkeit=3 [setze "maxZahl 1001]
  25.  
  26. setze "anzahlplus :anzahlplus +1
  27. setze "Zahl1 (zz :maxZahl) /2
  28. setze "Zahl2 (zz :maxZahl)/2
  29.  
  30. setze “Zahl3 :Zahl2 + :Zahl1
  31. setze “ergebnis :Zahl1
  32. (dz [Was ergibt ] :Zahl3 [ - ] :Zahl2 [ ?])
  33. setze "lösung1 Fragebox [Ergebnis] [Wie lautet die Antwort ?]
  34. setze “lösung er :lösung1
  35. prüfe :ergebnis = :lösung
  36. WW [setze “richtig :richtig +1 Dz [Richtig !]]
  37. WF [setze “falsch :falsch +1 Dz [Falsch !]]
  38. Minuspositiv :schwierigkeit :anzahl :anzahlplus
  39. ende
  40.  
  41. pr MinusStart :schwierigkeit :anzahl
  42. buttoncreate "MinusButtons "Negativ "negative_Zahlen -150 -25 150 50[Minusnegativ :schwierigkeit :anzahl :anzahlplus windowdelete "MinusButtons]
  43. buttoncreate "MinusButtons "Positiv "positive_Zahlen 0 -25 150 50[Minuspositiv :schwierigkeit :anzahl :anzahlplus windowdelete "MinusButtons]
  44. ende
  45.  
  46.  
  47. pr Addition :schwierigkeit :anzahl :anzahlplus
  48. wenn :anzahlplus > :anzahl -1[statistik :richtig :falsch :anzahlplus rk]
  49. wenn :schwierigkeit=1 [setze "maxZahl 11]
  50. wenn :schwierigkeit=2 [setze "maxZahl 101]
  51. wenn :schwierigkeit=3 [setze "maxZahl 1001]
  52.  
  53. setze “anzahlplus :anzahlplus +1
  54. setze "Zahl1 zz :maxZahl
  55. setze "Zahl2 zz :maxZahl
  56. setze "ergebnis :Zahl1 + :Zahl2
  57. (dz [Was ergibt ] :Zahl1 [ + ] :Zahl2 [ ?])
  58. setze "lösung1 Fragebox [Ergebnis] [Wie lautet die Antwort ?]
  59. setze “lösung er :lösung1
  60. prüfe :ergebnis = :lösung
  61. WW [setze “richtig :richtig +1 Dz [Richtig !]]
  62. WF [setze “falsch :falsch +1 Dz [Falsch !]]
  63. Addition :schwierigkeit :anzahl :anzahlplus
  64. ende
  65.  
  66. pr DivisionOhneKomma :schwierigkeit :anzahl :anzahlplus
  67. wenn :anzahlplus > :anzahl -1 [statistik :richtig :falsch :anzahlplus rk]
  68. wenn :schwierigkeit=1 [setze "maxZahl 11]
  69. wenn :schwierigkeit=2 [setze "maxZahl 101]
  70. wenn :schwierigkeit=3 [setze "maxZahl 1001]
  71.  
  72. setze “anzahlplus :anzahlplus +1
  73. setze "Zahl1 zz :maxZahl
  74. setze "Zahl2 zz :maxZahl
  75.  
  76. setze “Zahl3 :Zahl2 * :Zahl1
  77. setze “ergebnis :Zahl1
  78. (dz [Was ergibt ] :Zahl3 [ : ] :Zahl2 [ ?])
  79. setze "lösung1 Fragebox [Ergebnis] [Wie lautet die Antwort ?]
  80. setze “lösung er :lösung1
  81. prüfe :ergebnis = :lösung
  82. WW [setze “richtig :richtig +1 Dz [Richtig !]]
  83. WF [setze “falsch :falsch +1 Dz [Falsch !]]
  84. DivisionOhneKomma :schwierigkeit :anzahl :anzahlplus
  85.  
  86. ende
  87.  
  88. pr DivisionMitKomma :schwierigkeit :anzahl :anzahlplus
  89. wenn :anzahlplus > :anzahl -1 [statistik :richtig :falsch :anzahlplus rk]
  90. wenn :schwierigkeit=1 [setze "maxZahl 11]
  91. wenn :schwierigkeit=2 [setze "maxZahl 101]
  92. wenn :schwierigkeit=3 [setze "maxZahl 1001]
  93.  
  94. setze “anzahlplus :anzahlplus +1
  95. setze "Zahl1 zz :maxZahl
  96. setze "Zahl2 zz :maxZahl
  97. setze "ergebnis :Zahl1 / :Zahl2
  98. (dz [Was ergibt ] :Zahl1 [ : ] :Zahl2 [ ?])
  99. setze "lösung1 Fragebox [Ergebnis] [Wie lautet die Antwort ?]
  100. setze “lösung er :lösung1
  101. prüfe :ergebnis = :lösung
  102. WW [setze “richtig :richtig +1 Dz [Richtig !]]
  103. WF [setze “falsch :falsch +1 Dz [Falsch !]]
  104. Division :schwierigkeit :anzahl :anzahlplus
  105. ende
  106.  
  107. pr StarteDivision
  108. buttoncreate “DiviButtons “Ohne “Ergebnisse_ohne_Komma -200 -25 200 50[DivisionOhneKomma :schwierigkeit :anzahl :anzahlplus windowdelete “DiviButtons]
  109. buttoncreate “DiviButtons “Mit “Ergebnisse_mit_Komma 0 -25 200 50[DivisionMitKomma :schwierigkeit :anzahl :anzahlplus windowdelete “DiviButtons]
  110. ende
  111.  
  112. pr Mal :schwierigkeit :anzahl :anzahlplus
  113. wenn :anzahlplus > :anzahl -1[statistik :richtig :falsch :anzahlplus rk]
  114. wenn :schwierigkeit=1 [setze "maxZahl 11]
  115. wenn :schwierigkeit=2 [setze "maxZahl 101]
  116. wenn :schwierigkeit=3 [setze "maxZahl 1001]
  117.  
  118. setze “anzahlplus :anzahlplus +1
  119. setze "Zahl1 zz :maxZahl
  120. setze "Zahl2 zz :maxZahl
  121. setze "ergebnis :Zahl1 * :Zahl2
  122. (dz [Was ergibt ] :Zahl1 [ * ] :Zahl2 [ ?])
  123. setze "lösung1 Fragebox [Ergebnis] [Wie lautet die Antwort ?]
  124. setze “lösung er :lösung1
  125. prüfe :ergebnis = :lösung
  126. WW [setze “richtig :richtig +1 Dz [Richtig !]]
  127. WF [setze “falsch :falsch +1 Dz [Falsch !]]
  128. Mal :schwierigkeit :anzahl :anzahlplus
  129. ende
  130.  
  131.  
  132. pr Rechnen
  133. cs
  134. vi
  135. Schwierigkeit
  136. setze “anzahl1 fragebox [Anzahl] [Wie oft möchtest du spielen ?]
  137. setze “anzahl er :anzahl1
  138. Rechenart :schwierigkeit :anzahl
  139. nochmal
  140. ende
  141.  
  142. pr StarteRechnen
  143. setze “anzahlplus 0
  144. setze “richtig 0
  145. setze “falsch 0
  146. Rechnen
  147. ende
  148.  
  149. pr 2SpielerRechnen
  150. Spieler1Name
  151. Spieler2Name
  152. setze “anzahl1 fragebox [Anzahl] [Bis wie viel wollt ihr Spielen ?]
  153. setze “anzahl er :anzahl1
  154. 2SpielerRechenart :Spieler1Name :Spieler2Name
  155. 2SpielerVergleichen :richtig1 :richtig2 :Spieler1Name :Spieler2Name
  156. ende
  157.  
  158. pr 2Spielerrechenart :Spieler1Name :Spieler2Name
  159. buttoncreate "Taschenwindow "Plus "+ -100 100 100 100 [2SpielerPlus :anzahl :anzahlplus :Spieler1Name :Spieler2Name windowdelete “Taschenwindow]
  160. buttoncreate "Taschenwindow "Minus "- 0 100 100 100 [2SpielerMinus :anzahl :anzahlplus :Spieler1Name :Spieler2Name windowdelete “Taschenwindow]
  161. buttoncreate "Taschenwindow "Mal "* 100 100 100 100 [2SpielerMal :anzahl :anzahlplus :Spieler1Name :Spieler2Name windowdelete “Taschenwindow]
  162. buttoncreate "Taschenwindow "Geteilt "/ 200 100 100 100 [2SpielerGeteilt :anzahl :anzahlplus :Spieler1Name :Spieler2Name windowdelete “Taschenwindow]
  163. ende
  164.  
  165. pr 2SpielerPlus :anzahl :anzahlplus :Spieler1Name :Spieler2Name
  166. wenn anzahlplus > anzahl -1[2Spielervergleichen :richtig1 :richtig2 :Spieler1Name :Spieler2Name rk]
  167.  
  168. setze “Zahl11 fragebox [:Spieler1Name] [Wähle die 1.Zahl aus]
  169. setze “Zahl1 er :Zahl11
  170.  
  171. setze “Zahl21 fragebox [:Spieler1Name] [Wähle die 2.Zahl aus]
  172. setze “Zahl2 er :Zahl21
  173.  
  174. setze “Lösung1 fragebox [:Spieler2Name] [Was ergibt :Zahl1 + :Zahl2 ?]
  175. setze “Lösung er :Lösung1
  176.  
  177. setze “ergebnis :Zahl1 + :Zahl2
  178.  
  179. Prüfe :Zahl1 = :Zahl2
  180. WW [setze “richtig2 :richtig2 +1]
  181.  
  182. setze “Zahl11 fragebox [:Spieler2Name] [Wähle die 1.Zahl aus]
  183. setze “Zahl1 er :Zahl11
  184.  
  185. setze “Zahl21 fragebox [:Spieler2Name] [Wähle die 2.Zahl aus]
  186. setze “Zahl2 er :Zahl21
  187.  
  188. setze “Lösung1 fragebox [:Spieler1Name] [Was ergibt :Zahl1 + :Zahl2 ?]
  189. setze “Lösung er :Lösung1
  190.  
  191. setze “ergebnis :Zahl1 + :Zahl2
  192.  
  193. Prüfe :Zahl1 = :Zahl2
  194. WW [setze “richtig1 :richtig1 +1]
  195.  
  196. setze “anzahlplus :anzahlplus +1
  197.  
  198. 2SpielerPlus :anzahl :anzahlplus :Spieler1Name :Spieler2Name
  199. ende
  200.  
  201. pr 2SpielerVergleichen :richtig1 :richtig2 :Spieler1Name :Spieler2Name
  202. Wenn :richtig1 > :richtig2 [(DZ :Spieler1Name[ hat gewonnen !])]
  203. Wenn richtig2 > :richtig1 [(DZ :Spieler2Name[ hat gewonnen !])]
  204. Wenn richtig1 = :richtig2 [DZ [Unentschieden !]]
  205.  
  206. setze "nochmal yesnobox [Nochmal] [Willst du nochmal rechnen ?]
  207. Wenn :nochmal="wahr [2SpielerRechnen]
  208. wenn :nochmal="falsch [dz [Bis bald !]]
  209. ende
  210.  
  211.  
  212. pr Spieler1Name
  213. setze “Spieler1Name1 fragebox [Spieler1] [Was ist dein Name ?]
  214. setze “Spieler1Name er :Spieler1Name1
  215. setze “korrekterName yesnobox [Spieler1] [Dein Name ist :Spieler1Name. Ist das korrekt ?]
  216. wenn korrekterName=“falsch [Spieler1Name]
  217. ende
  218. pr Spieler2Name
  219. setze “Spieler2Name2 fragebox [Spieler2] [Was ist dein Name ?]
  220. setze “Spieler2Name er :Spieler2Name2
  221. setze “korrekterName1 yesnobox [Spieler2] [Dein Name ist :Spieler2Name. Ist das korrekt ?]
  222. wenn korrekterName1=“falsch [Spieler1Name]
  223. ende
  224.  
  225. pr nochmal
  226. setze "nochmal yesnobox [Nochmal] [Willst du nochmal rechnen ?]
  227. Wenn :nochmal="wahr [rechnen]
  228. wenn :nochmal="falsch [dz [Bis bald !]]
  229. ende
  230.  
  231. pr Rechenart :schwierigkeit :anzahl
  232. setze "SRechnen selectbox [Rechenart] [Plus Minus Mal Geteilt]
  233. wenn :SRechnen="1 [Addition :schwierigkeit :anzahl]
  234. wenn :SRechnen="2 [StarteMinus]
  235. wenn :SRechnen="3 [Mal :schwierigkeit :anzahl]
  236. wenn :SRechnen="4 [StarteDivision]
  237. ende
  238.  
  239. pr Schwierigkeit
  240. buttoncreate "S_Buttons "Leicht "Leicht -150 -25 100 50[setze "schwierigkeit 1 windowdelete "S_Buttons]
  241. buttoncreate "S_Buttons "Mittel "Mittel -50 -25 100 50[setze "schwierigkeit 2 windowdelete "S_Buttons]
  242. buttoncreate "S_Buttons "Schwer "Schwer 50 -25 100 50[setze "schwierigkeit 3 windowdelete "S_Buttons]
  243. ende
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!