Вычислить значение полинома

@дашаБаразненок · Регистрация: 01.10.2013

Author24 — интернет-сервис помощи студентам

вычислить,А₁*х + А₂*х² + А₃*х³ + ... + А_n*xⁿ не пользуясь схемой Горнера

@Puporev · 02.10.2013, 09:57

Pascal

uses crt;
const nmax=10;
var a:array [1..nmax] of real;
    n,i:integer;
    x,s,y:real;
begin
randomize;
repeat
write('n от 2 до ',nmax,' n=');
read(n);
until n in [2..nmax];
write('x=');
read(x);
s:=0;
y:=1;
for i:=1 to n do
 begin
  a[i]:=-4+10*random;
  y:=y*x;
  s:=s+a[i]*y
 end;
writeln('Значение полинома:');
write(a[1]:0:1,'x');
for i:=2 to n do
 begin
  if a[i]<0 then write(a[i]:0:1)
  else write('+',a[i]:0:1);
  write('x^',i);
 end;
writeln;
write('при х=',x:0:2,' S=',s:0:2)
end.

@MatMaster · 02.10.2013, 10:50

Pascal

uses crt;
var n:integer; s,x:real;
begin
clrscr;
write('Vvedite chisla n, x: ');
repeat readln(n,x) until (n>0) and (x>0);
s:=0;
for n:=n downto 1 do s:=s+(n*exp(ln(x)*n));
write('S=', s:0:4);
readkey;
end.

@дашаБаразненок 0 / 0 / 0 Регистрация: 01.10.2013 Сообщений: 3
		1
	Вычислить значение полинома 01.10.2013, 20:41. Показов 1337. Ответов 2 Метки нет (Все метки) вычислить,А₁х + А₂х² + А₃х³ + ... + А_nxⁿ не пользуясь схемой Горнера 0

	02.10.2013, 10:50

Вычислить значение полинома

Решение