10 REM MPK1 PI-BERECHNUNG
15 :
20 REM RECHTECKMETHODE
25 :
30 N=10 : REM ANZAHL DER RECHTECKE
35 :
40 B=1/N : REM RECHTECKBREITE
50 FE=0: FU=0: REM GESAMTFLAECHEN
55 :
60 FOR I=1 TO N
70 LE=I*B: LU=(I-1)*B
80 HE=SQR(1-LE^2): REM HOEHEN
90 HU=SQR(1-LU^2)
100 FE=FE+B*HE: FU=FU+B*HU
110 NEXT I
115 :
120 PRINT N,4*FE;4*FU
130 END