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

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Mosak
0 / 0 / 0
Регистрация: 30.11.2015
Сообщений: 9
#1

Вычислить сумму бесконечного сходящегося ряда - Delphi

27.02.2016, 22:14. Просмотров 214. Ответов 1

Вычислить сумму бесконечного сходящегося ряда. Суммирование прекратить при появлении в сумме слагаемых, имеющих абсолютную величину, меньшую заданной погрешности d. Значение d задается пользователем.
S = (1/(1*5))+(1/(2*6))+(1/(3*7))+....

код Delphi
Пожалуйста)

Добавлено через 3 часа 38 минут
Помогите пожалуйста с решением данной задачи. Очень очень надо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2016, 22:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить сумму бесконечного сходящегося ряда (Delphi):

Вычислить сумму бесконечного сходящегося ряда - Delphi
привет всем! помогите Вычислить сумму бесконечного сходящегося ряда S=1-(1/2^5)+(1/3^5)-(1/4^5)+...

Вычислить сумму бесконечного сходящегося ряда с заданной погрешностью - Delphi
Всем привет. может кто помочь ? delphi вообще не изучал (( S=\frac{1}{3}+\frac{1}{6}+\frac{1}{9}+\frac{1}{12}+...

Вычислить с заданной точностью произведение бесконечного сходящегося ряда - Delphi
Вычислить с заданной точностью произведение бесконечного сходящегося ряда; если что есть маленький пример::)

Вычислить сумму бесконечного ряда - Delphi
Вот задание: Нужно написать процедуру(функцию) в Delphi по вычислению суммы бесконечного ряда с заданной точностью. Помогите...

Вычислить сумму членов бесконечного ряда с заданной точностью - Delphi
Помогите пожалуйста решить задачу. Уже черт знает сколько мучаюсь. Очень надеюсь на вашу помощь. Изображения перенесены на форум...

вычислить сумму бесконечного ряда, учитывая только те слагаемые, которые по абсолютной величине больше заданного числа - Delphi
Лабораторная работа №11 Операторы цикла с последующим условием, вычислить сумму бесконечного ряда, учитывая только те слагаемые, которые по...

1
D1973
Модератор
3132 / 2198 / 878
Регистрация: 21.01.2014
Сообщений: 8,948
Записей в блоге: 3
Завершенные тесты: 1
28.02.2016, 07:46 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
const d = 0.00001;
var i, j  : integer;
    S, S0 : double;
begin
 S := 0;
 S0 := 0;
 i := 1;
 j := 5;
 repeat
   S0 := 1 / (i * j);
   S := S + S0;
   Memo1.Lines.Add(Format('%d. J = %d; S0 = %.8f; S = %.8f',[i, j, S0, S]));
   inc(i);
   inc(j);
 until S0 <= d;
 ShowMessage(FloatToStr(S));
end;
0
Миниатюры
Вычислить сумму бесконечного сходящегося ряда  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2016, 07:46
Привет! Вот еще темы с ответами:

Рассчитать сумму бесконечного ряда - Delphi
Доброго времени суток) Возникла такая проблема... Задача такая - нужно рассчитать сумму бесконечного ряда. y=1-1/2!+1/3!_1/4!..... ...

Вычислить сумму ряда - Delphi
Скажу честно, сам ниче не могу.. Даны Натуральное число n, действительные числа a,h,b, {d}_{0},...,{d}_{n} Вычислить: {d}_{0}+{d}_{1}...

Вычислить сумму ряда 1/a+1/a^2+1/a^4+...+1/a^2n - Delphi
3. Вычислить 1/a+1/a^2+1/a^4+...+1/a^2n.

Вычислить сумму ряда - Delphi
Вычислить сумму членов для следующих рядов с точностью до 10е-4. z=1+mx/(m+1)!+m(m-1)x*x/(m+2)!+m(m-1)(m-2)x*x*x/(m+3)!+...


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

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

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