циклы!

@никен · Регистрация: 03.11.2009

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

Необходимо составить прогу для вычисления суммы бесконечно сходящегося ряда. Суммирование прекратить при появлении в сумме слагаемого, имеющего абсолютную величину, меньшую заданной погрешности, значение которой вводится с клавиатуры. (S=1+1/2+1/4+1/8+1/16...)
Никак не могу составить HELP

@say · 06.11.2009, 00:27

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

Pascal

var i : integer;
     eps, a, s : real;
begin
  write("eps = ");
  read(eps);
  i := 1;
  a := 1;
  s := a;
  while(a >= eps) do
  begin
    i := i * 2;
    a := 1 / i;
    s := s + a;
  end;
  write("S = ", s);
end.

@System.exe · 06.11.2009, 00:37

Pascal

Var n,i:integer;
s,t:double;
begin
writeln('enter pogreshnost');
readln(n);
s:=0;i:=0;
repeat
begin
t:=1/exp(i*ln(2));
s:=s+t;
i:=i+1
end;
until t=n;
writeln('s(pri pogreshnosti', n, ')=', s:6:3)
end.

@никен 0 / 0 / 0 Регистрация: 03.11.2009 Сообщений: 10
		1
	циклы! 05.11.2009, 21:55. Показов 1270. Ответов 2 Метки нет (Все метки) Необходимо составить прогу для вычисления суммы бесконечно сходящегося ряда. Суммирование прекратить при появлении в сумме слагаемого, имеющего абсолютную величину, меньшую заданной погрешности, значение которой вводится с клавиатуры. (S=1+1/2+1/4+1/8+1/16...) Никак не могу составить HELP 0

	06.11.2009, 00:37

Опции темы

циклы!

Решение