Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε

@WebSofter · Регистрация: 27.11.2013

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

Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε и указать количество учтенных слагаемых:

Помогите пожалуйста с решением

@WebSofter · 27.11.2013, 14:50 **[ТС]**

Правильно ли я решил? Не проверите вы?
У меня что-то кроме единицы ничего не выходит.

Pascal

Var x,eps,k,s:real; n:integer;
begin
  eps:=strtofloat(Edit1.text);
  x:=strtofloat(Edit2.text);
  k:=1;
  s:=0;
  n:=0;
   repeat
     inc(n);
     s:=s+k;
     k:=Exp(n*Ln(-1))*Exp(n*Ln(x))/Exp(2*Ln(n+1));
   until k<eps;
   StaticText1.Caption:=floattostr(n);
   StaticText2.Caption:=floattostr(s);
 
end;

@bormant · 27.11.2013, 15:23

С вашего позволения на паскале, на дельфи переведёте самостоятельно:

Pascal

var
  k, one: integer;
  eps, x, s, e: real;
begin
  Write('eps, x: '); ReadLn(eps, x);
  k := 0; s:= 0; one := 1;
  repeat
    e := one * exp(k*ln(x)) / sqr(k+1);
    s := s + e;
    inc(k); one := -one;
  until abs(e) < eps;
  WriteLn('Результат = ', s, ' на шаге ', k);
end.

Тестовый прогон для x=1 и точности 0.1, 0.001, 0.000001:

Код

eps, x: 1e-1 1
Результат = 0.7986 на шаге 4
eps, x: 1e-3 1
Результат = 0.8220 на шаге 32
eps, x: 1e-6 1
Результат = 0.8225 на шаге 1001

@WebSofter · 27.11.2013, 15:52 **[ТС]**

bormant , о как быстро, спасибо

@WebSofter 0 / 0 / 1 Регистрация: 27.11.2013 Сообщений: 52
		1
	Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε 27.11.2013, 14:11. Показов 2717. Ответов 3 Метки нет (Все метки) Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε и указать количество учтенных слагаемых: Помогите пожалуйста с решением Изображения 0

@WebSofter 0 / 0 / 1 Регистрация: 27.11.2013 Сообщений: 52
	27.11.2013, 15:52 [ТС]	4
	bormant , о как быстро, спасибо 0

Опции темы