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

[NoRToN]

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

[Altair]

а так циклов меньше

Код

{$N+} {$E+}
Const
MaxStep=100;
Type
TELEM=Double;
var
koeff:array[0..MaxStep] of TELEM;
x,Xs,Xf,xstep:TElem;
N,i:longint;
Result:Telem;
begin
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(koeff[i])
end;
x:=xs;
while x<=xf do
begin
 Result:=0;
 For i:=N DownTo 0 do Result:=result+koeff[i]*Exp(i*ln(x));
 writeln(i:10, result:10); x:=x+xstep
end
end.

volvo, если у Нортона не стоит в натсройках компилятора эмуляция сопроцессора, у него ошибка будет
лучше так:
{$N+} {$E+}
:P :P