Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Petro29
8 / 8 / 0
Регистрация: 30.04.2016
Сообщений: 230
#1

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

13.06.2016, 13:57. Просмотров 302. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как определить в количество слагаемых, определяющих сумму ряда (Turbo Pascal):

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

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

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

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

Вычислить сумму 100 слагаемых ряда если n-ый член ряда задается выражением - Pascal
Вычислить сумму 100 слагаемых ряда если n-ый член ряда задается выражением: А энное равно, в числителе cos((2n-1)x), в знаменателе (2n-1)...

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

1
Puporev
Модератор
52814 / 40625 / 13879
Регистрация: 18.05.2008
Сообщений: 94,223
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 слагаемых ряда - Pascal
Вычислить сумму 100 слагаемых ряда,если n-ый член ряда задается формулой:a_n=(cos(2nx))/(2n-1)*(2n+1) для четырех значений переменной...

Вычислить сумму 100 слагаемых ряда - Pascal
Привет!Помогите,пожалуйста...Задание:Вычислить сумму 100 слагаемых ряда,если n-ый член задается формулой a_n=x^n/n! для четырех значений...

Найти максимальное количество слагаемых в сумме членов ряда - Turbo Pascal
Найти максимальное кол-во слагаемых в сумме членов ряда, при котором эта сумма станет больше 120. Кроме этого, вывести на экран значение...

Посчитать сумму указанного в варианте ряда для заданного значения x и точности (количества слагаемых) - Pascal
Вот: у(х)=1-х+(Х*Х)/2!-(х*х*х)/3!+(х*х*х*х)/4!-......., abs(x)&lt;бесконечности z(x)=e^(-1)+b :wall::help::swoon::sorry:


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

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

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