Задачи на простые циклы, цикл for Опции

[Yaroslav]

Вычислить значение многочлена n (энной) степени при заданном значении х.


Написать программу для следующих примеров:

1) Р(х) = 4*х*x*x*x*x – 7*x*x*x*x + 5* x*x*x -2*х + 1;
2) Р(х) = x*x*x*x*x*x – 4*x*x*x*x + x*x*x -2* x*x + 5;
3) Р(х) = x*x*x*x*x + x*x*x*x – 6* x*x*x– 14* x*x – 11*х – 3


При написании программы использовать следующий алгоритм:

Начало
далее
n, а0, а1 …, аn, х
далее
р: = а0
далее
i = 1
далее
i =< n
далее: если - , то p далее конец
если + , то р: = p*x +a[i] далее i : = i + 1 и возврат к i =< n

[klem4]

Начало
далее
n, а0, а1 …, аn, х
далее
р: = а0
далее
i = 1
далее
i =< n
далее: если - , то p  далее конец
если + , то р: = p*x +a[i]    далее i : = i + 1 и возврат к i =< n

Дословно похоже на это :

Код

uses crt;
var
   a : array[0..100] of integer;
 i,n : integer;
 x,p : extended;

Begin
  clrscr;
  write('Input x ');readln(x);
  write('Input n ');readln(n);
  for i:=0 to n do
   readln(a[i]);
  p:=a[0];
  for i:=1 to n do
   p:=p*x + a[i];
  writeln(p:2:3);
  readln;
  end.