REM Hornerovo schema
REM	 IQ 151/90/w
CLS : PRINT "Hornerovo schema" : PRINT
REM Nacteni polynomu
INPUT "Vloz stupen polynomu";n
DIM a(n+1,n+1)
FOR i=1 TO n+1
	PRINT "a(" ;STR$(n-i+1); ")=";
	INPUT a(i,1)
NEXT i
PRINT
INPUT "V bode alfa "; alfa
REM Vypocet radku Hornerova schema
REM a koeficientu Taylorova rozvoje
REM polynomu s koeficienty a(i,1)
REM v bode alfa
FOR k=2 TO n+1
	LET a(1,k)=a(1,1)
	PRINT STR$(a(1,k));" ";
	FOR i=2 TO n-k+3
		LET a(i,k)=a(i-1,k)*alfa+a(i,k-1)
		PRINT STR$(a(i,k));" ";
	NEXT i
	PRINT
NEXT k
PRINT a(1,1)