Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Вычисление суммы бесконечного ряда

Автор: retenr 2.12.2009 18:30

Прикрепленное изображение

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


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.



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

Автор: Lapp 2.12.2009 18:48

Цитата(retenr @ 2.12.2009 14:30) *
Что дальше не знаю.

Примерно так:
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 тебе не надо - это переменная цикла.
А считать лучше всегда с нуля, зачем тебе за машину первый член высчитывать.. smile.gif