Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
345729699
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 15
1

Цикл с неустановленным числом повторений

29.10.2014, 18:25. Просмотров 379. Ответов 6
Метки нет (Все метки)

Помогите, пожалуйста, решить задачу на делфи! цикл с неустановленным числом повторений
http://www.cyberforum.ru/attachment....1&d=1414596109
0
Миниатюры
Цикл с неустановленным числом повторений  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2014, 18:25
Ответы с готовыми решениями:

помогите решить цикл с неизвестным числом повторений
Вычислить значение суммы членов бесконечного ряда с заданной точностью Е с использованием оператора...

Циклы с известным числом повторений
Значение функции sin2(x) можно вычислить с помощью разложения ее в ряд Маклорена

Циклы с неизвестным числом повторений
сумма членов ряда: \prod = s = 4(1-1/3+...+{(-1)}^{n}*(1/(2n+1))+...) точность E: 10-4

Циклы с неизвестным числом повторений Делфи
Вычислить значение суммы членов бесконечного ряда arctg (x)=s =1/x+..+(-1)в степени n*1/(2n+1)x...

Циклы с неизвестным числом повторений
Написать программу суммирования рядов при одном и том же значении аргумента и 2-х значениях...

6
Puporev
Модератор
56838 / 43429 / 30027
Регистрация: 18.05.2008
Сообщений: 103,452
29.10.2014, 18:32 2
e>0 задается преподавателем.
И какое же он задал?
0
345729699
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 15
29.10.2014, 18:35  [ТС] 3
E=0.001
0
snake32
1823 / 1139 / 203
Регистрация: 26.02.2009
Сообщений: 4,240
Записей в блоге: 5
29.10.2014, 19:18 4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function Find( const eps:double ):double;
  var n:integer; 
  Anext,Apred,dif:double;
begin
  n := 1;
  Anext := 1 - 1/n;// 0
  repeat
    Apred := Anext;
    n := n +1;
    Anext := 1 - 1/n;
    dif := abs( Anext - Apred );
  until dif<eps;
  Result := Anext;
end;
1
Puporev
Модератор
56838 / 43429 / 30027
Регистрация: 18.05.2008
Сообщений: 103,452
29.10.2014, 19:18 5
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a1,an,e:real;
    n:integer;
begin
e:=0.001;
a1:=1-1/2;
an:=a1*(1-1/3);
n:=2;
while abs(an-a1)>=e do
 begin
  n:=n+1;
  a1:=an;
  an:=an*(1-1/(n+1));
 end;
write('an=',an:0:4,' |an-a1|=', abs(an-a1):0:4,' n=',n);
readln
end.
1
snake32
1823 / 1139 / 203
Регистрация: 26.02.2009
Сообщений: 4,240
Записей в блоге: 5
29.10.2014, 19:24 6
Умножение пропустил
0
345729699
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 15
29.10.2014, 20:05  [ТС] 7
Огромное спасибо!
0
29.10.2014, 20:05
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2014, 20:05

Циклы с неустановленным числом повторений(подскажите как задачу решить)
НЕ используя стандартные функции, вычислить с точностью ε&gt;0 Y=arctgx=x-x(в степени 3)/3+x(в...

Цикл с незаданным числом повторений
Составить программу для вычисления значения функции у с заданной точностью Е. Итерационные...

Цикл с заданным числом повторений
Здравствуйте, пожалуйста, помогите написать программу, нужно найти сумму n элементов при помощи...


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

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

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