Wielomian – Horner
Użytkownik podaje tylko wartość argumentu oraz stopień wielomianu. Program dokonuje obliczeń i podaje wynik na ekranie.
Kompilator: Turbo Pascal
program schemat;
uses crt;
var
i,n,y,z:integer;
a,w,x:real;
begin
clrscr;
writeln('Podaj wartosc argumentu x');
readln(z);
writeln('Podaj stopien wielomianu');
readln(n);
writeln('Podaj wspolczynnik przy x^' ,n,':');
readln(a);
i:=0;
w:=a;
while i<>n do
begin
i:=i+1;
writeln('Podaj wspolczynnik przy x^',n-i);
readln(a);
w:=w*z+a;
end;
writeln('Wartosc wynosi',w:11:2);
readln;
end.