home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 November / 64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64 / wurzelberechnung (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  247b  |  14 lines
  1. 10 print"[147]":rem beliebige wurzel
  2. 20 print"beliebige wurzel"
  3. 30 print"****************"
  4. 40 print:input"  grad der wurzel";n
  5. 50 input"    radikand";a
  6. 60 x1=1
  7. 70 x2=((n-1)*x1+a/(x1^(n-1)))/n
  8. 80 i=i+1
  9. 90 print"x"i"="x2
  10. 100 x=abs(x1-x2)
  11. 110 ifx<.0001then end
  12. 120 x1=x2
  13. 130 goto70
  14.