Код на Паскале.Перевести на Си.

[Vasya94]

Вычесления значения многочлена по схеме Горнера.

uses crt;
type mas=array[0..10] of real;
function Gorner(a:mas;x:real;n:byte):real;
var f,s:real;
    i:byte;
begin
f:=1;
s:=a[n];
for i:=1 to n do
 begin
  f:=f*x;
  s:=s+a[n-i]*f;
 end;
Gorner:=s;
end;
var i,n:byte;
    f,s,x:real;
    a:mas;
begin
clrscr;
write('Введите n=');readln(n);
write('Введите x=');readln(x);
writeln('Введите ',n+1,' коэфф. многочлена степени ',n);
for i:=0 to n do
readln(a[i]);
write('S=',Gorner(a,x,n):0:5);
readln
end.

Заранее спасибо.

[Vasya94]

Что никто не может помочь?

[BDA]

Сообщение от Vasya94

Что никто не может помочь?

Правильнее сказать, не хочет.
Если бы Вы сами писали решение на паскале, то перевод на си был бы для Вас легкой задачкой (просто другой синтаксис), а так, все выглядит, что Вы нашли решение задачи на неподходящем для сдачи языке.

UPD
И это не схема Горнера.

[Vasya94]

Большое спасибо, я понял уже что не схема Горнера , я уже понял как её написать...