помогите пожалуйста решить задачу на Pascal'e.

[roller]

Здравствуйте!помогите пожалуйста решить данную задачу.В Паскале я слаб...если честно,то я даже не представляю как решить эту задачу:

По заданному полиному Pn(x)=Summa(от i=0 до n) ai*x^(n-i) найдите коэффициенты полинома Q(n+1)(x)=Integral(от 0 до x) Pn(t) dt.

Расшифрую сумму и интеграл на человеческий язык,а то написал непонятно я:

Pn (n-нижний индекс) от (х)=Сумме(от i=0 до n) выражения: ai (i-нижний индекс) умноженное на х в степени n-i.

Q(n+1) (n+1-нижний индекс)=Интегралу(от 0 до х) Pn(n-нижний индекс) от (t) по dt.

вот на всякий случай еще изображения суммы,интеграла и определения полинома.


http://img17.imageshack.us/img17/980/summa.jpg


Заранее огромнейшее спасибо за помощь! =)

[Сергей089]

Нужно было просто интеграл посчитать?

program polinom;
uses crt;
const m=100;
var a,b:array [0..m] of real;
    i,n,k:integer;
begin
clrscr;
repeat
write ('n=');
readln (n);
until (n>0) and (n<=m);
for i:=0 to n do
    begin
    write ('a',i,'=');
    readln (a[i]);
    end;
k:=n+1;
for i:=0 to n do
    begin
    b[i]:=a[i]/k;
    k:=k-1;
    end;
writeln ('Resultat:');
k:=n+1;
for i:=0 to n do
    begin
    write (b[i]:7:2,'x^',k);
    k:=k-1;
    end;
end.

[capta1n]

ну вот что-то такое, написал только для целых положительных степеней:

program polinom1;
type
  link = ^mem;
  mem = record
          a : real;
          next : link
        end;
var
  polinom,pols : link;
  n,n1 : integer;
  a : real;
  i : word;
begin
  write ('Vvedite stepen'' polinoma: '); readln (n);
  polinom:=nil;
  writeln ('Napishite koefficienti polinoma: ');
  for i:=0 to n do
  begin
    write ('a',i,'= '); readln (a);
    if polinom=nil then
    begin
      new(polinom);
      polinom^.a:=a;
      polinom^.next:=nil;
      pols:=polinom
    end
    else
    begin
      new(pols^.next);
      pols:=pols^.next;
      pols^.a:=a;
      pols^.next:=nil
    end
  end;

  pols:=polinom;
  i:=0;
  while pols<>nil do
  begin
    if pols^.a>=0 then write ('+',pols^.a/(i+1):0:2,'x^',i+1)
                  else write (pols^.a/(i+1):0:2,'x^',i+1);
    pols:=pols^.next;
    inc(i);
    dec(n1)
  end;
  readln
end.

[roller]

спасибо огромное за решение,но только можешь подправить задачу(т.е. сделать чуть полегче).Просто у тебя тут какие-то mem=record,linki... мы такое не используем в универе.и еще nil не знаю что это.пожалуйста,если можешь сделай задачу на уровне начинающего,а не профессионала.

[capta1n]

pols^.a/(i+1)

вот тебе и коэффициент новый

[capta1n]

ну это я сделал с линейными списками, чтобы можно было вводить сколько угодно большую степень, сейчас времени нет переделывать

[roller]

вот нужный уровень(пример из методички) :

[roller]

сделай полегче пожалуйста.если это возможно.а то нынешнее поймут в универе что не я делал...

когда сможешь.время до понедельника есть.

только поправь пожаалуйста.

[roller]

Народ,напишите программу пожалуйста на более легком уровне!очень прошу!