Вычисление суммы бесконечного ряда Опции

[retenr]

Сделал такую заготовку:

program prp7;

var
i,n:integer;
s,k:real;
begin
s:=0.5;{т. к. в первом члене a и b =1}
writeln('Введите n');
readln(n);
writeln('Введите k');
readln(k);
for 2 to n do
begin



s:=s+?;
end;
writeln(s);
end.

Что дальше не знаю.

Сообщение отредактировано: retenr - 2.12.2009 18:31

[Lapp]

Что дальше не знаю.

Примерно так:

var
  k,n:integer;
  s,a,b:real;

begin
  writeln('Введите n');
  readln(n);
  a:=1;
  b:=1;
  s:=0;
  for k:=1 to n do begin
    s:=s+a/(1+Abs(b));
    a:=0.3*a;
    b:=a+b
  end;
  writeln(s);
end.

Вводить k тебе не надо - это переменная цикла.
А считать лучше всегда с нуля, зачем тебе за машину первый член высчитывать..