home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 June / 64er_Magazin_91-06_1991_Markt__Technik_de.d64 / horner-schema (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  377 b   |  18 lines
  1. 10 rem horner-schema
  2. 20 print"[147] ganze rationale funktion"
  3. 30 print" berechnung nach dem horner-schema"
  4. 40 print" *********************************"
  5. 50 print:input" grad der funktion:";g:print
  6. 60 dimk(g)
  7. 70 fori=gto0step-1
  8. 80 print" koeffizient fuer x^"i;:inputk(i)
  9. 90 nexti
  10. 100 print:input" argument x=";x:print
  11. 105 rem  horner-schema
  12. 110 y=k(g)
  13. 120 fori=gto1step-1
  14. 130 y=y*x+k(i-1)
  15. 140 nexti
  16. 150 print" funktionswert y="y
  17. 160 print:print:goto100
  18.