Найти сумму ряда с точностью до члена ряда, меньшего  (задается с клавиатуры) для заданного значения x и срав

@alenka_stark · Регистрация: 27.11.2016

Найти сумму ряда с точностью до члена ряда, меньшего  (задается с клавиатуры) для заданного значения x и срав

@Puporev · 28.11.2016, 10:38

Pascal

uses crt;
var n:integer;
    x,e,t,s:real;
begin
repeat
write('Введите |x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('Введите точность 0>e<1 e=');
readln(e);
until(e>0)and(e<1);
n:=1;
t:=x/2;
s:=1+t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*(2*n-3)*x/(2*n);
  s:=s+t;
 end;
writeln('S=',s:0:5);
write('sqrt(1+x)=',sqrt(1+x):0:5);
end.

@alenka_stark 0 / 0 / 0 Регистрация: 27.11.2016 Сообщений: 4
		1
	Найти сумму ряда с точностью до члена ряда, меньшего  (задается с клавиатуры) для заданного значения x и срав 28.11.2016, 00:00. Показов 2200. Ответов 1 Метки нет (Все метки) 0

Опции темы

Найти сумму ряда с точностью до члена ряда, меньшего  (задается с клавиатуры) для заданного значения x и срав

Решение