Вычисление суммы всех членов ряда

@Lriten · Регистрация: 18.12.2013

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

Надо вычислить суммы всех членов ряда, больших заданного числа (экспонента = 10 в степени (-6)) (Разработать по таблице).

Вариант №7

@Cyborg Drone · 18.12.2013, 14:08

Lriten, для написания формул есть встроенный в форум редактор формул.

Pascal

program log_e;
 
const eps = 1e-6;
 
var x, y, a: real;
    n: integer;
 
begin
  repeat
    write('x = ');
    readln(x);
    if (x <= 0) or (x > 2) then writeln('Error: x out of range 0 < x <= 2, reenter.')
  until (x > 0) and (x <= 2);
  a := x - 1;
  n := 1;
  y := 0;
  while abs(a / n) >= eps do
    begin
      y := y + a / n;
      a := -1 * (x - 1) * a;
      inc(n)
    end;
  writeln('         Ln(x) = ', y);
  writeln('Build-in Ln(x) = ', ln(x));
  readln
end.

@Lriten 0 / 0 / 0 Регистрация: 18.12.2013 Сообщений: 8
		1
	Вычисление суммы всех членов ряда 18.12.2013, 11:50. Показов 1203. Ответов 1 Метки нет (Все метки) Надо вычислить суммы всех членов ряда, больших заданного числа (экспонента = 10 в степени (-6)) (Разработать по таблице). Вариант №7 Миниатюры 0

	18.12.2013, 14:08

Опции темы

Вычисление суммы всех членов ряда

Решение