Помощь - Поиск - Пользователи - Календарь
Полная версия: Вычисление суммы бесконечного ряда
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.



Что дальше не знаю.
Lapp
Цитата(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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.