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