Найти частичную сумму ряда

@XameleoH · Регистрация: 23.01.2012

Студворк — интернет-сервис помощи студентам

Помогите, вроде как сделал, но мне кажется, что это не то
Ряд: 1+1/2+1/4+1/8+...
Найти частичную сумму ряда. Ряд сходится к значению 2.
s в цикле почему-то 6 раз становится значением 2, потом только выходит.

Код

program zadacha;
var b,s,a:real;
begin
 b:=1;
 s:=0;
 while s<2 do
 begin
  a:=1/b;
  s:=s+a;
  b:=b*2;
 end;
 writeln(s);
end.

@erl27 · 18.10.2013, 19:55

Этот ряд бесконечный, поэтому сумму такого ряда можно искать только с наперед заданной точностью. Вот так, например:

Pascal

program zadacha;
 
var
  b, s, a: real;
 
begin
  b := 2;
  s := 1;
  repeat
    a := 1 / b;
    s := s + a;
    b := b * 2
  until a < 0.00001;  
  writeln(s);
end.

@XameleoH 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 9
		1
	Найти частичную сумму ряда 18.10.2013, 19:31. Показов 1169. Ответов 1 Метки нет (Все метки) Помогите, вроде как сделал, но мне кажется, что это не то Ряд: 1+1/2+1/4+1/8+... Найти частичную сумму ряда. Ряд сходится к значению 2. s в цикле почему-то 6 раз становится значением 2, потом только выходит. Код program zadacha; var b,s,a:real; begin b:=1; s:=0; while s<2 do begin a:=1/b; s:=s+a; b:=b*2; end; writeln(s); end. 0

Опции темы

Найти частичную сумму ряда

Решение