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

Вычислить сумму из n слагаемых

23.09.2014, 12:58. Просмотров 601. Ответов 3
Метки нет (Все метки)

Дано целое число n (вводится с клавиатуры). Вычислить сумму из n слагаемых:

http://www.cyberforum.ru/cgi-bin/latex.cgi?y=\frac{n!}{\sqrt{1}}+\frac{(n-1)!}{\sqrt{2+3}}+\frac{(n-2)!}{\sqrt{4+5+6}}+\frac{(n-3)!}{\sqrt{7+8+9+10}}+...

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

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

Вычислить сумму слагаемых заданного вида
При некоторых заданных x, N и E, определяемых вводом, Вычислите сумму N...

Вычислить сумму слагаемых заданного вида
Помогите пожалуйста)) При некоторых заданных x,N и E, определяемых вводом,...

Вычислить сумму 100 слагаемых ряда
Вычислить сумму 100 слагаемых ряда,если n-ый член ряда задается...

Вычислить сумму N слагаемых заданного вида
Здравствуйте ! Помогите с данным заданием: 1) Вычислить сумму N слагаемых...

Вычислить сумму 100 слагаемых ряда
Привет!Помогите,пожалуйста...Задание:Вычислить сумму 100 слагаемых ряда,если...

3
Joy
Эксперт Pascal/Delphi
2130 / 1170 / 1421
Регистрация: 29.08.2014
Сообщений: 4,264
23.09.2014, 14:16 #2
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
var
  y:real;
  n:integer;
  i,j:integer;
  s,k:integer;
function fact(ii:integer):real;
var
  j:integer;
  s:real;
begin
  s:=1;
  for j:=1 to ii  do s:=s*j;
  fact:=s;
end;
begin
  write('N=');
  readln(n);
  k:=1;y:=0;    
  for i:=1 to n do begin
    s:=0;
     for j:=1 to i do begin s:=s+k;k:=k+1;end;
    y:=y+fact(n+1-i)/sqrt(s);
  end;
  writeln('y=',y:0:5);
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25728 / 17282 / 6865
Регистрация: 22.10.2011
Сообщений: 30,492
Записей в блоге: 6
23.09.2014, 19:50 #3
Функция для вычисления факториала явно лишняя, и еще от одного цикла запросто можно избавиться:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  y, p : real;
  i, m, n : integer;
begin
  write('n = '); readln(n);
 
  p := 1; y := 0; m := n;
  for i := 1 to n do
  begin
    p := p * i;
    y := y + p / sqrt(m * succ(sqr(m)) div 2);
    dec(m);
  end;
  writeln('y=',y:0:5);
end.
1
Joy
Эксперт Pascal/Delphi
2130 / 1170 / 1421
Регистрация: 29.08.2014
Сообщений: 4,264
23.09.2014, 20:13 #4
спасибо, про m * succ(sqr(m)) div 2 - не догадался, что так красиво сворачивается.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.09.2014, 20:13

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

Вычислить сумму и найти число слагаемых
Вычислить сумму и найти число слагаемых, которые вошли в сумму. Процесс...

Вычислить сумму (произведение) конечного числа слагаемых (сомножителей), используя цикл с параметром
Доброго времени суток. Помогите пожалуйста с заданием. Вычислить сумму...


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

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

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