Вычислить сумму членов ряда с точностью до члена ряда, меньшей E

@TikiMikk · Регистрация: 01.12.2015

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

Вычислить сумму членов ряда: Z=x/(x+1)!+x^2/(x+2)!+x^3/(x+3)!+... с точностью до члена ряда, меньшей E.

Добавлено через 26 секунд
Помогите плиз

@Samhain · 01.12.2015, 21:57

TikiMikk,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s,si,x,e:real;
    i:integer;
begin
  write('x = ');readln(x);
  write('eps = ');readln(e);
  s:=0;si:=1;i:=1;
  repeat
    si:=x*si/(x+i);
    s:=s+si;
    inc(i);
  until abs(si)<e;
  write('s = ',s:0:10);
  readln
end.

@Cyborg Drone · 05.12.2015, 23:43

Samhain, неверно.

Во-первых, Вас сбила с толку латинская литера "x". В данном ряде переменная x должна быть ни в коем случае не действительной, а целой, и не меньшей, чем -1, поскольку факториал от действительного числа либо от целого отрицательного числа не определён.

Во-вторых (а, скорее, как следствие из "во-первых"), неверно найден первый член последовательности.

Также не предусмотрели проверку на допустимость входных аргументов. Просто табу, вообще-то, недостаточно. За ошибку можно не считать, но всё же лучше, если программа достойно выдерживает общение с самым привередливым преподавателем.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var s, si, e: double;
    i, x: longint;
begin
  repeat
    write('Integer x >= -1;  x = ');
    readln(x)
  until x >= -1;
  if x = 0
    then s := 0
    else begin
      repeat
        write('Real eps > 0;   eps = ');
        readln(e)
      until e > 0;
      if x = -1
        then begin
          si := x;
          s := si;
          i := 2
        end
        else begin
          si := 1;
          for i := 2 to x do si := si / i;
          s := 0;
          i := 1
        end;
      repeat
        si := x / (x + i) * si;
        s := s + si;
        inc(i)
      until abs(si) < e
    end;
  write('s = ', s);
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
Согласованность транзакций в MongoDB Codd 30.04.2025 MongoDB, начинавшая свой путь как классическая NoSQL система с акцентом на гибкость и масштабируемость, сильно спрогрессировала, включив в свой арсенал поддержку транзакционной согласованности. Это. . .	Продвинутый ввод-вывод в Java: NIO, NIO.2 и асинхронный I/O Javaican 30.04.2025 Когда речь заходит о вводе-выводе в Java, классический пакет java. io долгие годы был единственным вариантом для разработчиков, но его ограничения становились всё очевиднее с ростом требований к. . .	Обнаружение объектов в реальном времени на Python с YOLO и OpenCV AI_Generated 29.04.2025 Компьютерное зрение — одна из самых динамично развивающихся областей искусственного интеллекта. В нашем мире, где визуальная информация стала доминирующим способом коммуникации, способность машин. . .	Эффективные парсеры и токенизаторы строк на C# UnmanagedCoder 29.04.2025 Обработка текстовых данных — частая задача в программировании, с которой сталкивается почти каждый разработчик. Парсеры и токенизаторы составляют основу множества современных приложений: от. . .	C++ в XXI веке - Эволюция языка и взгляд Бьярне Страуструпа bytestream 29.04.2025 C++ существует уже более 45 лет с момента его первоначальной концепции. Как и было задумано, он эволюционировал, отвечая на новые вызовы, но многие разработчики продолжают использовать C++ так, будто. . .
Слабые указатели в Go: управление памятью и предотвращение утечек ресурсов golander 29.04.2025 Управление памятью — один из краеугольных камней разработки высоконагруженных приложений. Го (Go) занимает уникальную нишу в этом вопросе, предоставляя разработчикам автоматическое управление памятью. . .	Разработка кастомных расширений для компилятора C++ NullReferenced 29.04.2025 Создание кастомных расширений для компиляторов C++ — инструмент оптимизации кода, внедрения новых языковых функций и автоматизации задач. Многие разработчики недооценивают гибкость современных. . .	Гайд по обработке исключений в C# stackOverflow 29.04.2025 Разработка надёжного программного обеспечения невозможна без грамотной обработки исключительных ситуаций. Любая программа, независимо от её размера и сложности, может столкнуться с непредвиденными. . .	Создаем RESTful API с Laravel Jason-Webb 28.04.2025 REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .	Дженерики в C# - продвинутые техники stackOverflow 28.04.2025 История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .

@TikiMikk 2 / 2 / 0 Регистрация: 01.12.2015 Сообщений: 8

	Вычислить сумму членов ряда с точностью до члена ряда, меньшей E 01.12.2015, 03:22. Показов 6347. Ответов 2 Метки нет (Все метки) Вычислить сумму членов ряда: Z=x/(x+1)!+x^2/(x+2)!+x^3/(x+3)!+... с точностью до члена ряда, меньшей E. Добавлено через 26 секунд Помогите плиз 0

Опции темы

Вычислить сумму членов ряда с точностью до члена ряда, меньшей E

Решение