Schemat Hornera

Algorytm rekurencyjny
program SchematHornera;
uses crt;
var x:real;
    a:array [0..10] of integer;
function W(n:byte;x:real):real;
begin
  if n=0 then W:=a[0]
  else W:=W(n-1,x)*x+a[n];
end;
begin
  clrscr;
  x:=1;
  a[0]:=3;a[1]:=10;a[2]:=1;
  writeln(W(2,1):3:1);
  readln;
end.