anfang: fokus=0 fokus$="" durchmesser=0 durchmesser$="" randhoehe=0 randhoehe$="" bohrung=0 bohrung$="" gewicht=0 gewicht$="" // anfang: CLS PRINT AT(20,2);"Volumen-Berechnung von Newton-Spiegel" PRINT AT(20,3);"-------------------------------------" PRINT AT(2,5);"Ausdehnung und spez. Gewicht" PRINT AT(2,6);"3.25 | 8.60 | 7.10 | 0.10 | 0.06 | 3.25 |3.30 |*10^-6 |" PRINT AT(2,7);"Pyrex | Plate | BK 7 | Zerod | Sital | BoroFl|Duran |" PRINT AT(2,8);"2.23 | 2.50 | 2.51 | 2.53 | 2.46 | 2.22 |2.22 |" // GOTO sprung PRINT AT(20,10);"Bitte die Brennweite in mm : ";fokus; INPUT fokus$ IF VAL(fokus$)<>0 fokus=VAL(fokus$) ENDIF PRINT AT(20,11);"Bitte den Durchmesser in mm : ";durchmesser; INPUT durchmesser$ IF VAL(durchmesser$)<>0 durchmesser=VAL(durchmesser$) ENDIF PRINT AT(20,12);"Bitte die Randh”he in mm : ";randhoehe; INPUT randhoehe$ IF VAL(randhoehe$)<>0 randhoehe=VAL(randhoehe$) ENDIF PRINT AT(20,13);"Bitte die Bohrung in mm : ";bohrung; INPUT bohrung$ IF VAL(bohrung$)<>0 bohrung=VAL(bohrung$) ENDIF // sprung: // fokus=1000 // durchmesser=200 // randhoehe=30 // ---------- Berechnung -------------------------- pfeilhoehe=(durchmesser/2)^2/(2*2*fokus) Zylinder=(PI*(durchmesser/2)^2*randhoehe)/1000 PRINT AT(20,15);"Volumen Glas-Zylinder cm^3 : ";USING "#####.##",Zylinder Kugelsegment=(PI*pfeilhoehe/6*(3*(durchmesser/2)^2+pfeilhoehe^2))/1000 PRINT AT(20,16);"Volumen des KugSegments cm^3 : ";USING "#####.##",Kugelsegment volbohrung=(bohrung/2)^2*PI*(randhoehe-pfeilhoehe)/1000 Spiegelvolumen=Zylinder-Kugelsegment-volbohrung PRINT AT(20,17);"Volumen Spiegeltr„ger cm^3 : ";USING "#####.##",Spiegelvolumen PRINT AT(20,18);"Volumen Bohrung cm^3 : ";USING "#####.##",volbohrung PRINT AT(20,19);"Bitte das Gewicht in Gramm : ";gewicht; INPUT gewicht$ IF VAL(gewicht$)<>0 gewicht=VAL(gewicht$) ENDIF // Gewicht=Spiegelvolumen*wichte wichte=gewicht/Spiegelvolumen PRINT AT(20,21);"Spezifisches Gewicht....... : ";USING "##.####",wichte REPEAT UNTIL INKEY$>CHR$(0) OR MOUSEK ALERT 2,"noch ein Beispiel rechnen?",1," Ja | Nein ",a& IF a&=1 GOTO anfang ENDIF END