Задачи на простые циклы, цикл 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

[volvo]

Yaroslav
Единственное, что приходит в голову для вычисления этой последовательности:

Код

uses crt;
var
 i,j,n, x,p,s : longint;

begin
 clrscr;
 write('Input x ');readln(x);
 write('Input n ');readln(n);

 for i:=n downto 0 do
   begin
     writeln('input a[', i, ']');
     readln(p); j := i;
     while j > 0 do
       begin
         p := p * x; dec(j)
       end;
     s := s + p
   end;
 writeln(s);
 readln;
end.

Вводим (для первого задания):

x=3; n=5;
a[5]=4; a[4]=-7; a[3]=5; a[2]=0; a[1]=-2; a[0]=1

Не забываем, что вводить надо ВСЕ коэффициенты последовательности (если соответствующего члена нет, то коэфф = 0)
Oleg_Z
:P

Сообщение отредактировано: volvo - 15.01.2005 21:59