home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 131 / Tiger_Disk_131_2005-07-22_Tiger-Crew-Disk_de_Side_B.d64 / mathe (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  136 lines
  1. 10 poke53281,6:poke53280,6:print"[147][158]          mathematikprogramme"
  2. 20 print"          ==================="
  3. 30 print" 1 - euklidischer algorithmus"
  4. 40 print" 2 - dreiecksflaeche"
  5. 50 print" 3 - quadratische gleichung"
  6. 60 print" 4 - fakultaet"
  7. 70 print" 5 - binomialkoeffizient"
  8. 80 print" 6 - kartesische -> polarkoordinaten"
  9. 90 print" 7 - primfaktoren"
  10. 100 print" 8 - programmende"
  11. 110 print"        waehlen sie bitte !"
  12. 120 geti$:ifi$=""then120
  13. 130 i=val(i$):ifi<1ori>8then120
  14. 140 ifi=8thenprint"[147]":print"   tschuess !":print"":end
  15. 150 onigoto170,360,470,750,860,1020,1220
  16. 160 :
  17. 170 print"[147]      euklidischer algorithmus"
  18. 180 print"      ************************
  19. 190 [133]"  zahlen a,b";a,b
  20. 200 [139]a[177]b[167]240
  21. 210 z[178]a
  22. 220 a[178]b
  23. 230 b[178]z
  24. 240 m[178]a
  25. 250 n[178]b
  26. 260 [139]m[178]0[167]310
  27. 270 r[178]n[171][181](n[173]m)[172]m
  28. 280 n[178]m
  29. 290 m[178]r
  30. 300 [137]260
  31. 310 [153]" ->gr. gem. teiler=";n:[153]
  32. 320 [153]" ->kl. gem. vielfaches=";a[172]b[173]n
  33. 330 [153]" 1 - weiter   2 - menue"
  34. 340 [161]x$:[139]x$[179][177]"1"[175]x$[179][177]"2"[167]340
  35. 350 k[178][197](x$):[145]k[137]170,10
  36. 360 [153]"load           dreiecksflaeche"
  37. 370 [153]"         ================"
  38. 380 [133]"  seite a=";a
  39. 390 [133]"  seite b=";b
  40. 400 [133]"  seite c=";c
  41. 410 s[178](a[170]b[170]c)[173]2:[139]s[178]0[167][128]
  42. 420 f[178][186](s[172](s[171]a)[172](s[171]b)[172](s[171]c))
  43. 430 [153]"  flaeche des dreiecks =";f
  44. 440 [153]" 1 - weiter   2 - menue"
  45. 450 [161]x$:[139]x$[179][177]"1"[175]x$[179][177]"2"[167]450
  46. 460 k[178][197](x$):[145]k[137]360,10
  47. 470 [153]"load       quadratische gleichung"
  48. 480 [153]"       ======================"
  49. 490 [153]"          valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  50. 500 [153]"          (NULL) a*x^2+b*x+c=0 (NULL)"
  51. 510 [153]"          (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  52. 520 [133]"koeffizienten a, b, c ";a,b,c
  53. 530 [139]a[179][177]0[167]610
  54. 540 [139]b[179][177]0[167]580
  55. 550 [139]c[178]0[167][153]"eingabefehler !":[137]490
  56. 580 x[178][171]c[173]b
  57. 590 [153]"lineare gleichung: x=";x
  58. 600 [137]720
  59. 610 u[178]b[173](2[172]a)
  60. 620 d[178]u[172]u[171]c
  61. 630 v[178][186]([182](d))
  62. 640 [139]d[179]0[167]700
  63. 650 x1[178][171]u[170]v
  64. 660 x2[178][171]u[171]v
  65. 670 [153]"loesungen:   x1=";x1
  66. 680 [153][163]13);"x2=";x2
  67. 690 [137]720
  68. 700 [153]"loesungen:   x1=";[171]u;"+";v;"i"
  69. 710 [153][163]13);"x2=";[171]u;"-";v;"i"
  70. 720 [153]" 1 - weiter   2 - menue"
  71. 730 [161]x$:[139]x$[179][177]"1"[175]x$[179][177]"2"[167]730
  72. 740 k[178][197](x$):[145]k[137]470,10
  73. 750 [153]"load           fakultaet"
  74. 760 [153]"           ========="
  75. 770 [133]"  natuerliche zahl";n
  76. 775 [139]n[177]33[167][153]"zu gross!":[137]770
  77. 780 f[178]1:[139]n[178]0[176]n[178]1[167]810
  78. 790 i[178]1
  79. 800 f[178]f[172]i:i[178]i[170]1:[139]i[179][178]n[167]800
  80. 810 [153]"  ->";n;[199](8);"!=";f
  81. 820 [153]" 1 - weiter   2 - menue"
  82. 830 [161]x$:[139]x$[179][177]"1"[175]x$[179][177]"2"[167]830
  83. 840 k[178][197](x$):[145]k[137]750,10
  84. 850 [128]
  85. 860 [153]"load         binomialkoeffizient"
  86. 870 [153]"         ==================="
  87. 880 [133]"  natuerliche zahlen n,k";n,k
  88. 890 b1[178]n[179]0[176][168]n[178][181](n)
  89. 900 b2[178]k[179]0[176]k[177]n[176][168]k[178][181](k)
  90. 910 [139]b1[176]b2[167][153]"fehleingabe!":[137]880
  91. 920 b[178]1
  92. 930 [139]k[178]0[176]k[178]n[167]980
  93. 940 i[178]1
  94. 950 b[178]b[172](n[170]1[171]i)[173]i
  95. 960 i[178]i[170]1
  96. 970 [139]i[179][178]k[167]950
  97. 980 [153]" --->";n;"ueber";k;"=";b
  98. 990 [153]" 1 - weiter   2 - menue":
  99. 1000 [161]x$:[139]x$[179][177]"1"[175]x$[179][177]"2"[167]1000
  100. 1010 k[178][197](x$):[145]k[137]860,10
  101. 1020 [153]"load    kartesische --> polarkoordinaten"
  102. 1030 [153]"    ================================"
  103. 1040 [153]"  kartesische koordinaten   "
  104. 1050 [153]""[163]18):[133]" x=";x
  105. 1060 [153]""[163]18):[133]" y=";y
  106. 1070 r[178][186](x[172]x[170]y[172]y)
  107. 1080 [139]r[178]0[167][128]
  108. 1090 [139]x[179][177]0[167]1130
  109. 1100 [139]y[177]0[167]w[178]90:[137]1120
  110. 1110 w[178]270
  111. 1120 [137]1160
  112. 1130 w[178]180[173][255][172][193](y[173]x)
  113. 1140 [139]x[179]0[167]w[178]w[170]180:[137]1160
  114. 1150 [139]y[179]0[167]w[178]w[170]360
  115. 1160 [153]"  polarkoordinaten  "
  116. 1170 [153]""[163]20)"r=";r
  117. 1180 [153]""[163]20)"w=";w;"grad"
  118. 1190 [153]" 1 - weiter   2 - menue"
  119. 1200 [161]x$:[139]x$[179][177]"1"[175]x$[179][177]"2"[167]1200
  120. 1210 k[178][197](x$):[145]k[137]1020,10
  121. 1220 [153]"load         primfaktorenzerlegung   "
  122. 1230 [153]"         ======================"
  123. 1240 [133]"  natuerliche zahl n=";n
  124. 1250 [153]"   -->primfaktoren "
  125. 1260 [129] p[178]2[164][186](n)
  126. 1270 [139]p[177]3[167]p[178]p[170]1
  127. 1280 r[178]n[173]p:[139]r[177][181](r)[167]1320
  128. 1290 [153]p;
  129. 1300 n[178]r
  130. 1310 [137]1280
  131. 1320 [130]p
  132. 1330 [139]n[177]1[167][153]n;
  133. 1350 [153]:[153]" 1 - weiter   2 - menue"
  134. 1360 [161]x$:[139]x$[179][177]"1"[175]x$[179][177]"2"[167]1360
  135. 1370 k[178][197](x$):[145]k[137]1220,10
  136.