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 >
Wrap
Commodore BASIC
|
2022-10-26
|
377b
|
18 lines
10 rem horner-schema
20 print"[147] ganze rationale funktion"
30 print" berechnung nach dem horner-schema"
40 print" *********************************"
50 print:input" grad der funktion:";g:print
60 dimk(g)
70 fori=gto0step-1
80 print" koeffizient fuer x^"i;:inputk(i)
90 nexti
100 print:input" argument x=";x:print
105 rem horner-schema
110 y=k(g)
120 fori=gto1step-1
130 y=y*x+k(i-1)
140 nexti
150 print" funktionswert y="y
160 print:print:goto100