Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Grin7SG
0 / 0 / 1
Регистрация: 04.06.2013
Сообщений: 15
#1

С клавиатуры вводится натуральное число n. Вычислить - Turbo Pascal

24.06.2013, 16:16. Просмотров 438. Ответов 2
Метки нет (Все метки)

С клавиатуры вводится натуральное число n. Вычислить
http://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=1}^{n}\frac{{\left(-1 \right)}^{k+1}{2}^{k}}{k\left(k+1 \right)\left(k+2 \right)}
http://www.cyberforum.ru/turbo-pascal/thread617408.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.06.2013, 16:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос С клавиатуры вводится натуральное число n. Вычислить (Turbo Pascal):

С клавиатуры вводится натуральное число n. Вычислить сумму ряда
...

С клавиатуры вводится натуральное число n. Вычислить сумму ряда - Turbo Pascal
Помогите пожалуйста с задачами

С клавиатуры вводят натуральное число n и вещественное число x. вычислить

С клавиатуры вводятся натуральное число N и вещественное число x. Вычислить
С клавиатуры вводятся натуральное число N и вещественное число x. Вычислить:...

Вычислить N! N вводится с клавиатуры
21. Вычислить N! N вводится с клавиатуры.

2
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
24.06.2013, 17:00 #2
Лучший ответ Сообщение было отмечено Grin7SG как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var n,k,z:integer;
    p,s,t:real;
begin
clrscr;
write('n=');
readln(n);
z:=-1;
p:=1;
s:=0;
for k:=1 to n do
 begin
  z:=-z;
  p:=p*2;
  t:=z*p/(k*(k*1)*(k+2));
  s:=s+t
 end;
write('s=',s:0:4);
readln
end.
1
.Frost.
9 / 10 / 4
Регистрация: 14.06.2011
Сообщений: 93
24.06.2013, 17:07 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
k,n:integer;
s,c:real;
begin
s:=0;
c:=-1;
write('k=');
readln(n);
for k:=1 to n do
begin
  c:=c*(-1);  //-1^(k+1)
  s:=s+(c*exp(k*ln(2)))/(k*(k+1)*(k+2));
end;
writeln('s=',s:2:3);
readln;
end.
Как-то так.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2013, 17:07
Привет! Вот еще темы с решениями:

Вычислить N! N вводится с клавиатуры
Вычислить N! N вводится с клавиатуры.

Проверить, делится ли натуральное число введенное с клавиатуры на число в
проверить длится ли натуральное число введенное с клавиатуры на число в.

С клавиатуры вводятся натуральное число N и вещественное число x
С клавиатуры вводятся натуральное число N и вещественное число x. Вычислить:...

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


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

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

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