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