Witam!
Przeszukałem chyba pół internetu w poszukiwaniu schematu hornera napisanego iteracyjnie i rekurencyjnie w Pascalu, a mimo to go nie odnalazłem.
Jedyne co znalazłem to coś takiego:
program schemathornera;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n, z, ai, i, y : integer;
wspol : array[0..100] of integer;
begin
writeln('podaj z');
readln(z);
writeln('podaj stopien n');
readln(n);
i := 0;
while i <= n do
begin
writeln('podaj wartosc wspolczynnika ', i);
readln(ai);
wspol[i] := ai;
i := i + 1;
end;
y := wspol[0];
i := 1;
while i <= n do
begin
ai := wspol[i];
y := y * z + ai;
i := i + 1;
end;
writeln('wartosc wielomianu wynosi: ', y);
readln;
end.
Ale nie mam pojęcia jaką metodą jest to napisane. Jeżeli to możliwe prosiłbym o napisanie tego właśnie programu na dwa sposoby.
Z góry dziękuję