Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
 Аватар для Jebol
1 / 1 / 0
Регистрация: 05.12.2011
Сообщений: 39

Найти сумму ряда с заданной точностью

04.01.2012, 15:42. Показов 1604. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите составить программу для нахождения суммы ряда с точностью E=0,001.
формула члена ряда Название: 3a529591168c.png
Просмотров: 260

Размер: 762 байт

сам составил вот такую программу но она почему-то не работает

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program sum;
 
var
  N: integer;
  Sum, Y, E: real;
 
begin
  write('введите E=');
  readln(E);
  Sum := 0;
  N := 0;
  repeat
    Y := Exp(10 * ln(N)) / N;
    Sum := Sum + Y;
    N := N + 1;
  until Y < E;
  Writeln('Сумма = ', Sum:0:3);
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.01.2012, 15:42
Ответы с готовыми решениями:

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

Найти сумму ряда с заданной точностью
Найти сумму ряда с точностью E=10^-3, общий член которого an= 1/n^2 перед begin не нравится чего-то var int n; float aSum, E; ...

Найти сумму ряда с заданной точностью
Нужна помощь в решении. Используя оператор цикла, найти сумму элементов, указанных в конкретном варианте. Результат напечатать,...

6
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
04.01.2012, 16:02
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  eps=0.001;
var
  s,i,x:real;
begin
  s:=0;
  x:=1;
  i:=1;
  repeat
    x:=x*10/i;
    s:=s+x;
    i:=i+1;
  until x<eps;
  writeln('S=',s:0:5);
end.
1
 Аватар для Jebol
1 / 1 / 0
Регистрация: 05.12.2011
Сообщений: 39
04.01.2012, 18:39  [ТС]
Спасибо конечно, но где вы использовали мою формулу?
0
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
04.01.2012, 18:59
По этой формуле выводится следующий член ряда в цикле.
0
 Аватар для Jebol
1 / 1 / 0
Регистрация: 05.12.2011
Сообщений: 39
04.01.2012, 19:03  [ТС]
Это я понимаю, но разве 10 в степень I возводить не надо?
0
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
04.01.2012, 19:12
Из формулы находим закономерность, перемножая член ряда на 10/i, мы получаем следующий член ряда. an-1=10^n-1/n-1! an=an-1*10/n=10^n/n!
0
 Аватар для Jebol
1 / 1 / 0
Регистрация: 05.12.2011
Сообщений: 39
04.01.2012, 19:25  [ТС]
Кажется я понял, спасибо за помощь!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.01.2012, 19:25
Помогаю со студенческими работами здесь

Найти сумму ряда с заданной точностью
Решить задачу Найти сумму ряда с заданной точностью. Ряд: \frac{1}{4}x-\frac{1\cdot 5}{4\cdot 8}x^2+\frac{1\cdot 5\cdot...

Найти сумму ряда с заданной точностью
Составить алгоритм и программу нахождения суммы ряда с заданной точностью Е. Использовать рекуррентные соотношения при вычислении...

Найти сумму бесконечного ряда с заданной точностью
помогите пожалуйста найти ошибку: program aaa; var r,s,i,f:real; begin r:=3.14/3; s:=0; i:=0; repeat i:=i+2; ...

Найти сумму ряда с заданной точностью(Циклы)
Найти сумму ряда с заданной точностью E= 0,001, общий член которого an= n!/n^n

Цикл: Найти сумму ряда с заданной точностью e = 0,001...
Найти сумму ряда с заданной точностью e = 0.001, общий член которого an = n! / nn


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru