[TP]Obliczanie wart wielomianu za pomocą schematu hornera

[Natasha]

A czy może ktoś mi powiedziec, co jest nie tak w tym programie napisanym wyżej? Bo jego działanie kończy się na podaniu wspołczynników. Chodzi mi o program w czystym pascalu. Dzięki za pomoc/poprawienie.

[kadiii]

Kod: Zaznacz cały

Program Schemat_Hornera;
Uses crt;
var
wartosc,x:real;
wsp:array[0..10]of real;
n,k:integer;
begin
for k:=0 to 10 do
begin
  wsp[k]:=0; 
end;
writeln('Podaj x:');
readln(x);
writeln('Podaj stopien wielomianu');
readln(n);
repeat
writeln('Ktory wspolczynnik chcesz podac');
readln(k);
writeln('To podaj go');
readln(wsp[k]);
until k=0;
wartosc:=wsp[n];
for k:=n-1 downto 0 do
begin
   wartosc:=wartosc*x+wsp[k];
end;
writeln('Wartosc wielomianu wynosi ',wartosc:2:2);
end.

Był mały błąd w warunku końca pętli, ma być until k=0; - teraz program działa już dobrze.

[Paulinka1412]

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:=ai;
i:=i+1;
end;
y:=wspol[0];
i:=1;
while i<=n do
begin
ai:=wspol;
y:=y*z+ai;
i:=i+1;
end;
writeln('wartosc wielomianu wynosi: ',y);
readln;
end.