Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Petro29
8 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 344
1

Как определить в количество слагаемых, определяющих сумму ряда

13.06.2016, 13:57. Просмотров 426. Ответов 1
Метки нет (Все метки)

Для заданного ряда написана программа для приближённого вычисления суммы с использованием оператора while (цикл с предусловием).
А можно ли определить в этой программе количество слагаемых, определяющих сумму этого ряда?

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
Program Summa2;
var  Eps:  real;  {Заданное число «эпсилон»}
       X: real;      {Основание степени в числителе дроби}
       S: real;       {Переменная для накопления суммы}
       Y: real;       {Для хранения очередного слагаемого}
        i: integer;   {Счётчик числа шагов}
begin
   write(‘  Ввести  X  и Epsilon:);
 readln(X, Eps);
Y: = 1;   {Первое слагаемое}
S: = Y;   {Первое слагаемое в сумматоре}
i: = 0;     {Обнуление счётчика шагов}
 
while abs(Y) >= Eps do   {Пока добавленное слагаемое не меньше
                                          «эпсилон», выполняется сумма. Если «эп-
                                          силон сразу не меньше 1, цикл не выпол-
                                          нится ни разу}
begin            {Начало тела цикла}
    i: = i + 1;  {Вычисление номера текущего шага} 
   Y: = Y * X / I;  {Подсчёт нового слагаемого}
    S: = S + Y  {Увеличение суммы на текущее слагаемое}
end;  {Тело завершилось. Далее оператор while сравнивает пере-мен-
          ную «эпсилон» с только что добавленным слагаемым}
    writeln(‘  Сумма чисел = ‘  ,  S: 6: 4);
    readln
end.
Вывод на экран:

Ввести X и Epsilon: 5 0.1
Сумма чисел = 148.3796


А далее пошли вопросы:

Y = 1 + + + + + + + + + + + + + + + =
= 1+ +
+
+ +
+ =

= 1 + 5 + 12.5 + 20.8333 + 26.0417 + 26.0417 + 21.7014 + 15.5010 + 9.6881 + 5.3823 +
+ 2.6911 + 1.2232 + 0.5097 + 0.1960 + 0.0700 =148.3795

При 8 слагаемых со значением 8-го слагаемого 15.5010 сумма равна = 128.6191.
А при вводе = 15 < 15.5010 программа показывает сумму, равную 1.
При 11 слагаемых со значением 11-го слагаемого 2.6911 сумма равна = 128.6191.
А при вводе = 2 < 2.6911 программа показывает сумму, равную 1.
При 14 слагаемых со значением 14-го слагаемого 0.1960 сумма равна = 148.3095.
А при вводе = 0.15 < 0.1960 программа показывает сумму, равную 148.3095.
При 15 слагаемых со значением 15-го слагаемого 0.0700 сумма равна = 148.3795.
А при вводе = 0.05 < 0.07 программа показывает сумму, равную 148.4029.

А при вводе = 1 программа показывает сумму, равную 148.1135.

И что получается: сумму первых11 слагаемых (при = 2 > 1) программа не может опре-делить? Ну и вопрос, что в начале обращения к Вам: может ли программа определять коли-чество слагаемых в значении суммы?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2016, 13:57
Ответы с готовыми решениями:

Вычислить сумму ряда и указать количество учтённых слагаемых
Здравствуйте, можете помочь с написанием программы) Даны действительные числа...

Определить количество слагаемых, необходимых, чтобы сумма ряда стала равна 5
Здраствуйте. Я сам не програмист но нада написать програму а я вобще не...

Программа ищет сумму ряда и количество учтенных слагаемых, нужно также чтобы искала значение функции
здравствуйте. помогите пожалуйста доработать программу. она ищет сумму ряда и...

Вычислить с точностью ε(ε=10-3,10-4,10-5,10-6)сумму ряда и указать количество учтеных слагаемых.
Даны действительные числа x, ε (x не равно 0, ε&gt;0). Вычислить с точностью...

Даны действительные числа x, ε. Вычислить с точностью ε сумму ряда и указать количество учтеных слагаемых
Даны действительные числа x, ε (x не равно 0, ε&gt;0). Вычислить с точностью ε...

1
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
13.06.2016, 18:54 2
Pascal
1
2
write('  Количество слагаемых = ', i+1);
 readln
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2016, 18:54

Вычислить сумму 100 слагаемых ряда если n-ый член ряда задается выражением
Вычислить сумму 100 слагаемых ряда если n-ый член ряда задается выражением: А...

Вычислить сумму ряда для n слагаемых (1/(1*2*3))+(1/(2*3*4))+(1/(3*4*5))+(1/(4*5*6))+.....
Написать программу вычисления суммы ряда для n слагаемых ...

Вычислить сумму 100 слагаемых ряда
Привет!Помогите,пожалуйста...Задание:Вычислить сумму 100 слагаемых ряда,если...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru