home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64 Fever 92 #2
/
C64_Fever_92-02_1992_-_de.d64
/
mathehilfe
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
12KB
|
365 lines
110 rem *** mathehilfe *****************
140 rem
200 gosub 3610
210 for i=1 to 2000:next i
220 poke 53280,0:poke 53281,0
230 print"[147] m a t h e m a t i k [146]"
240 print" geschrieben von k-d mueller"
250 print" "
260 for a = 1 to 2000: next a
270 poke 53280,2:poke 53281,6:print"[147]"
280 print"[158] h a u p t m e n u e [146]"
290 print" was moechtest du errechnen ?"
300 print" (bitte entsprechende ziffer waehlen)"
310 print tab(5)"1= formelausg. 2= prozent"
320 print tab(5)"3= flaechen 4= koerper"
330 print tab(5)"*= ende"
340 print" 0= hauptmenue"
350 input"ziffer[146]";b$
360 if b$="1" then gosub 420
370 if b$="2" then gosub 760
380 if b$="3" then gosub 1330
390 if b$="4" then gosub 2110
400 if b$="0" then 270
410 if b$="*" then print"[147] t s c h u e s s !! [146]":end
420 print"[147]grundwert : [158] g=a*100/p [146]"
430 print"prozentsatz : [158] p=w*100/g [146]"
440 print"prozentwert : [158] w=p*g/100 [146]"
450 print"jahreszins : [158] z=k*p/100 [146]"
460 print"monatszins : [158] z=k*p/100/12 [146]"
470 print"kapital : [158] k=z*100/p [146]"
480 print"zinssatz : [158] p=z*100/k [146]"
490 print"zeitber. : [158] z2=k*p/100 [146]"
500 print"zeitber. : [158] i=z1/z2 [146]"
510 print"recteckumf. : [158] u=l+b+l+b [146]"
520 print"rechteckfl. : [158] f=l*b [146]"
530 print"quadr. fl. : [158] f=s*s [146]"
540 print"quadr. umf. : [158] u=s*4 [146]"
550 print"dreieck fl. : [158] f=g*h/2 [146]"
560 print"dreieck umf.: [158] u=g*3 [146]"
570 print"kreisflaeche: [158] f=r^2*[255] [146]"
580 print"kreisumfang : [158] u=2*[255]*r [146]"
590 print"kreisringfl.: [158] f=[255]*(r(2)^2-r(1)^2) [146]"
600 print"ellipsenfl. : [158] f=[255]*a*b [146]"
610 print"kugelvol. : [158] v=4/3*[255]*r^3 [146]"
620 print"kugeloberfl.: [158] o=4*[255]*r^2 [146]"
630 print:input"zum weiterfahren << return >> druecken";a$:print
640 print"[147]wuerfelvol. : [158] v=k^3 [146]"
650 print"quadervol. : [158] v=a^2*c [146]"
660 print"quaderoberfl: [158] o=2*a^2+4*a*b [146]"
670 print"pyram.vol. : [158] v=1/3*k*k*h [146]"
680 print"pyram.oberf.: [158] o=g+(k*h/2*4) [146]"
690 print"zylindervol.: [158] v=[255]*r^2*h [146]"
700 print"zylinderob. : [158] o=2*[255]*r*(r+h) [146]"
710 print"kegelvol. : [158] v=[255]*r^2/3*h [146]"
720 print"kegeloberfl.: [158] o=[255]*r*(r+s) [146]"
730 input"noch einmal anzeigen? (j/n) j[157][157][157]";n$
740 if n$="j" then 420
750 if n$<>"j" then 270
760 print"[147] prozentrechnung [146]":poke 53280,11
770 print" (bitte entsprechende ziffer waehlen)"
780 print tab(5)"1= grundwert 2= prozentsatz"
790 print tab(5)"3= prozentwert 4= zinsen"
800 print tab(5)"0= hauptmenue"
810 input"ziffer[146]";d$
820 if d$="1" then 870
830 if d$="2" then 1020
840 if d$="3" then 1170
850 if d$="4" then 2260
860 if d$="0" then 270
870 print"[147] grundwert [146]":poke 53280,12
880 print"[158]beispiel: herr e. ist mit 42% an "
890 print"einem geschaeft beteiligt."
900 print"er bekommt vom gewinn 6300 dm ausbezahlt"
910 print"wie hoch ist der gesamte gewinn?"
920 print"grundwert(g)=6300dm*100/42;g=1500dm"
930 print"----------------------------------------"
940 input"wieviel %";p
950 input"anteil=";a
960 g=a*100/p
970 print"der grundwert betraegt "g;" dm"
980 print"[145][145][145][158] g=a*100/p [146]"
990 input"noch eine berechnung? (j/n) j[157][157][157]";n$
1000 if n$="j" then 870
1010 if n$<>"j" then 270
1020 print"[147] prozentsatz [146]":poke 53280,13
1030 print"[158]beispiel: in einer firma mit 750"
1040 print"mitarbeitern sind 140 frauen be-"
1050 print"schaeftigt. wieviel % der belegschaft"
1060 print"sind frauen?"
1070 print"p=140*100/750; p=18,7%"
1080 print"----------------------------------------"
1090 input"gesamt";g
1100 input"anteil";w
1110 p=w*100/g
1120 print"[158] p=w*100/g [146]"
1130 print"der prozentsatz betraegt";p;"%"
1140 input"noch eine berechnung? (j/n) j[157][157][157]";n$
1150 if n$="j" then 1020
1160 if n$<>"j" then 270
1170 print"[147] prozentwert [146]":poke 53280,14
1180 print"[158]beispiel: herr w. kauft einen"
1190 print"farbfernseher fuer 2400 dm.
1200 [153]"bei barzahlung gibt der haendler 3%"
1210 [153]"rabatt. wieviel dm spart herr w.,"
1220 [153]"wenn er bar bezahlt?"
1230 [153]"w=3*2400 dm/100; w=72 dm"
1240 [153]"----------------------------------------"
1250 [133]"gesamtwert";g
1260 [133]"prozentsatz";p
1270 w[178]p[172]g[173]100
1280 [153]"sys w=p*g/100 wait"
1290 [153]"der prozentwert betraegt ";w "dm"
1300 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
1310 [139] n$[178]"j" [167] 1170
1320 [139] n$[179][177]"j" [167] 270
1330 [153]"load welche flaeche soll berechnet werden ?"
1340 [153]" (bitte entsprechende ziffer waehlen)"
1350 [153] [163]5)"1= rechteck 2= quadrat"
1360 [153] [163]5)"3= dreieck 4= kreis"
1370 [153] [163]5)"5= kreisring 6= ellipse"
1380 [153] [163]5)"*= ende 0= hauptmenue"
1390 [133]"zifferwait";d$
1400 [139] d$[178]"1" [167] [141] 1480
1410 [139] d$[178]"2" [167] [141] 1590
1420 [139] d$[178]"3" [167] [141] 1690
1430 [139] d$[178]"4" [167] [141] 1820
1440 [139] d$[178]"5" [167] [141] 1930
1450 [139] d$[178]"6" [167] [141] 2020
1460 [139] d$[178]"0" [167] 270
1470 [139] d$[178]"*" [167] [128]
1480 [153]"load rechteckberechnung wait":[151] 53280,3
1490 [133]"laengewait";l
1500 [133]"breitewait";b
1510 f[178]l[172]b:u[178]l[170]b[170]l[170]b
1520 [153]"flaeche=";f
1530 [153] [163]20)"onsys> f=l*b <wait"
1540 [153]"umfang=";u
1550 [153] [163]20)"onsys> u=l+b+l+b <wait"
1560 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
1570 [139] n$[178]"j" [167] 1480
1580 [139] n$[179][177]"j" [167]270
1590 [153]"load quadratberechnung wait":[151] 53280,4
1600 [133]"seitenlaengewait";s
1610 f[178]s[172]s:u[178]s[172]4
1620 [153]"flaeche=";f
1630 [153]"onsys f=s*s wait"
1640 [153]"umfang=";u
1650 [153]"onsys u=s*4 wait"
1660 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
1670 [139] n$[178]"j" [167] 1590
1680 [139] n$[179][177]"j" [167] 270
1690 [153]"load dreieckberechnung wait":[151] 53280,5
1700 [153]" (gleichseitiges dreieck)"
1710 [133]"grundliniewait";g
1720 [133]"hoehewait";h
1730 u[178]g[172]3
1740 f[178]g[172]h[173]2
1750 [153]"flaeche=";f
1760 [153]"onsys f=g*h/2 wait"
1770 [153]"umfang=";u
1780 [153]"onsys u=g*3 wait"
1790 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
1800 [139] n$[178]"j" [167] 1690
1810 [139] n$[179][177]"j" [167] 270
1820 [153]"load kreisberechnung wait":[151] 53280,6
1830 [133]"radiuswait";r
1840 f[178]r[174]2[172][255]
1850 u[178]2[172][255][172]r
1860 [153]"flaeche=";f
1870 [153]"onsys f=r^2*(NULL) wait"
1880 [153]"umfang=";u
1890 [153]"onsys u=2*(NULL)*r wait"
1900 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
1910 [139] n$[178]"j" [167] 1820
1920 [139] n$[179][177]"j" [167] 270
1930 [153]"load kreisringberechnung wait":[151] 53280,7
1940 [133]"radius iwait";r(1)
1950 [133]"radius await";r(2)
1960 f[178][255][172](r(2)[174]2[171]r(1)[174]2)
1970 [153]"kreisringflaeche=";f
1980 [153]"sys f=(NULL)*(r(2)^2-r(1)^2) wait"
1990 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
2000 [139] n$[178]"j" [167] 1930
2010 [139] n$[179][177]"j" [167] 270
2020 [153]"load ellipsenberechnung wait":[151] 53280,1
2030 [133]"breitewait";a
2040 [133]"hoehewait";b
2050 f[178][255][172]a[172]b
2060 [153]"flaeche=";f
2070 [153]"onsys f=(NULL)*a*b wait"
2080 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
2090 [139] n$ [178]"j" [167] 2020
2100 [139] n$[179][177]"j" [167] 270
2110 [153]"load koerperberechnung wait":[151] 53280,8
2120 [153]" (bitte entsprechende ziffer waehlen)"
2130 [153] [163]5)"1= kugel 2= wuerfel"
2140 [153] [163]5)"3= quader 4= pyramide"
2150 [153] [163]5)"5= zylinder 6= kegel"
2160 [153] [163]5)"*= ende 0= hauptmenue"
2170 [133]"zifferwait";d$
2180 [139] d$[178]"1" [167] 2880
2190 [139] d$[178]"2" [167] 2990
2200 [139] d$[178]"3" [167] 3100
2210 [139] d$[178]"4" [167] 3220
2220 [139] d$[178]"5" [167] 3350
2230 [139] d$[178]"6" [167] 3470
2240 [139] d$[178]"*" [167] [128]
2250 [139] d$[178]"0" [167] 270
2260 [153]"load zinsrechnen wait"
2270 [153]" (bitte entsprechende ziffer waehlen)"
2280 [153] [163]5)"1= zinsen (j) 2= zinsen (m)"
2290 [153] [163]5)"3= kapital 4= zinssatz"
2300 [153] [163]5)"5= zeitber. 0= hauptmenue"
2310 [133]"zifferwait";d$
2320 [139] d$[178]"1" [167] 2380
2330 [139] d$[178]"2" [167] 2470
2340 [139] d$[178]"3" [167] 2560
2350 [139] d$[178]"4" [167] 2650
2360 [139] d$[178]"5" [167] 2740
2370 [139] d$[178]"0" [167] 270
2380 [153]"load jahreszinsen wait":[151] 53280,15
2390 [133]"kapital";k
2400 [133]"zinssatz";p
2410 z[178]k[172]p[173]100
2420 [153]"die zinsen betragen fuer 1 jahr";z;" dm"
2430 [153]"sys z=k*p/100 wait"
2440 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
2450 [139] n$[178]"j" [167] 2380
2460 [139] n$[179][177]"j" [167] 270
2470 [153]"load monatszinsen wait":[151] 53280,0
2480 [133]"kapital";k
2490 [133]"zinssatz";p
2500 z[178]k[172]p[173]100[173]12
2510 [153]"die zinsen betragen im monat";z;" dm"
2520 [153]"sys z=k*p/100/12 wait"
2530 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
2540 [139] n$[178]"j" [167] 2470
2550 [139] n$[179][177]"j" [167] 270
2560 [153]"load k a p i t a l wait":[151] 53280,1
2570 [133]"zinssatz";p
2580 [133]"zinsen";z
2590 k[178]z[172]100[173]p
2600 [153]"das kapital betraegt";k;" dm"
2610 [153]"sys k=z*100/p wait"
2620 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
2630 [139] n$[178]"j" [167] 2560
2640 [139] n$[179][177]"j" [167] 270
2650 [153]"load zinssatz wait":[151] 53280,2
2660 [133]"kapital";k
2670 [133]"gezahlte zinsen";z
2680 p[178]z[172]100[173]k
2690 [153]"der zinssatz betraegt";p;" %"
2700 [153]"sys p=z*100/k wait"
2710 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
2720 [139] n$[178]"j" [167] 2650
2730 [139] n$[179][177]"j" [167] 270
2740 [153]"load zeitberechnung wait":[151] 53280,2
2750 [133]"kapital";k
2760 [133]"zinssatz";p
2770 [133]"zinsen";z 1
2780 z 2[178]k[172]p[173]100
2790 i[178]z 1 [173]z 2
2800 [153]"das kapital in hoehe von";k;"dm bringt die zinsen"
2810 [153]"in der hoehe von";z 1;" dm in einem"
2820 [153]"zeitraum von";i;" jahren"
2830 [153]"sys z2=k*p/100 wait"
2840 [153]"sys i=z1/z2 wait"
2850 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
2860 [139] n$[178]"j" [167] 2740
2870 [139] n$[179][177]"j" [167] 270
2880 [153]"load kugelberechnung wait":[151] 53280,9
2890 [133]"radiuswait";r
2900 v[178]4[173]3[172][255][172]r[174]3
2910 o[178]4[172][255][172]r[174]2
2920 [153]"volumen=";v
2930 [153]"onsys v=4/3*(NULL)*r^3 wait"
2940 [153]"oberflaeche=";o
2950 [153]"onsys o=4*(NULL)*r^2 wait"
2960 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
2970 [139] n$[178]"j" [167] 2880
2980 [139] n$[179][177]"j" [167] 270
2990 [153]"load wuerfelberechnung wait":[151] 53280,10
3000 [133]"kantenlaengewait";k
3010 o[178]6[172]k[174]2
3020 v[178]k[174]3
3030 [153]"volumen=";v
3040 [153]"onsys v=k^3 wait"
3050 [153]"oberflaeche=";o
3060 [153]"onsys o=6*k^2 wait"
3070 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
3080 [139] n$[178]"j" [167] 2990
3090 [139] n$[179][177]"j" [167] 270
3100 [153]"load quaderberechnung wait":[151] 53280,11
3110 [133]"kantenlaenge b";a
3120 [133]"kantenlaenge h";c
3130 v[178]a[174]2[172]c
3140 o[178]2[172]a[174]2[170]4[172]a[172]c
3150 [153]"volumen=";v
3160 [153]"onsys v=a^2*c wait"
3170 [153]"oberflaeche=";o
3180 [153]"onsys o=2*a^2+4*a*b wait"
3190 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
3200 [139] n$[178]"j" [167] 3100
3210 [139] n$[179][177]"j" [167] 270
3220 [153]"load pyramidenberechnung wait":[151] 53280,12
3230 [133]"kantenlaenge";k
3240 [133]"hoehe";h
3250 v[178]1[173]3[172]k[172]k[172]h
3260 o[178]g[170](k[172]h[173]2[172]4)
3270 g[178]k[174]2
3280 [153]"volumen=";v
3290 [153]"onsys v=1/3*k*k*h wait"
3300 [153]"oberflaeche=";o
3310 [153]"onsys o=g+(k*h/2*4) wait"
3320 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
3330 [139] n$[178]"j" [167] 3220
3340 [139] n$[179][177]"j" [167] 270
3350 [153]"load zylinderberechnung wait":[151] 53280,13
3360 [133]"radiuswait";r
3370 [133]"hoehewait";h
3380 v[178][255][172]r[174]2[172]h
3390 o[178]2[172][255][172]r[172](r[170]h)
3400 [153]"volumen=";v
3410 [153]"onsys v=(NULL)*r^2*h wait"
3420 [153]"oberflaeche=";o
3430 [153]"onsys o=2*(NULL)*r*(r+h) wait"
3440 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
3450 [139] n$[178]"j" [167] 3350
3460 [139] n$[179][177]"j" [167] 270
3470 [153]"load kegelberechnung wait":[151] 53280,14
3480 [133]"radiuswait";r
3490 [133]"hoehewait";h
3500 v[178][255][172]r[174]2[173]3[172]h
3510 s[178][186](h[174]2[170]r[174]2)
3520 o[178][255][172]r[172](r[170]s)
3530 [153]"volumen=";v
3540 [153]"onsys v=(NULL)*r^2/3*h wait"
3550 [153]"sys s=sqr(h^2+r^2) wait"
3560 [153]"oberflaeche=";o
3570 [153]"onsys o=(NULL)*r*(r+s) wait"
3580 [133]"noch eine berechnung? (j/n) jcmdcmdcmd";n$
3590 [139] n$[178]"j" [167] 3470
3600 [139] n$[179][177]"j" [167] 270
3610 [153]"loadstop":[151] 53280,2:[151] 53281,9
3620 [153] tl$
3630 tx$(1)[178]"mathehilfe-programm !"
3640 [153]:[153]:[153]
3650 tx$(2)[178]" dieses programm hilft bei ganz"
3660 [153]:[153]:[153]
3670 tx$(3)[178]" normalen rechenaufgaben."
3680 tx$(4)[178]" klaus-dieter mueller"
3690 tx$(5)[178]" im pfefferstueck 11"
3700 tx$(6)[178]" 6295 merenberg 1"
3710 tx$(7)[178]" tel.: 06471/52545"
3720 [136] z[178]7
3730 [129] k[178]1[164] z
3740 l[178][195](tx$(k))
3750 [129] i[178] 1 [164] l
3760 [153] [202](tx$(k),i,1);
3770 [129] y[178] 1 [164] 20:[130] y
3780 [130] i
3790 [130] k
3800 [153] ta$
3810 [142]