Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Markovka
0 / 0 / 0
Регистрация: 23.03.2015
Сообщений: 21
#1

Считать сумму до тех пор, пока модуль очередного члена ряда больше или равен заданному е

23.03.2015, 14:40. Просмотров 590. Ответов 12
Метки нет (Все метки)

Написать программу на языках программирования Паскаль и С. Дан числовой ряд и некоторое число е. Считать сумму до тех пор, пока модуль очередного члена ряда больше или равен заданному е. Общий член ряда имеет вид:
an = n/(n+1)

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2015, 14:40
Ответы с готовыми решениями:

Найти сумму тех членов ряда, модуль которых больше или равен заданному e
Итерационные циклы Дан числовой ряд и некоторое малое число e (например,...

Найти сумму тех членов ряда,модуль которых больше или равен заданному E
Даны числовой ряд и некоторое число E.Найти сумму тех членов ряда,модуль...

Найти сумму тех членов ряда, модуль которых больше или равен заданному e
Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму...

Найти сумму тех членов ряда, модуль которых больше или равен заданному e
Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму...

Найти сумму тех членов ряда, модуль которых больше или равен заданному е
задание Даны числовой ряд и некоторое число е. Найти сумму тех членов ряда, ...

12
PogrKup
71 / 71 / 64
Регистрация: 30.04.2014
Сообщений: 214
23.03.2015, 15:17 #2
Некорректное условие:
1. Причем тут модуль, если член ряда по этой формуле не может быть отрицательным?
2. На бесконечности член ряда стремится к 1 и постоянно увеличивается. И меньше е он или будет сразу, или не будет никогда
1
Joy
Эксперт Pascal/Delphi
2131 / 1171 / 1422
Регистрация: 29.08.2014
Сообщений: 4,270
23.03.2015, 17:21 #3
Markovka, может все таки такое условие: http://www.cyberforum.ru/cgi-bin/latex.cgi?|a_n-a_{n-1}|\leq\eps
0
Markovka
0 / 0 / 0
Регистрация: 23.03.2015
Сообщений: 21
23.03.2015, 17:26  [ТС] #4
Joy, [а][/n] = n/(n+1)
0
Joy
Эксперт Pascal/Delphi
2131 / 1171 / 1422
Регистрация: 29.08.2014
Сообщений: 4,270
23.03.2015, 17:42 #5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const eps=0.000001;
var
  n:integer;
  an,an1,s:real;
begin
  repeat
    inc(n);
    an1:=an;
    an:=n/(n+1);
    s:=s+an;
  until abs(an-an1)<=eps;
  writeln(s);
end.
или с вашим условием:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  n:integer;
  an,s,eps:real;
begin
  write('eps=');
  readln(eps);
  repeat
    inc(n);
    an:=n/(n+1);
    s:=s+an;
  until (abs(an)<=eps) or (n>1000);
  if n>1000 then writeln ('выполнено 1000 итераций');
  writeln(s);
end.
1
PogrKup
71 / 71 / 64
Регистрация: 30.04.2014
Сообщений: 214
24.03.2015, 00:46 #6
Ну если разность между соседними членами ряда, то это совсем другое дело)))

Добавлено через 1 минуту
Но или преподаватель в задании напортачил, или ученик неправильно написал условие. А мы тут голову ломаем)

Добавлено через 1 минуту
Странно, что до сих пор Puporev не вмешался) Вот он точно бы всех нас рассудил!
0
Puporev
Модератор
54216 / 41849 / 28921
Регистрация: 18.05.2008
Сообщений: 98,514
24.03.2015, 07:34 #7
Цитата Сообщение от PogrKup Посмотреть сообщение
Но или преподаватель в задании напортачил, или ученик неправильно написал условие.
Поддерживаю, глупость в условии.
1
Markovka
0 / 0 / 0
Регистрация: 23.03.2015
Сообщений: 21
24.03.2015, 18:16  [ТС] #8
Вот так
0
Миниатюры
Считать сумму до тех пор, пока модуль очередного члена ряда больше или равен заданному е  
Puporev
Модератор
54216 / 41849 / 28921
Регистрация: 18.05.2008
Сообщений: 98,514
24.03.2015, 18:21 #9
Markovka, Ну и что ты показал, написали же тебе что это глупость, а чья, нам не интересно. Плохо что Вы совсем не понимаете математику...
0
Markovka
0 / 0 / 0
Регистрация: 23.03.2015
Сообщений: 21
24.03.2015, 18:23  [ТС] #10
Да дело не в том что я не понимаю, просто много заданий дали а я не успеваю сама все делать, перевелась я а в другом месте такого не проходила
0
Puporev
Модератор
54216 / 41849 / 28921
Регистрация: 18.05.2008
Сообщений: 98,514
24.03.2015, 18:28 #11
Да я понимаю что задание написано неверно, нужно разбираться с тем кто это дал. Так часто бывают ошибки в заданиях....
0
Markovka
0 / 0 / 0
Регистрация: 23.03.2015
Сообщений: 21
24.03.2015, 18:31  [ТС] #12
Puporev, Но все ровно спасибо за помощь) Еще 20 задач и все)
0
PogrKup
71 / 71 / 64
Регистрация: 30.04.2014
Сообщений: 214
24.03.2015, 18:51 #13
Можете даже задание не делать, а просто показать преподавателю, какая Вы умная)))
1/(1+1)=0.5
2/(2+1)=0.6667
3/(3+1)=0.75
4/(4+1)=0.8
Покажите преподавателю, что ряд сходится к единице и задача просто не имеет смысла. Нормальный препод должен это оценить...
0
24.03.2015, 18:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2015, 18:51

Цикл: найти сумму тех членов ряда, модуль которых больше или равен заданному E
Даны числовой ряд и некоторое число E. Найти сумму тех членов ряда, модуль...

Найти сумму тех членов ряда, модуль которых больше или равен заданному числу
Даны числовой ряд и некоторое число е. Найти сумму тех членов ряда, модуль...

Найти сумму тех членов ряда, модуль которых больше или равен заданному ε
Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль...


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

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

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