' Polynom berechnen

DECLARE FUNCTION Poly! (x!, koeff!())

DIM pk!(4)

FOR i% = 4 TO 0 STEP -1
  READ pk!(i%)
NEXT i%

DATA 1!, -7!, 8!, 28!, -48!

FOR x! = -10! TO 48! STEP .5
  IF Poly!(x!, pk!()) = 0! THEN
    PRINT x!
  END IF
NEXT x!

FUNCTION Poly! (x!, koeff!())
  w! = 0!
  FOR i% = UBOUND(koeff!) TO LBOUND(koeff!) STEP -1
    w! = x! * w! + koeff!(i%)
  NEXT i%
  Poly! = w!
END FUNCTION