home *** CD-ROM | disk | FTP | other *** search
/ C64 Fever 92 #2 / C64_Fever_92-02_1992_-_de.d64 / mathehilfe (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  365 lines
  1. 110 rem *** mathehilfe *****************
  2. 140 rem
  3. 200 gosub 3610
  4. 210 for i=1 to 2000:next i
  5. 220 poke 53280,0:poke 53281,0
  6. 230 print"[147]          m a t h e m a t i k    [146]"
  7. 240 print"      geschrieben von k-d mueller"
  8. 250 print"                       "
  9. 260 for a = 1 to 2000: next a
  10. 270 poke 53280,2:poke 53281,6:print"[147]"
  11. 280 print"[158]          h a u p t m e n u e [146]"
  12. 290 print"      was moechtest du errechnen ?"
  13. 300 print"  (bitte entsprechende ziffer waehlen)"
  14. 310 print tab(5)"1= formelausg.     2= prozent"
  15. 320 print tab(5)"3= flaechen        4= koerper"
  16. 330 print tab(5)"*= ende"
  17. 340 print"             0= hauptmenue"
  18. 350 input"ziffer[146]";b$
  19. 360 if b$="1" then gosub 420
  20. 370 if b$="2" then gosub 760
  21. 380 if b$="3" then gosub 1330
  22. 390 if b$="4" then gosub 2110
  23. 400 if b$="0" then 270
  24. 410 if b$="*" then print"[147]          t s c h u e s s !!  [146]":end
  25. 420 print"[147]grundwert   : [158]  g=a*100/p            [146]"
  26. 430 print"prozentsatz : [158]  p=w*100/g            [146]"
  27. 440 print"prozentwert : [158]  w=p*g/100            [146]"
  28. 450 print"jahreszins  : [158]  z=k*p/100            [146]"
  29. 460 print"monatszins  : [158]  z=k*p/100/12         [146]"
  30. 470 print"kapital     : [158]  k=z*100/p            [146]"
  31. 480 print"zinssatz    : [158]  p=z*100/k            [146]"
  32. 490 print"zeitber.    : [158]  z2=k*p/100           [146]"
  33. 500 print"zeitber.    : [158]  i=z1/z2              [146]"
  34. 510 print"recteckumf. : [158]  u=l+b+l+b            [146]"
  35. 520 print"rechteckfl. : [158]  f=l*b                [146]"
  36. 530 print"quadr. fl.  : [158]  f=s*s                [146]"
  37. 540 print"quadr. umf. : [158]  u=s*4                [146]"
  38. 550 print"dreieck fl. : [158]  f=g*h/2              [146]"
  39. 560 print"dreieck umf.: [158]  u=g*3                [146]"
  40. 570 print"kreisflaeche: [158]  f=r^2*[255]              [146]"
  41. 580 print"kreisumfang : [158]  u=2*[255]*r              [146]"
  42. 590 print"kreisringfl.: [158]  f=[255]*(r(2)^2-r(1)^2)  [146]"
  43. 600 print"ellipsenfl. : [158]  f=[255]*a*b              [146]"
  44. 610 print"kugelvol.   : [158]  v=4/3*[255]*r^3          [146]"
  45. 620 print"kugeloberfl.: [158]  o=4*[255]*r^2            [146]"
  46. 630 print:input"zum weiterfahren << return >> druecken";a$:print
  47. 640 print"[147]wuerfelvol. : [158]  v=k^3                [146]"
  48. 650 print"quadervol.  : [158]  v=a^2*c              [146]"
  49. 660 print"quaderoberfl: [158]  o=2*a^2+4*a*b        [146]"
  50. 670 print"pyram.vol.  : [158]  v=1/3*k*k*h          [146]"
  51. 680 print"pyram.oberf.: [158]  o=g+(k*h/2*4)        [146]"
  52. 690 print"zylindervol.: [158]  v=[255]*r^2*h            [146]"
  53. 700 print"zylinderob. : [158]  o=2*[255]*r*(r+h)        [146]"
  54. 710 print"kegelvol.   : [158]  v=[255]*r^2/3*h          [146]"
  55. 720 print"kegeloberfl.: [158]  o=[255]*r*(r+s)          [146]"
  56. 730 input"noch einmal anzeigen? (j/n)   j[157][157][157]";n$
  57. 740 if n$="j" then 420
  58. 750 if n$<>"j" then 270
  59. 760 print"[147]            prozentrechnung  [146]":poke 53280,11
  60. 770 print"  (bitte entsprechende ziffer waehlen)"
  61. 780 print tab(5)"1= grundwert         2= prozentsatz"
  62. 790 print tab(5)"3= prozentwert       4= zinsen"
  63. 800 print tab(5)"0= hauptmenue"
  64. 810 input"ziffer[146]";d$
  65. 820 if d$="1" then 870
  66. 830 if d$="2" then 1020
  67. 840 if d$="3" then 1170
  68. 850 if d$="4" then 2260
  69. 860 if d$="0" then 270
  70. 870 print"[147]              grundwert  [146]":poke 53280,12
  71. 880 print"[158]beispiel:  herr e. ist mit 42% an "
  72. 890 print"einem geschaeft beteiligt."
  73. 900 print"er bekommt vom gewinn 6300 dm ausbezahlt"
  74. 910 print"wie hoch ist der gesamte gewinn?"
  75. 920 print"grundwert(g)=6300dm*100/42;g=1500dm"
  76. 930 print"----------------------------------------"
  77. 940 input"wieviel %";p
  78. 950 input"anteil=";a
  79. 960 g=a*100/p
  80. 970 print"der grundwert betraegt "g;" dm"
  81. 980 print"[145][145][145][158] g=a*100/p [146]"
  82. 990 input"noch eine berechnung? (j/n)   j[157][157][157]";n$
  83. 1000 if n$="j" then 870
  84. 1010 if n$<>"j" then 270
  85. 1020 print"[147]              prozentsatz  [146]":poke 53280,13
  86. 1030 print"[158]beispiel:  in einer firma mit 750"
  87. 1040 print"mitarbeitern sind 140 frauen be-"
  88. 1050 print"schaeftigt. wieviel % der belegschaft"
  89. 1060 print"sind frauen?"
  90. 1070 print"p=140*100/750; p=18,7%"
  91. 1080 print"----------------------------------------"
  92. 1090 input"gesamt";g
  93. 1100 input"anteil";w
  94. 1110 p=w*100/g
  95. 1120 print"[158]  p=w*100/g  [146]"
  96. 1130 print"der prozentsatz betraegt";p;"%"
  97. 1140 input"noch eine berechnung? (j/n)  j[157][157][157]";n$
  98. 1150 if n$="j" then 1020
  99. 1160 if n$<>"j" then 270
  100. 1170 print"[147]             prozentwert  [146]":poke 53280,14
  101. 1180 print"[158]beispiel:  herr w. kauft einen"
  102. 1190 print"farbfernseher fuer 2400 dm.
  103. 1200 [153]"bei barzahlung gibt der haendler 3%"
  104. 1210 [153]"rabatt. wieviel dm spart herr w.,"
  105. 1220 [153]"wenn er bar bezahlt?"
  106. 1230 [153]"w=3*2400 dm/100; w=72 dm"
  107. 1240 [153]"----------------------------------------"
  108. 1250 [133]"gesamtwert";g
  109. 1260 [133]"prozentsatz";p
  110. 1270 w[178]p[172]g[173]100
  111. 1280 [153]"sys  w=p*g/100  wait"
  112. 1290 [153]"der prozentwert betraegt ";w "dm"
  113. 1300 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  114. 1310 [139] n$[178]"j" [167] 1170
  115. 1320 [139] n$[179][177]"j" [167] 270
  116. 1330 [153]"load welche flaeche soll berechnet werden ?"
  117. 1340 [153]"  (bitte entsprechende ziffer waehlen)"
  118. 1350 [153] [163]5)"1= rechteck      2= quadrat"
  119. 1360 [153] [163]5)"3= dreieck       4= kreis"
  120. 1370 [153] [163]5)"5= kreisring     6= ellipse"
  121. 1380 [153] [163]5)"*= ende          0= hauptmenue"
  122. 1390 [133]"zifferwait";d$
  123. 1400 [139] d$[178]"1" [167] [141] 1480
  124. 1410 [139] d$[178]"2" [167] [141] 1590
  125. 1420 [139] d$[178]"3" [167] [141] 1690
  126. 1430 [139] d$[178]"4" [167] [141] 1820
  127. 1440 [139] d$[178]"5" [167] [141] 1930
  128. 1450 [139] d$[178]"6" [167] [141] 2020
  129. 1460 [139] d$[178]"0" [167] 270
  130. 1470 [139] d$[178]"*" [167] [128]
  131. 1480 [153]"load           rechteckberechnung  wait":[151] 53280,3
  132. 1490 [133]"laengewait";l
  133. 1500 [133]"breitewait";b
  134. 1510 f[178]l[172]b:u[178]l[170]b[170]l[170]b
  135. 1520 [153]"flaeche=";f
  136. 1530 [153] [163]20)"onsys> f=l*b <wait"
  137. 1540 [153]"umfang=";u
  138. 1550 [153] [163]20)"onsys> u=l+b+l+b <wait"
  139. 1560 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  140. 1570 [139] n$[178]"j" [167] 1480
  141. 1580 [139] n$[179][177]"j" [167]270
  142. 1590 [153]"load           quadratberechnung  wait":[151] 53280,4
  143. 1600 [133]"seitenlaengewait";s
  144. 1610 f[178]s[172]s:u[178]s[172]4
  145. 1620 [153]"flaeche=";f
  146. 1630 [153]"onsys  f=s*s  wait"
  147. 1640 [153]"umfang=";u
  148. 1650 [153]"onsys  u=s*4  wait"
  149. 1660 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  150. 1670 [139] n$[178]"j" [167] 1590
  151. 1680 [139] n$[179][177]"j" [167] 270
  152. 1690 [153]"load           dreieckberechnung  wait":[151] 53280,5
  153. 1700 [153]"        (gleichseitiges dreieck)"
  154. 1710 [133]"grundliniewait";g
  155. 1720 [133]"hoehewait";h
  156. 1730 u[178]g[172]3
  157. 1740 f[178]g[172]h[173]2
  158. 1750 [153]"flaeche=";f
  159. 1760 [153]"onsys  f=g*h/2  wait"
  160. 1770 [153]"umfang=";u
  161. 1780 [153]"onsys  u=g*3    wait"
  162. 1790 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  163. 1800 [139] n$[178]"j" [167] 1690
  164. 1810 [139] n$[179][177]"j" [167] 270
  165. 1820 [153]"load            kreisberechnung  wait":[151] 53280,6
  166. 1830 [133]"radiuswait";r
  167. 1840 f[178]r[174]2[172][255]
  168. 1850 u[178]2[172][255][172]r
  169. 1860 [153]"flaeche=";f
  170. 1870 [153]"onsys  f=r^2*(NULL)  wait"
  171. 1880 [153]"umfang=";u
  172. 1890 [153]"onsys  u=2*(NULL)*r  wait"
  173. 1900 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  174. 1910 [139]  n$[178]"j" [167] 1820
  175. 1920 [139] n$[179][177]"j"  [167] 270
  176. 1930 [153]"load          kreisringberechnung  wait":[151] 53280,7
  177. 1940 [133]"radius iwait";r(1)
  178. 1950 [133]"radius await";r(2)
  179. 1960 f[178][255][172](r(2)[174]2[171]r(1)[174]2)
  180. 1970 [153]"kreisringflaeche=";f
  181. 1980 [153]"sys  f=(NULL)*(r(2)^2-r(1)^2)  wait"
  182. 1990 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  183. 2000 [139]  n$[178]"j" [167] 1930
  184. 2010 [139] n$[179][177]"j" [167] 270
  185. 2020 [153]"load           ellipsenberechnung  wait":[151] 53280,1
  186. 2030 [133]"breitewait";a
  187. 2040 [133]"hoehewait";b
  188. 2050 f[178][255][172]a[172]b
  189. 2060 [153]"flaeche=";f
  190. 2070 [153]"onsys  f=(NULL)*a*b  wait"
  191. 2080 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  192. 2090 [139] n$ [178]"j" [167] 2020
  193. 2100 [139] n$[179][177]"j" [167] 270
  194. 2110 [153]"load           koerperberechnung  wait":[151] 53280,8
  195. 2120 [153]"  (bitte entsprechende ziffer waehlen)"
  196. 2130 [153] [163]5)"1= kugel           2= wuerfel"
  197. 2140 [153] [163]5)"3= quader          4= pyramide"
  198. 2150 [153] [163]5)"5= zylinder        6= kegel"
  199. 2160 [153] [163]5)"*= ende            0= hauptmenue"
  200. 2170 [133]"zifferwait";d$
  201. 2180 [139] d$[178]"1" [167] 2880
  202. 2190 [139] d$[178]"2" [167] 2990
  203. 2200 [139] d$[178]"3" [167] 3100
  204. 2210 [139] d$[178]"4" [167] 3220
  205. 2220 [139] d$[178]"5" [167] 3350
  206. 2230 [139] d$[178]"6" [167] 3470
  207. 2240 [139] d$[178]"*" [167] [128]
  208. 2250 [139] d$[178]"0" [167] 270
  209. 2260 [153]"load              zinsrechnen  wait"
  210. 2270 [153]" (bitte entsprechende ziffer waehlen)"
  211. 2280 [153] [163]5)"1= zinsen (j)       2= zinsen (m)"
  212. 2290 [153] [163]5)"3= kapital          4= zinssatz"
  213. 2300 [153] [163]5)"5= zeitber.         0= hauptmenue"
  214. 2310 [133]"zifferwait";d$
  215. 2320 [139] d$[178]"1" [167] 2380
  216. 2330 [139] d$[178]"2" [167] 2470
  217. 2340 [139] d$[178]"3" [167] 2560
  218. 2350 [139] d$[178]"4" [167] 2650
  219. 2360 [139] d$[178]"5" [167] 2740
  220. 2370 [139] d$[178]"0" [167] 270
  221. 2380 [153]"load             jahreszinsen  wait":[151] 53280,15
  222. 2390 [133]"kapital";k
  223. 2400 [133]"zinssatz";p
  224. 2410 z[178]k[172]p[173]100
  225. 2420 [153]"die zinsen betragen fuer 1 jahr";z;" dm"
  226. 2430 [153]"sys  z=k*p/100  wait"
  227. 2440 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  228. 2450 [139] n$[178]"j" [167] 2380
  229. 2460 [139] n$[179][177]"j" [167] 270
  230. 2470 [153]"load             monatszinsen  wait":[151] 53280,0
  231. 2480 [133]"kapital";k
  232. 2490 [133]"zinssatz";p
  233. 2500 z[178]k[172]p[173]100[173]12
  234. 2510 [153]"die zinsen betragen im monat";z;" dm"
  235. 2520 [153]"sys  z=k*p/100/12  wait"
  236. 2530 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  237. 2540 [139] n$[178]"j" [167] 2470
  238. 2550 [139] n$[179][177]"j" [167] 270
  239. 2560 [153]"load             k a p i t a l  wait":[151] 53280,1
  240. 2570 [133]"zinssatz";p
  241. 2580 [133]"zinsen";z
  242. 2590 k[178]z[172]100[173]p
  243. 2600 [153]"das kapital betraegt";k;" dm"
  244. 2610 [153]"sys  k=z*100/p  wait"
  245. 2620 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  246. 2630 [139] n$[178]"j" [167] 2560
  247. 2640 [139] n$[179][177]"j" [167] 270
  248. 2650 [153]"load               zinssatz  wait":[151] 53280,2
  249. 2660 [133]"kapital";k
  250. 2670 [133]"gezahlte zinsen";z
  251. 2680 p[178]z[172]100[173]k
  252. 2690 [153]"der zinssatz betraegt";p;" %"
  253. 2700 [153]"sys  p=z*100/k  wait"
  254. 2710 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  255. 2720 [139] n$[178]"j" [167] 2650
  256. 2730 [139] n$[179][177]"j" [167] 270
  257. 2740 [153]"load            zeitberechnung  wait":[151] 53280,2
  258. 2750 [133]"kapital";k
  259. 2760 [133]"zinssatz";p
  260. 2770 [133]"zinsen";z 1
  261. 2780 z 2[178]k[172]p[173]100
  262. 2790 i[178]z 1 [173]z 2
  263. 2800 [153]"das kapital in hoehe von";k;"dm bringt die zinsen"
  264. 2810 [153]"in der hoehe von";z 1;" dm in einem"
  265. 2820 [153]"zeitraum von";i;" jahren"
  266. 2830 [153]"sys  z2=k*p/100  wait"
  267. 2840 [153]"sys   i=z1/z2    wait"
  268. 2850 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  269. 2860 [139] n$[178]"j" [167] 2740
  270. 2870 [139] n$[179][177]"j" [167] 270
  271. 2880 [153]"load            kugelberechnung  wait":[151] 53280,9
  272. 2890 [133]"radiuswait";r
  273. 2900 v[178]4[173]3[172][255][172]r[174]3
  274. 2910 o[178]4[172][255][172]r[174]2
  275. 2920 [153]"volumen=";v
  276. 2930 [153]"onsys  v=4/3*(NULL)*r^3  wait"
  277. 2940 [153]"oberflaeche=";o
  278. 2950 [153]"onsys  o=4*(NULL)*r^2  wait"
  279. 2960 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  280. 2970 [139] n$[178]"j" [167] 2880
  281. 2980 [139] n$[179][177]"j" [167] 270
  282. 2990 [153]"load           wuerfelberechnung  wait":[151] 53280,10
  283. 3000 [133]"kantenlaengewait";k
  284. 3010 o[178]6[172]k[174]2
  285. 3020 v[178]k[174]3
  286. 3030 [153]"volumen=";v
  287. 3040 [153]"onsys  v=k^3  wait"
  288. 3050 [153]"oberflaeche=";o
  289. 3060 [153]"onsys  o=6*k^2  wait"
  290. 3070 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  291. 3080 [139] n$[178]"j" [167] 2990
  292. 3090 [139] n$[179][177]"j" [167] 270
  293. 3100 [153]"load           quaderberechnung  wait":[151]  53280,11
  294. 3110 [133]"kantenlaenge b";a
  295. 3120 [133]"kantenlaenge h";c
  296. 3130 v[178]a[174]2[172]c
  297. 3140 o[178]2[172]a[174]2[170]4[172]a[172]c
  298. 3150 [153]"volumen=";v
  299. 3160 [153]"onsys  v=a^2*c  wait"
  300. 3170 [153]"oberflaeche=";o
  301. 3180 [153]"onsys  o=2*a^2+4*a*b  wait"
  302. 3190 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  303. 3200 [139] n$[178]"j" [167] 3100
  304. 3210 [139] n$[179][177]"j" [167] 270
  305. 3220 [153]"load          pyramidenberechnung  wait":[151] 53280,12
  306. 3230 [133]"kantenlaenge";k
  307. 3240 [133]"hoehe";h
  308. 3250 v[178]1[173]3[172]k[172]k[172]h
  309. 3260 o[178]g[170](k[172]h[173]2[172]4)
  310. 3270 g[178]k[174]2
  311. 3280 [153]"volumen=";v
  312. 3290 [153]"onsys  v=1/3*k*k*h  wait"
  313. 3300 [153]"oberflaeche=";o
  314. 3310 [153]"onsys  o=g+(k*h/2*4)  wait"
  315. 3320 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  316. 3330 [139] n$[178]"j" [167] 3220
  317. 3340 [139] n$[179][177]"j" [167] 270
  318. 3350 [153]"load          zylinderberechnung  wait":[151] 53280,13
  319. 3360 [133]"radiuswait";r
  320. 3370 [133]"hoehewait";h
  321. 3380 v[178][255][172]r[174]2[172]h
  322. 3390 o[178]2[172][255][172]r[172](r[170]h)
  323. 3400 [153]"volumen=";v
  324. 3410 [153]"onsys  v=(NULL)*r^2*h  wait"
  325. 3420 [153]"oberflaeche=";o
  326. 3430 [153]"onsys  o=2*(NULL)*r*(r+h)  wait"
  327. 3440 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  328. 3450 [139] n$[178]"j" [167] 3350
  329. 3460 [139] n$[179][177]"j" [167] 270
  330. 3470 [153]"load            kegelberechnung  wait":[151] 53280,14
  331. 3480 [133]"radiuswait";r
  332. 3490 [133]"hoehewait";h
  333. 3500 v[178][255][172]r[174]2[173]3[172]h
  334. 3510 s[178][186](h[174]2[170]r[174]2)
  335. 3520 o[178][255][172]r[172](r[170]s)
  336. 3530 [153]"volumen=";v
  337. 3540 [153]"onsys  v=(NULL)*r^2/3*h  wait"
  338. 3550 [153]"sys  s=sqr(h^2+r^2) wait"
  339. 3560 [153]"oberflaeche=";o
  340. 3570 [153]"onsys  o=(NULL)*r*(r+s)  wait"
  341. 3580 [133]"noch eine berechnung? (j/n)   jcmdcmdcmd";n$
  342. 3590 [139] n$[178]"j" [167] 3470
  343. 3600 [139] n$[179][177]"j" [167] 270
  344. 3610 [153]"loadstop":[151] 53280,2:[151] 53281,9
  345. 3620 [153] tl$
  346. 3630 tx$(1)[178]"mathehilfe-programm !"
  347. 3640 [153]:[153]:[153]
  348. 3650 tx$(2)[178]"                   dieses programm hilft bei ganz"
  349. 3660 [153]:[153]:[153]
  350. 3670 tx$(3)[178]" normalen rechenaufgaben."
  351. 3680 tx$(4)[178]"                                    klaus-dieter mueller"
  352. 3690 tx$(5)[178]"                    im pfefferstueck 11"
  353. 3700 tx$(6)[178]"                     6295 merenberg 1"
  354. 3710 tx$(7)[178]"                        tel.: 06471/52545"
  355. 3720 [136] z[178]7
  356. 3730 [129] k[178]1[164] z
  357. 3740 l[178][195](tx$(k))
  358. 3750 [129] i[178] 1 [164] l
  359. 3760 [153] [202](tx$(k),i,1);
  360. 3770 [129] y[178] 1 [164] 20:[130] y
  361. 3780 [130] i
  362. 3790 [130] k
  363. 3800 [153] ta$
  364. 3810 [142]
  365.