Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Uinslou
Старичок :)
728 / 315 / 5
Регистрация: 03.04.2011
Сообщений: 1,430
#1

Вычислить сумму ряда - Pascal ABC

14.04.2011, 21:05. Просмотров 429. Ответов 1
Метки нет (Все метки)

Здравсвуйте Уважаемый форумчане.

Вот есть код:

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
27
28
29
30
31
32
s=(3/(2!-1!))+(5/(4!-2!))+(7/(6!-3!))+(9/(8!-4!))+..... для N количества раз!
program qwer;
uses crt;
var s,a,b,c:extended;
i,n,m:integer;
 
function fact (n:integer):integer;
begin
if n=1 then
fact:=1
else fact:=fact(n-1)*n;
end;
 
begin clrscr;
writeln('vvedite n');
readln(n);
s:=0;
a:=1;
b:=1;
c:=1;
m:=1;
for i:=1 to n do
begin
a:=a+2;
b:=((2*m-1)*2*m)*b;
s:=s+a/(b-c);
c:=fact(n);
m:=m+1;
end;
writeln('s=',s:4:5,' c= ', c:5:5,' b= ', b:5:5);
readln;
end.
Подскажите пожалуйста, что в нём неправильно?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.04.2011, 21:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить сумму ряда (Pascal ABC):

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

Вычислить сумму ряда
сумма ряда от i=1 до n отношение 1 на (10i-1)*ln(10i-1) решите или...

Вычислить сумму ряда
Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени...

Вычислить сумму ряда
Даны действительные числа \(\chi\), \(\varepsilon\) \(\chi \neq 0\),...

Вычислить сумму ряда
очень нужно )

Вычислить сумму ряда
-Дано натуральное число N. Вычислить: S=1+2+3+....+N

1
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
14.04.2011, 21:30 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses
 crt;
var
 sum:extended;
 i,n:integer;
 
function fact (n:integer):extended;
begin
 if n=1 then fact:=1
 else fact:=fact(n-1)*n;
end;
 
begin
clrscr;
writeln('vvedite n');
readln(n);
for i:=1 to n do
 sum:=sum+((i*2+1)/(fact(i*2)-fact(i)));
writeln(sum);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2011, 21:30
Привет! Вот еще темы с решениями:

Вычислить сумму ряда
Разработать алгоритм и программу, определяющие сумму ряда с заданной...

Вычислить сумму ряда
Дано натуральное число n. Вычислить: \sum_{k=1}^{n}(-1)^k\left(2k^2+1...

Вычислить сумму ряда
Вычислить сумму ряда S=sin (1) +sin (2) +. +sin (n) для n введенного клавиатуры...

Вычислить сумму ряда
Вычислить сумму ряда ...


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

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

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