yaropolk2001
Удален
|
    
Вычислите значение многочлена n(энной) степени при заданном значеннии x.
f(x)=(x*x*x*x-x*x-12)/(x*x*x*x+8*x*x+15)
Помогите пожалуйста составить программу, но эта программа должна быть "клоном" данной мной ниже программы, т.е.(данную мной программу надо видоизменить каким-то образом, т.е скопировать её дважды и потом уж из двух делать одну!!!)
Данная мной программа тут:
Program massiv;
Uses crt;
Const nmax=10;
Var a:array [0..nmax] of integer;
a0,n,i:integer;
p,x:real;
begin
clrscr;
x:=0;
n:=0;
writeln(‘input x’);
read(x);
writeln(‘input n’);
read(n);
writeln(‘input a’);
for i:=0 to n do
read(a);
p:=a[0];
for i:=1 to n do
p:=p*x+a;
writeln(‘p=’, p:0:3);
end.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 30 янв. 2005 17:14 | IP
|
|
Alexandr2009
Новичок
|
Program massiv;
Uses crt;
Const nmax=10;
Var a:array [0..nmax] of integer;
a0,n,i:integer;
p,x:real;
begin
clrscr;
x:=0;
n:=0;
writeln(‘input x’);
read(x);
writeln(‘input n’);
read(n);
writeln(‘input a’);
for i:=0 to n do
read(a);
p:=0;
for i:=nmax downto 0 do
p:=p+a*exp(i*ln(x));
writeln('P=',p:10:5);
readln;
end.
Прокручиваешь цикл от икса в старей степени до икса в нулевой и накапливаешь сумму. Но только коэффициенты вводи в обратном порядке
|
Всего сообщений: 4 | Присоединился: июнь 2007 | Отправлено: 16 июня 2007 13:08 | IP
|
|
|
Форум
Помогите пожалуйста решить на паскаль!
