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

@krigulsky · Регистрация: 07.05.2012

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

Вычислить значение многочлена P(x) = a0 + a1 x + a2 x^2 + ... + an x^n для заданного целого x (значения коэффициентов a0, a1,..., an вводятся с клавиатуры и динамически размещаются в памяти).

P.S. "x" указывается в степени, а у "а" номер его;

@Puporev · 11.09.2012, 14:07

Pascal

uses crt;
const nmax=15;
type u=^real;
var a:array[0..nmax] of u;
    x,s,p:real;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Порядок полинома от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Введите значения коэффициентов:');
for i:=0 to n do
 begin
  write('a',i,'=');
  new(a[i]);
  readln(a[i]^);
 end;
clrscr;
writeln('Коэффициенты многочлена:');
for i:=0 to n do
write(a[i]^:0:1,' ');
writeln;
write('x=');
readln(x);
p:=a[0]^;
s:=1;
for i:=1 to n do
 begin
  s:=s*x;
  p:=p+a[i]^*s;
 end;
write('P(',x:0:1,')=',p:0:1);
for i:=0 to n do
dispose(a[i]);
readln
end.

@krigulsky 0 / 0 / 1 Регистрация: 07.05.2012 Сообщений: 4
		1
	Вычислить значение многочлена 11.09.2012, 13:37. Показов 1299. Ответов 1 Метки нет (Все метки) Вычислить значение многочлена P(x) = a0 + a1 x + a2 x^2 + ... + an x^n для заданного целого x (значения коэффициентов a0, a1,..., an вводятся с клавиатуры и динамически размещаются в памяти). P.S. "x" указывается в степени, а у "а" номер его; 0

	11.09.2012, 14:07

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

Решение