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

Произведение

12.01.2021, 13:31. Просмотров 453. Ответов 2

Описать процедуру (функцию), которая по функции f и вектору W=(w1,w2,...wn) дает произведение:

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\prod_{i=1}^{n}f(w_i)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2021, 13:31
Ответы с готовыми решениями:

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

Найти сумму и произведение полученных чисел. Вывести на чистый экран строку S, ее длину, сумму и произведение
Запросить у пользователя строку S, состоящую из цифр. Преобразовать каждый символ – цифру в число....

Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей трех чисел a, b и c, если их сумма больше нуля
Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P...

Произведение
Даны натуральное число n, действительное число х. Вычислить: n ∏(k/(k+1 ) -〖cos〗^k |x|) k=1

2
4197 / 1996 / 2073
Регистрация: 10.12.2014
Сообщений: 7,636
12.01.2021, 14:05 2
Если в PascalABC.NET, то очень просто:
Pascal
1
2
3
4
function f(w:Real):=;
begin
  ReadArrReal('вектор w:',ReadInteger('n = ')).Product(w->f(w)).Print;
end.
Вместо «…» нужно только вставить вашу функцию, о которой нет информации!
0
Модератор
8340 / 4110 / 2850
Регистрация: 17.08.2012
Сообщений: 13,111
12.01.2021, 17:37 3
JuriiMW, по заданию нужно создать не программу, а подпрограмму.

Maratttt, ни что за f, ни чему равно n... Вообще, n знать не обязательно, если применить открытый массив (не подойдёт для Pascal ABC, в нём нет открытых массивов). Функцию f Вам придётся описать самому.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function f(x: real): real;
begin
  f := sin(x) //вместо этой строки опишите свою функцию f(x)
end;
 
function prod(const w: array of real): real;
var
  p: real;
  i: integer;
begin
  p := 1;
  for i := low(w) to high(w) do p := p * f(w[i]);
  prod := p
end;
Если функция f вызывается только из функции prod, то функцию f лучше описать локально:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function prod(const w: array of real): real;
  function f(x: real): real;
  begin
    f := sin(x) //вместо этой строки опишите свою функцию f(x)
  end;
var
  p: real;
  i: integer;
begin
  p := 1;
  for i := low(w) to high(w) do p := p * f(w[i]);
  prod := p
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.01.2021, 17:37

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

Произведение цифр
Требуется найти наименьшее натуральное число Q такое, что произведение его цифр равно заданному...

Произведение цифр - 2
Найдите количество чисел из отрезка , которые делятся на произведение своих цифр. Входные данные...

Произведение с факториалами
Дано: (1+1/i!) Нужно найти произведение всех значений данной функции при условии, что i - это...

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

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

произведение делителей
использую процедуру, найти натуральное число, произведение всех деталей которого = 5832. помогите,...


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

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

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