Многочлен Опции

[NoRToN]

Дано:коэффициенты многочлена, начиная со старшей степени(включая нулевые коэффициенты);начальные и конечные значения переменных ; величина шага её изменения.
Задание: вывести таблицу значений многочлена.

[volvo]

NoRToN
По-моему, так:

Код

uses crt;
var
 i,j,n: longint;
 p, s: double;
 x, xs, xf, xstep: double;
 coeffs: array[0 .. 100] of double;

begin
 clrscr;
 write('Input x start ');readln(xs);
 write('Input x finish '); readln(xf);
 write('Input x step '); readln(xstep);
 write('Input n (stepen) ');readln(n);
 for i := n downto 0 do
   begin
     write('input coeff[', i, '] > ');
     readln(coeffs[i]);
   end;

 writeln('x':10, 's':10);
 writeln;
 x := xs;
 while x <= xf + xstep do
   begin
     s := 0;
     for i := n downto 0 do
       begin
         p := coeffs[i]; j := i;
         while j > 0 do
           begin
             p := p * x; dec(j)
           end;
         s := s + p
       end;
     writeln(x:10:5, s:10:5);
     x := x + xstep;
   end;
 readln;
end.