home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9004a.d64 / rechteck (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  317b  |  19 lines
  1. 10 REM MPK1 PI-BERECHNUNG
  2. 15 :
  3. 20 REM RECHTECKMETHODE
  4. 25 :
  5. 30 N=10 : REM ANZAHL DER RECHTECKE
  6. 35 :
  7. 40 B=1/N : REM RECHTECKBREITE
  8. 50 FE=0: FU=0: REM GESAMTFLAECHEN
  9. 55 :
  10. 60 FOR I=1 TO N
  11. 70 LE=I*B: LU=(I-1)*B
  12. 80 HE=SQR(1-LE^2): REM HOEHEN
  13. 90 HU=SQR(1-LU^2)
  14. 100 FE=FE+B*HE: FU=FU+B*HU
  15. 110 NEXT I
  16. 115 :
  17. 120 PRINT N,4*FE;4*FU
  18. 130 END
  19.