Паскаль. Схема горнора, многочлен.

[file]

Чета нифига не работает. _Dmitry доделай пожалуйста.

[_Dmitry]

Что не работает? Тебе надо в Турбо Паскаль или в Дельфи?

[file]

В Турбо Паскаль. Я так понял, что надо дописать её (ввод n, a[n], x и вывод p[i])? Я добавил цикл для ввода a[n], но при запуске он выдает ошибку (Must be in 8087 mode to compile this).

[_Dmitry]

На Паскале будет так

const
  Nmax = 20;

type
  TVector = array[0..Nmax] of double;

procedure Polinom(n: integer; x: double; a: TVector; var p: TVector);
var
  i,j,k,m: integer;
begin
  p[0]:=a[n];
  for i:=1 to n do p[i]:=p[i-1]*(n+1-i);
  for i:=n-1 downto 0 do
    begin
      p[0]:=a[i]+p[0]*x;
      k:=1;
      for j:=1 to n do
        begin
          m:=i+1-j;
          if m <= 0 then break;
          k:=k*m;
          p[j]:=a[i]*k+p[j]*x;
        end;
    end;
end;

var
  a,p: TVector;
  n,i: integer;
  x: double;
begin
  write('(max ',Nmax,') n = '); readln(n);
  writeln;
  for i:=0 to n do
    begin
      write('a[',i,'] = '); readln(a[i]);
    end;
  writeln;
  write('x = '); readln(x);
  Polinom(n,x,a,p);
  writeln;
  for i:=0 to n do
    writeln('P[',i,'] = ',p[i]:1:5);
  readln;
end.

[file]

Опять туже ошибку выдает (Must be in 8087 mode to compile this) и указывает на a[n]. Может быть в процедуре дело?

[_Dmitry]

У тебя что-то с настройками Паскаля, 8087 это математический сопрцессор, видимо он отключен, нужно включить.
Запиши это первой строкой в программу:
{$A+,B-,D+,E+,F-,G+,I+,L+,N+,O-,P-,Q+,R+,S+,T-,V+,X+,Y+}
и перекомпилируй с помощью: Compile->Build.

Или ищи в опциях где включается 8087, тогда эта строка ненужна.

------------------------------
Из всех директив компилятора нужна только: {$N+}
Или измените опцию Паскаля: Options->Compiler...->8087/80287

[file]

ВСЕ РАБОТАЕТ!. Большое спасибо! Теперь осталось только разобраться и составить блок-схему.

[file]

_Dmitry проверь блок-схему, правильная или нет. А то я не до конца её понял.
Вот она: .
Толька его надо увеличить (сервер уменьшил).

[_Dmitry]

Выложи с нормальным качеством в zip или rar архиве

[file]

Вот в гаг: /