Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Вычисление значения функции, содержащей сумму, по рекурентным формулам Долг с прошлой сессии остался, в паскле не сильна, срочно надо, договорилась с преподавателем сегодня встретиться, все перепробовала осталась не могу. Помогите решить задачу вычисления значения функции, содержащей сумму, по рекурентным формулам. таблице приведены вид функции и рабочий набор исходных данных, необходимо вычислять сумму причем вычисление очередного слагаемого следует выполнять... https://www.cyberforum.ru/ turbo-pascal/ thread643788.html	Процедуры: в массиве заменить все элементы их квадратами Turbo Pascal решить с помощью процедур. в произвольном массиве заменить все элементы их квадратами. спасибо заранее)
Turbo Pascal Процедуры и функции: в произвольном массиве заменить все элементы, не кратные 7 на -15. https://www.cyberforum.ru/ turbo-pascal/ thread643749.html Создать программу с помощью процедуры : в произвольном массиве заменить все элементы, не кратные 7 на -15. помогите пожалуйста) заранее благодарна=)	Turbo Pascal Найти сумму элементов массива, стоящих на четных местах. Подсчитать количество элементов, значения которых меньше 1 помогите пожалуйста решить задачку на паскале: Дан одномерный массив ci , где i=1...n. Найти сумму элементов массива с, стоящих на четных местах. Подсчитать количество элементов массива c, значения которых меньше 1. заранее большое спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread643742.html
Вычислить значение выражения Turbo Pascal S=\frac{6!}{\sum_{i=1}^{6}i+5}	Turbo Pascal Вычислить значение выражения Y=ln\left\| \alpha +\beta \right\|/cos\gamma https://www.cyberforum.ru/ turbo-pascal/ thread643730.html
Turbo Pascal Функция поиска самого длинного слова и его длины Приветствую. Нужна помощь в решении следуюшей задачи. Необходим код, который вычисляет длину самого длинного слова в строке, выводит это слово и его длину (оформите поиск самого длинного слова в строке в виде функции, принимающей исходную строку в качестве параметра и возвращающей самое длинное слово и его длину) https://www.cyberforum.ru/ turbo-pascal/ thread643714.html	Вычислить значение сложной функции Turbo Pascal y=\begin{cases}{x}^{2}, & \text{ if } (0\leq x\leq 3;x<-10) \\2+{x}^{2}, & \text{ if } (3<x\leq 10) \\\frac{1}{x}, & \text{ if } (-10\leq x<0;x>10) \end{cases}
Turbo Pascal Сформировать динамический массив строк Сформировать динамический массив строк. Удалить из него строку с заданным номером. На плоскости задан граф с N вершинами. Количество рёбер, соединённых с каждой вершиной, равно 3. Пример:https://www.cyberforum.ru/attachment.php?attachmentid=179045&stc=1&d=1346177309 https://www.cyberforum.ru/ turbo-pascal/ thread643706.html	Turbo Pascal Найти минимальный элемент матрицы и разделить все элементы на этот элемент Задана матрица А(n,m). Cоставить программу для выполнения действий над матрицей. Количество строк n=30. Количество столбцов m=10, Результат - матрица. Найти минимальный элемент матрицы и разделить все элементы на этот элемент. https://www.cyberforum.ru/ turbo-pascal/ thread643704.html
Turbo Pascal Рассчитать значения y Рассчитать значения y для значений X, равных 4,5,...,28, если y задаётся формулой: y=2t^2+5,5t-2, t=x+2	Turbo Pascal Товарный поезд состоит из одного или двух локомотивов впереди состава https://www.cyberforum.ru/ turbo-pascal/ thread643699.html Товарный поезд состоит из одного или двух локомотивов впереди состава, одной или более платформ, за платформами в конце состава следует вагон с охранной. Написать алгоритм распознования товарного поезда.

BumerangSP

4311 / 1422 / 463

Регистрация: 16.12.2010

Сообщений: 2,939

Записей в блоге: 3

29.08.2012, 11:47

Вычислить произведение ряда - Turbo Pascal - Ответ 3399370

29.08.2012, 11:47. Показов 2921. Ответов 2

Метки (Все метки)

Сообщение было отмечено В@люшк@ как решение

Решение

Pascal

uses crt;
var p: real;
    k,m,n: integer;
begin
 clrscr;
 k:=3;
 m:=8;
 p:=1;
 for n:=k to m do
   p:=p*((exp(ln(sqr(n))*1/3)/(sqr(n)*n+1)));
 writeln('p = ',p);
 readln;
end.

Вернуться к обсуждению:
Вычислить произведение ряда Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.08.2012, 11:47

Готовые ответы и решения:

Вычислить произведение ряда
Дано натуральное число N. Вычислить Р=(1-1/2^2)*(1-1/3^2)*...*(1-1/n^2), где N>2 Запускает, но...

Вычислить произведение ряда
Нужно написать паскаль-программу с циклическим вычислением.Вот условие:Вычислить произведение: P =...

Вычислить произведение ряда
Решите плз методом цикла repeat Даны натуральные числа a, n. Вычислить a (a - n) (a -...

Вычислить произведение ряда
Здравствуйте посмотрите задание вот программа program nik; uses crt; var x,y,p,z:real;...

	29.08.2012, 11:47

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.08.2012, 11:47

Помогаю со студенческими работами здесь

Вычислить произведение ряда
вычислить y= (1/(1+5^2))*(1/(1+5^3))..(1/(1+5^10))

Вычислить произведение ряда
Очень нужна помошь, надо решить эти задачки, помогте пожалуйста 1. Дано натуральное число N....

Вычислить произведение ряда
(1+sin 1)*(1+sin2)...(1+sin10)

Вычислить произведение ряда
Никак не могу додуматься как сделать :с \prod_{i=3}^{n}\frac{i^2}{i-2}

Наверх