Вычислите сумму ряда с заданной степенью точности

@yano4ka15 · Регистрация: 07.10.2012

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

помогите, пожалуйста, написать программу на ABC паскале:

Вычислите сумму ряда с заданной степенью точности $https://www.cyberforum.ru/cgi-bin/latex.cgi?\small \alpha$ :

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\small \sum_{\propto }^{n=0}$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?\small {-1}^{n+1}$ * $https://www.cyberforum.ru/cgi-bin/latex.cgi?\small {\frac{-2}{3}}^{n}$ , $https://www.cyberforum.ru/cgi-bin/latex.cgi?\small \alpha$ =0,001

@Alixa · 08.10.2012, 19:04

Pascal

program L3_47;
uses
  crt;
const
  a=0.001;
  b=-2/3;
var
  n,z:integer;
  Sum, s:real;
Begin
  n:=n+1; z:=-1;
  Sum:=1; s:=0;
 while abs(s)>a do
  begin
   s:=z/(power(b, n));
   Sum:=Sum+s;
   z:=-z;
   inc (n);
  end;
 writeln ('Îòâåò:', Sum:0:4);
End.

@yano4ka15 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 44
		1
	Вычислите сумму ряда с заданной степенью точности 07.10.2012, 20:50. Показов 1175. Ответов 1 Метки нет (Все метки) помогите, пожалуйста, написать программу на ABC паскале: Вычислите сумму ряда с заданной степенью точности $https://www.cyberforum.ru/cgi-bin/latex.cgi?\small \alpha$ : $https://www.cyberforum.ru/cgi-bin/latex.cgi?\small \sum_{\propto }^{n=0}$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?\small {-1}^{n+1}$ * $https://www.cyberforum.ru/cgi-bin/latex.cgi?\small {\frac{-2}{3}}^{n}$ , $https://www.cyberforum.ru/cgi-bin/latex.cgi?\small \alpha$ =0,001 0

	08.10.2012, 19:04

Вычислите сумму ряда с заданной степенью точности

Решение