home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_B.d64 / formeln (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  122 lines
  1. 10 rem formeln
  2. 20 print"[147]":poke53280,6:printchr$(5)
  3. 30 printchr$(14)
  4. 40 print" "
  5. 50 print" "
  6. 60 print" "
  7. 70 print" "
  8. 80 print" "
  9. 90 print"   [199][197][207][205][197][212][210][201][197][198][207][210][205][197][204][206] [218][213][210][160][194][197][210][197][195][200][206][213][206][199]"
  10. 100 print" "
  11. 110 print"                 [214][207][206]"
  12. 120 print" "
  13. 130 print"              [203][207][197][210][208][197][210][206]"
  14. 140 getan$
  15. 150 ifan$=""then140
  16. 160 print"[147]"
  17. 170 print"[198]ormeln:"
  18. 180 print" "
  19. 190 print"[209]uader                       (1)"
  20. 200 print"[215]uerfel                      (2)"
  21. 210 print"[208]risma                       (3)"
  22. 220 print"[208]yramide und [208]yramidenstumpf (4)"
  23. 230 print"[218]ylinder und [200]ohlzylinder    (5)"
  24. 240 print"[203]egel und [203]egelststumpf      (6)"
  25. 250 print"[203]ugel                        (7)":print" "
  26. 260 print"[215]ritten by [205]aik [200]olstein"
  27. 270 print"[195]opyright 1990"
  28. 280 getan$
  29. 290 ifan$=""then280
  30. 300 ifan$="1"then600
  31. 310 ifan$="2"then900
  32. 320 ifan$="3"then1200
  33. 330 ifan$="4"then1500
  34. 340 ifan$="5"then1800
  35. 350 ifan$="6"then2100
  36. 360 ifan$="7"then2400
  37. 600 print"[147]"
  38. 610 print"[209]uader:"
  39. 620 print" "
  40. 630 print" "
  41. 640 print"d = [215]urzel a^2 + b^2 + c^2"
  42. 650 print" "
  43. 660 print"[207] = 2 (ab + ac + bc)"
  44. 670 print" "
  45. 680 print"[214] = abc
  46. 690 [161]an$
  47. 700 [139]an$[178]""[167]690
  48. 710 [139]an$[178]" "[167]160
  49. 900 [153]"load"
  50. 910 [153]"(NULL)uerfel:"
  51. 920 [153]" "
  52. 930 [153]" "
  53. 940 [153]"d = a (NULL)urzel 3"
  54. 950 [153]" "
  55. 960 [153]"(NULL) = 6 a^2":[153]" "
  56. 970 [153]"(NULL) = a^3"
  57. 980 [161]an$
  58. 990 [139]an$[178]""[167]980
  59. 1000 [139]an$[178]" "[167]160
  60. 1200 [153]"load"
  61. 1210 [153]"(NULL)risma (auch schief):"
  62. 1220 [153]" ":[153]" "
  63. 1230 [153]"(NULL) = 2 chr$ + (NULL)"
  64. 1240 [153]" "
  65. 1250 [153]"(NULL) = chr$h"
  66. 1260 [161]an$
  67. 1270 [139]an$[178]""[167]1260
  68. 1280 [139]an$[178]" "[167]160
  69. 1500 [153]"load"
  70. 1600 [153]"(NULL)yramide (auch schief):"
  71. 1610 [153]" "
  72. 1620 [153]" "
  73. 1630 [153]"(NULL) = chr$ + (NULL)"
  74. 1640 [153]" "
  75. 1650 [153]"(NULL) = 1 : 3 chr$h"
  76. 1660 [153]" "
  77. 1670 [153]" "
  78. 1680 [153]"(NULL)yramidenstumpf (auch schief):"
  79. 1690 [153]" "
  80. 1700 [153]" "
  81. 1710 [153]"(NULL) = chr$ + chr$ + (NULL)"
  82. 1720 [153]"     1   2"
  83. 1730 [153]" "
  84. 1740 [153]"(NULL) = 1 : 3 h (chr$ + chr$ + (NULL)urzel chr$ chr$"
  85. 1750 [153]"              1   2          1 2"
  86. 1760 [161]an$
  87. 1770 [139]an$[178]""[167]1760
  88. 1780 [139]an$[178]" "[167]160
  89. 1800 [153]"load"
  90. 1810 [153]"(NULL)ylinder:"
  91. 1820 [153]" "
  92. 1830 [153]" "
  93. 1840 [153]"(NULL) = 2 pie r (r + h)":[153]" "
  94. 1850 [153]"(NULL) = pie r^2 h":[153]" ":[153]" "
  95. 1860 [153]"left$ohlzyzlinder:":[153]" ":[153]" "
  96. 1870 [153]"(NULL) = pie h (r + r ) (r - r )"
  97. 1880 [153]"            a   i    a   i"
  98. 1890 [161]an$
  99. 1900 [139]an$[178]""[167]1890
  100. 1910 [139]an$[178]" "[167]160
  101. 2100 [153]"load"
  102. 2110 [153]"(NULL)egel:":[153]" ":[153]" "
  103. 2120 [153]"(NULL) = pie s (r + r )"
  104. 2130 [153]"            1   2":[153]" ":[153]"s = (NULL)urzel h^2 + r^2":[153]" "
  105. 2240 [153]"(NULL) = 1 : 3 pie r^2 h":[153]" ":[153]" ":[153]"(NULL)egelstumpf:":[153]" ":[153]" "
  106. 2250 [153]"(NULL) = pie [r ^2 + r ^2 + s (r r )]"
  107. 2260 [153]"          1      2         1 2"
  108. 2270 [153]" "
  109. 2280 [153]"(NULL) = pie s (r + r )"
  110. 2290 [153]"            1   2"
  111. 2300 [153]" "
  112. 2310 [153]"(NULL) = 1 : 3 pie h (r ^2 + r ^2 + r r )"
  113. 2320 [153]"                  1      2      1 2"
  114. 2330 [161]an$:[139]an$[178]""[167]2330
  115. 2340 [139]an$[178]" "[167]160
  116. 2400 [153]"load":[153]"(NULL)ugel:":[153]" ":[153]" "
  117. 2410 [153]"(NULL) = pie d^2 = 4 pie r^2
  118. 2420 print" "
  119. 2430 print"[214] = pie : 6 d^3 = 4 : 3 pie r^3
  120. 2440 [161]an$:[139]an$[178]""[167]2440
  121. 2450 [139]an$[178]" "[167]160
  122.