Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 05.10.2014
Сообщений: 25

Для заданного x найти с точностью до E>0 сумму ряда

12.10.2014, 21:36. Показов 1806. Ответов 4
Метки нет (Все метки)

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

а) Для заданного x найти с точностью до E>0 сумму ряда: S=1+x/1!+x^2/2!+x^3/3!+...
Считается, что заданная точность достигнута, если абсолютное значение очередного слагаемого меньше E.
б) Перевести число N из двоичной системы счисления в десятичную систему счисления.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.10.2014, 21:36
Ответы с готовыми решениями:

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

Для заданного положительного e и заданного x вычислить сумму ряда с точностью e
Для заданного положительного e и заданного x вычислить сумму ряда с точностью e Суммирование ряда завершается, если модуль очередного...

Для заданного положительного e и заданного x вычислить сумму ряда с точностью e
Для заданного положительного e и заданного x вычислить сумму ряда с точностью e. Суммирование ряда завершается, если модуль очередного...

4
0 / 0 / 4
Регистрация: 12.10.2014
Сообщений: 15
12.10.2014, 22:16
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var x,sum,slag,eps:real;
  count:integer;
  
  begin
  writeln('Please enter E');
  readln(eps);
  writeln('Please enter x');
  readln(x);
  sum:=0;
  slag:=1;
  count:=1;
  while slag>eps do
    begin
    sum:=sum+slag;
    slag:=slag*x/count;
    inc(count);
    end;
  writeln('Result: ',sum);
  readln;
  end.
вроде бы так решается первая задача)

Добавлено через 6 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var n,k,res,i:longint;
 
 
begin
writeln('Please enter N');
readln(n);
res:=0;
i:=1;
while n<>0 do
  begin
  k:=n mod 10;
  n:=n div 10;
  res:=res+k*i;
  i:=i*2;
  end;
 writeln('Result: ',res);
 readln;
 end.
это вроде вторая)
0
0 / 0 / 0
Регистрация: 05.10.2014
Сообщений: 25
12.10.2014, 22:22  [ТС]
что означают sum,slag и count в первом решении???
0
0 / 0 / 4
Регистрация: 12.10.2014
Сообщений: 15
12.10.2014, 22:28
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

sum - переменная, в которую записывается сумма..
slag - каждое очередное слагаемое вида (x^n)/n!
count - отдельная переменная, которая нужна для реализации факториала в переменной slag..
т.е
count = 1 slag = 1;
потом slag = x/1
count = 2
slag = x*x/2! и так далее
0
0 / 0 / 0
Регистрация: 05.10.2014
Сообщений: 25
12.10.2014, 22:32  [ТС]
Спасибо всем за помощь, выручили)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
12.10.2014, 22:32
Помогаю со студенческими работами здесь

Вычислить сумму членов бесконечного ряда с точностью до члена ряда, меньшего заданного ξ для |z| ≤ 1
x=(z+2)^2/2! - (z+2)^3/3! - (z+2)^4/4!

Как вычислить сумму ряда sin(x)/x для заданного x с точностью 0.001?
не могу разобраться \frac{sin(x)}{x} = 1 - \frac{x^2}{3!} + \frac{x^4}{5!} - \frac{x^6}{7!} + ... правила 5.16. Запрещено...

Найти сумму ряда до члена ряда с заданным номером, и найти сумму ряда с заданной точностью
№1. Дано натуральное число n. Вычислить \sum_{i=1}^n\frac{1+i}{i!} №2. Вычислить формулу по заданию №1 с точностью до...

Найти сумму ряда с заданной точностью, определить число членов ряда вошедших в сумму
Найти сумму ряда с точностью . определить число членов ряда вошедших в сумму

Найти с заданной точностью сумму ряда Тейлора для sin(x)
В общем, ребята, никак не могу решить задачу. Голову ломал недели две, но так и не пришел к омута правильному. Помогите, кто может,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru