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