0 / 0 / 0
Регистрация: 06.05.2013
Сообщений: 29
1

Составить пользовательскую процедуру или функцию для вычисления произведения

07.10.2014, 11:07. Показов 1359. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составить пользовательскую процедуру или функцию для вычисления произведения:
(1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ··· * (n/(n+1)2).
Спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.10.2014, 11:07
Ответы с готовыми решениями:

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (12/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

6
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
07.10.2014, 11:13 2
Может так?
(1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ··· * (n/(n+1)2).
0
0 / 0 / 0
Регистрация: 06.05.2013
Сообщений: 29
07.10.2014, 11:21  [ТС] 3
верно
0
55 / 56 / 37
Регистрация: 06.02.2013
Сообщений: 257
Записей в блоге: 1
07.10.2014, 11:36 4
Pascal
1
2
3
4
5
6
7
8
9
function step (n:integer):real;
var i:integer;
    r:real;
begin
    r:=1;
    for i:=1 to n do 
        r:=r*(i/(exp(ln(i+1)*2)));
    step:=r;
end;
Проверь эту, паскакаля под руками нет
1
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
07.10.2014, 11:43 5
Лучший ответ Сообщение было отмечено masken как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
function Pr(n:integer):real;
var i:integer;
    p:real;
begin
p:=1;
for i:=1 to n do
p:=p*i/sqr(i+1);
Pr:=p
end;
1
55 / 56 / 37
Регистрация: 06.02.2013
Сообщений: 257
Записей в блоге: 1
07.10.2014, 11:46 6
Цитата Сообщение от Puporev Посмотреть сообщение
p:=p*i/sqr(i+1);
Давно в паскале не писал и забыл, что существует sqr)))
0
0 / 0 / 0
Регистрация: 06.05.2013
Сообщений: 29
07.10.2014, 12:08  [ТС] 7
Спасибо за ответы.
0
07.10.2014, 12:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2014, 12:08
Помогаю со студенческими работами здесь

Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности: ...

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Уважаемые учёные помогите с програмкой ( есле можно то с коментариями) Заранее огромное спасибо!! ...

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: ...

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru