home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 April / 64er_Magazin_90-04_1990_Markt__Technik_de_Side_A.d64 / rechteck (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.