Просто сумма, вычислить Опции

[SkIv]

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

[Гость]

Извиняюсь, что так долго (с информатикой разбирался). Вообщем прошли мы недавно этот принцип на программировании, он называется Рекуррентным алгоритмом. основной принцип понял, но мне не нравятся ответы, которые он выдает, если вам не трудно посмотрите что я тут написал и скажите есть ли ошибки.

Код

Program zad;
uses crt;
const e=1e-6;
var x,k,a,i,f: integer;
    p,s: real;
begin
clrscr;
write('a=');
readln(a);
s:=1;
p:=1;
k:=1;
x:=1;
writeln('a(0)=',s:4:2);
for i:= 1 to 10 do
begin
  while p>e do
   begin
    p:=p*((x*ln(a))/k);
    s:=s+p;
    k:=k+1;
   end;
  writeln('a(',x,')=',s:4:2);
  x:=x+1;
end;
readln;
end.

Сообщение отредактировано: volvo - 6.10.2006 22:22