формула Горнера, 2 задачки Опции

[eugenek]

В этом файле 2 задачи. (19 kB)

Не могу привести текст здесь из-за степеней.

Помогите чем можете... да воздастся вам за дела ваши...

[Altair]

Соблюдайте правила. Перед тем как вопрос задать, поиском пользуйтесь.
Про степень подробно вот здесь:
http://forum.pascal.net.ru/index.php?showt...&hl=рекурсивные

и другое задание где-то было.

[virt]

Код

program gorner_scheme;
var a:array[0..10]of integer;
   i:integer;
   x0,s:longint;

begin
  read(x0);
  for i:=0 to 10 do read(a[i]);
  s:=a[10];
  for i:=10 downto 1 do s:=s*x0+a[i-1];
  writeln;
  write(s);
end.

Код

program gorner2;
var x:double;
   n:integer;

function stepen(n:integer):double;
begin
  if n = 0 then stepen:=1 else
     begin
        if n>0 then stepen:=stepen(n-1)*x else
           stepen:=1/(stepen(n+1)*x);
     end;
end;

begin
  readln(x);
  readln(n);
  writeln(stepen(n):0:3);
end.