10 REM FORMELN 20 PRINT"[147]":POKE53280,6:PRINTCHR$(5) 30 PRINTCHR$(14) 40 PRINT" " 50 PRINT" " 60 PRINT" " 70 PRINT" " 80 PRINT" " 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]" 100 PRINT" " 110 PRINT" [214][207][206]" 120 PRINT" " 130 PRINT" [203][207][197][210][208][197][210][206]" 140 GETAN$ 150 IFAN$=""THEN140 160 PRINT"[147]" 170 PRINT"[198]ORMELN:" 180 PRINT" " 190 PRINT"[209]UADER (1)" 200 PRINT"[215]UERFEL (2)" 210 PRINT"[208]RISMA (3)" 220 PRINT"[208]YRAMIDE UND [208]YRAMIDENSTUMPF (4)" 230 PRINT"[218]YLINDER UND [200]OHLZYLINDER (5)" 240 PRINT"[203]EGEL UND [203]EGELSTSTUMPF (6)" 250 PRINT"[203]UGEL (7)":PRINT" " 260 PRINT"[215]RITTEN BY [205]AIK [200]OLSTEIN" 270 PRINT"[195]OPYRIGHT 1990" 280 GETAN$ 290 IFAN$=""THEN280 300 IFAN$="1"THEN600 310 IFAN$="2"THEN900 320 IFAN$="3"THEN1200 330 IFAN$="4"THEN1500 340 IFAN$="5"THEN1800 350 IFAN$="6"THEN2100 360 IFAN$="7"THEN2400 600 PRINT"[147]" 610 PRINT"[209]UADER:" 620 PRINT" " 630 PRINT" " 640 PRINT"D = [215]URZEL A^2 + B^2 + C^2" 650 PRINT" " 660 PRINT"[207] = 2 (AB + AC + BC)" 670 PRINT" " 680 PRINT"[214] = ABC 690 [161]AN$ 700 [139]AN$[178]""[167]690 710 [139]AN$[178]" "[167]160 900 [153]"LOAD" 910 [153]"(null)UERFEL:" 920 [153]" " 930 [153]" " 940 [153]"D = A (null)URZEL 3" 950 [153]" " 960 [153]"(null) = 6 A^2":[153]" " 970 [153]"(null) = A^3" 980 [161]AN$ 990 [139]AN$[178]""[167]980 1000 [139]AN$[178]" "[167]160 1200 [153]"LOAD" 1210 [153]"(null)RISMA (AUCH SCHIEF):" 1220 [153]" ":[153]" " 1230 [153]"(null) = 2 CHR$ + (null)" 1240 [153]" " 1250 [153]"(null) = CHR$H" 1260 [161]AN$ 1270 [139]AN$[178]""[167]1260 1280 [139]AN$[178]" "[167]160 1500 [153]"LOAD" 1600 [153]"(null)YRAMIDE (AUCH SCHIEF):" 1610 [153]" " 1620 [153]" " 1630 [153]"(null) = CHR$ + (null)" 1640 [153]" " 1650 [153]"(null) = 1 : 3 CHR$H" 1660 [153]" " 1670 [153]" " 1680 [153]"(null)YRAMIDENSTUMPF (AUCH SCHIEF):" 1690 [153]" " 1700 [153]" " 1710 [153]"(null) = CHR$ + CHR$ + (null)" 1720 [153]" 1 2" 1730 [153]" " 1740 [153]"(null) = 1 : 3 H (CHR$ + CHR$ + (null)URZEL CHR$ CHR$" 1750 [153]" 1 2 1 2" 1760 [161]AN$ 1770 [139]AN$[178]""[167]1760 1780 [139]AN$[178]" "[167]160 1800 [153]"LOAD" 1810 [153]"(null)YLINDER:" 1820 [153]" " 1830 [153]" " 1840 [153]"(null) = 2 PIE R (R + H)":[153]" " 1850 [153]"(null) = PIE R^2 H":[153]" ":[153]" " 1860 [153]"LEFT$OHLZYZLINDER:":[153]" ":[153]" " 1870 [153]"(null) = PIE H (R + R ) (R - R )" 1880 [153]" A I A I" 1890 [161]AN$ 1900 [139]AN$[178]""[167]1890 1910 [139]AN$[178]" "[167]160 2100 [153]"LOAD" 2110 [153]"(null)EGEL:":[153]" ":[153]" " 2120 [153]"(null) = PIE S (R + R )" 2130 [153]" 1 2":[153]" ":[153]"S = (null)URZEL H^2 + R^2":[153]" " 2240 [153]"(null) = 1 : 3 PIE R^2 H":[153]" ":[153]" ":[153]"(null)EGELSTUMPF:":[153]" ":[153]" " 2250 [153]"(null) = PIE [R ^2 + R ^2 + S (R R )]" 2260 [153]" 1 2 1 2" 2270 [153]" " 2280 [153]"(null) = PIE S (R + R )" 2290 [153]" 1 2" 2300 [153]" " 2310 [153]"(null) = 1 : 3 PIE H (R ^2 + R ^2 + R R )" 2320 [153]" 1 2 1 2" 2330 [161]AN$:[139]AN$[178]""[167]2330 2340 [139]AN$[178]" "[167]160 2400 [153]"LOAD":[153]"(null)UGEL:":[153]" ":[153]" " 2410 [153]"(null) = PIE D^2 = 4 PIE R^2 2420 PRINT" " 2430 PRINT"[214] = PIE : 6 D^3 = 4 : 3 PIE R^3 2440 [161]AN$:[139]AN$[178]""[167]2440 2450 [139]AN$[178]" "[167]160