Дан числовой ряд и некоторое число e

@Sqart · Регистрация: 24.10.2012

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

Выполнить с помощью цикла:
Дан числовой ряд и некоторое число e.Считать сумму до тех пор, пока модуль очередного члена ряда больше или равен заданному e. Общий член ряда имеет вид:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{n}=3/{2}^{n}$

@Puporev · 20.02.2013, 09:46

Pascal

uses crt;
var e,an,s:real;
    n:integer;
begin
clrscr;
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=3 then s:=3
else
 begin
  n:=0;
  an:=3;
  s:=an;
  while an>e do
   begin
    n:=n+1;
    an:=an/2;
    s:=s+an;
   end;
 end;
write('S=',s:0:4);
readln
end.

@Sqart 2 / 2 / 0 Регистрация: 24.10.2012 Сообщений: 70
		1
	Дан числовой ряд и некоторое число e 19.02.2013, 22:50. Показов 1814. Ответов 1 Метки нет (Все метки) Выполнить с помощью цикла: Дан числовой ряд и некоторое число e.Считать сумму до тех пор, пока модуль очередного члена ряда больше или равен заданному e. Общий член ряда имеет вид: $https://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{n}=3/{2}^{n}$ 0

	20.02.2013, 09:46

Опции темы

Дан числовой ряд и некоторое число e

Решение