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

Вычислить произведение

15.06.2012, 12:25. Просмотров 966. Ответов 1
Метки нет (Все метки)


нужно вычислить произведение, исключая точки разрыва. То есть написать программу
https://www.cyberforum.ru/cgi-bin/latex.cgi?\prod_{K=1}^{16}({(K+1)}^{2})/((K+4)(K-2)(K-3))
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2012, 12:25
Ответы с готовыми решениями:

Вычислить произведение минимальных элементов четных столбцов. Где произведение будет кратно 7, поменять местами первую и последнюю строки
Даны массивы A{30,20},B{40,50} - целых чисел. Вычислить произведение минимальных элементов четных...

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

Вычислить произведение
Вычислить произведение 1*3*5*...*(2*n-1), где n - заданное натуральное число.

вычислить произведение
Вычислить произведение P=-1* 1/2 * (-1)/4* 1/8 *…*〖-1〗^n/2^(n-1)

1
Модератор
62827 / 46887 / 32314
Регистрация: 18.05.2008
Сообщений: 113,610
15.06.2012, 12:33 2
Лучший ответ Сообщение было отмечено Vika_Malin как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var k:integer;
    p:real;
begin
p:=1;
for k:=1 to 16 do
if not(k in [2,3])then p:=p*(sqr(k+1))/((k+4)*(k-2)*(k-3));
write('P=',p:0:12);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2012, 12:33

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

Вычислить произведение Р
Помогите написать программу ну или хотя бы тело) "Вычислить произведение Р = 1 * 3* 5* 7 * … *...

Вычислить произведение
Дано натуральное число n. Вычислить: P=\left(1-\frac{1}{2^2} \right)\left(1-\frac{1}{3^2}...

Вычислить произведение
program lab6; var P:real; k,N:integer; begin P:=1; N:=30; for k:=1 to N do begin if (k<6)...

Вычислить произведение (1+1)(2+1).(n+1)
вычислить произведение (1+1)(2+1)...(n+1) :help:


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

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

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