10 REM MPK1 PI-BERECHNUNG
15 :
20 REM NACH ARCHIMEDES
25 :
30 GE=0.01: REM GENAUIGKEIT
35 :
40 N=6: REM ANZAHL DER ECKEN
50 E=1: REM SEITENLAENGE EINBESCHRIEBENES SECHSECK
60 U=E/SQR(1-(E/2)^2): REM SEITENLAENGE UMBESCHRIEBENES SECHSECK
65 :
70 PRINT N,N*E/2;N*U/2:REM ANFANGSWERTE
75 :
80 N=2*N : REM VERDOPPELUNG DER SEITENANZAHL
90 E=E/SQR(2+SQR(4-E^2))
100 U=E/SQR(1-(E/2)^2)
110 PE=N*E/2: PU=N*U/2: REM PI-ANNAEHERUNGEN
115 :
120 PRINT N,PE;PU
125 :
130 IF ABS(PE-PU)>GE THEN 80
140 PRINT "GEWUENSCHTE GENAUIGKEIT ERREICHT."
150 END