schemat Hornera.doc

(2062 KB) Pobierz

PROGRAM Wielomian;

USES

Crt;

VAR

n, i :INTEGER;

a, x, y:REAL;

tak_nie:char;

BEGIN

repeat

ClrScr;

i:=0;

y:=0;

Writeln ('Obliczenie wartosci wielomianu ');

Writeln;

Write ('Podaj stopien wielomianu n = ');

Readln (n);

Write ('Podaj wartosc x = ');

Readln (x);

Writeln;

Write ('Podaj ',n+1,' wartosci wpolczynnika a(n) ');

Write ('- od a(0) do a(',n,'):');

Writeln;

REPEAT

Write ('a(',i,') = ');

Readln (a);

y:=y*x+a;

i:=i+1;

UNTIL i>n;

Writeln;

Write ('x = ',x:5:2,', y = ',y:5:2);

writeln;

Writeln (' Jeszcze raz ?(T)ak');

Tak_Nie:=UpCase(ReadKey)

UNTIL NOT (Tak_Nie='T')

END.