Schemat Hornera Iteracyjnie i rekurencyjnie

0

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ę

0

Jedyne co znalazłem to coś takiego:
...
Ale nie mam pojęcia jaką metodą jest to napisane.

To jest sposób iteracyjny - do rekurencyjnego potrzebna jest procedura/funkcja, która będzie rekurencyjnie wywoływana.

1 użytkowników online, w tym zalogowanych: 0, gości: 1