Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 13.05.2014
Сообщений: 7

Вычислите сумму ряда

22.05.2014, 12:43. Показов 2281. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вычислите сумму ряда для каждого значения x пренадлежит [0; 0.9] с шагом h. Вычисление производить до тех пор, пока очередной член больше ε.

https://www.cyberforum.ru/cgi-bin/latex.cgi?Y = 1 + \frac{x}{3}+\left( \frac{x}{3}\right)^2+...

Формат входных данных
Во входном файле задано два действительных числа: h и ε.
(0.05 ≤ h ≤ 0.9, 10-8 ≤ ε ≤ 10-2)
Формат выходных данных
В выходной файл выведите таблицу, состоящую из двух колонок. Первая колонка содержит значения x, а вторая содержит приближенную сумму ряда при соответствующем значении x. Действительные числа выводите ровно с 8 знаками после запятой. Если через 10000 операций слагаемое так и не стало меньше ε, то считайте, что ряд расходится, а в качестве суммы выведите "0.00000000". Решение в паскале
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.05.2014, 12:43
Ответы с готовыми решениями:

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

Вычислите сумму первых N чисел натурального ряда кратных 3.
Помогите пожалуйста с решением. Вычислите сумму первых N чисел натурального ряда кратных 3 с...

Вычислите сумму ряда с заданной степенью точности
Вычислите сумму ряда с заданной степенью точности \sum_{n=1}^{\infty}\left(-1 \right)^n \times...

1
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
22.05.2014, 17:25
Лучший ответ Сообщение было отмечено сонька как решение

Решение

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
  f : Text;
  count : Word;
  eps, step, x, dY, y : Double;
  
begin
  Assign(f, 'input.txt');
  Reset(f);
  ReadLn(f, step); ReadLn(f, eps);
  Close(f);
  Assign(f, 'output.txt'); ReWrite(f);
  x := 0;
  repeat
  begin
    count := 0; y := 0; dY := 1;
    while (dY > eps) do
    begin
      Inc(count);
      if (count <= 10000) then
      begin
        y := y + dY;
        dY := dY * (x / 3);
      end
      else
      begin
        y := 0;
        break;
      end;
    end;
    WriteLn(f, x:3:8, #9, y:3:8);
    x := x + step;
  end;
  until (x > 0.9);
  Close(f);
end.
что-то тип такого...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.05.2014, 17:25
Помогаю со студенческими работами здесь

Вычислите сумму ряда с заданной степенью точности альфа
Вычислите сумму ряда с заданной степенью точности альфа. альфа=0.001 ...

Вычислите бесконечную сумму ряда с заданной точностью eps
Задача: Вычислите бесконечную сумму ряда с заданной точностью eps, считая, что нужная точность...

Вычислите сумму ряда с заданной степенью точности
помогите, пожалуйста, написать программу на ABC паскале: Вычислите сумму ряда с заданной...

Вычислите сумму членов ряда
Помогите с задачей: Вычислите сумму членов ряда (на картинке) с точностью до члена ряда,...

Вычислите сумму ряда
Вычислите сумму ряда S = 1 + 1/x + 1/2x + 1/3x + ... 1/nx, для n введённого с клавиатуры.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
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 и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru