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

@Maratttt · Регистрация: 28.10.2020

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \prod_{i=1}^{n}f(w_i)$

@JuriiMW · 12.01.2021, 14:05

Если в PascalABC.NET, то очень просто:

Pascal

function f(w:Real):=…;
begin
  ReadArrReal('вектор w:',ReadInteger('n = ')).Product(w->f(w)).Print;
end.

Вместо «…» нужно только вставить вашу функцию, о которой нет информации!

@Cyborg Drone · 12.01.2021, 17:37

JuriiMW, по заданию нужно создать не программу, а подпрограмму.

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

Pascal

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

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;

@Maratttt 0 / 0 / 0 Регистрация: 28.10.2020 Сообщений: 8
		1
	Произведение 12.01.2021, 13:31. Просмотров 453. Ответов 2 Метки Pascal (Паскаль), pascal abc (Все метки) Описать процедуру (функцию), которая по функции f и вектору W=(w₁,w₂,...w_n) дает произведение: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \prod_{i=1}^{n}f(w_i)$ 0

Опции темы