home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9004a.d64 / archimedes (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  510b  |  23 lines
  1. 10 REM MPK1 PI-BERECHNUNG
  2. 15 :
  3. 20 REM NACH ARCHIMEDES
  4. 25 :
  5. 30 GE=0.01: REM GENAUIGKEIT
  6. 35 :
  7. 40 N=6: REM ANZAHL DER ECKEN
  8. 50 E=1: REM SEITENLAENGE EINBESCHRIEBENES SECHSECK
  9. 60 U=E/SQR(1-(E/2)^2): REM SEITENLAENGE UMBESCHRIEBENES SECHSECK
  10. 65 :
  11. 70 PRINT N,N*E/2;N*U/2:REM ANFANGSWERTE
  12. 75 :
  13. 80 N=2*N : REM VERDOPPELUNG DER SEITENANZAHL
  14. 90 E=E/SQR(2+SQR(4-E^2))
  15. 100 U=E/SQR(1-(E/2)^2)
  16. 110 PE=N*E/2: PU=N*U/2: REM PI-ANNAEHERUNGEN
  17. 115 :
  18. 120 PRINT N,PE;PU
  19. 125 :
  20. 130 IF ABS(PE-PU)>GE THEN 80
  21. 140 PRINT "GEWUENSCHTE GENAUIGKEIT ERREICHT."
  22. 150 END
  23.