Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Длина слов https://www.cyberforum.ru/ pascal/ thread2768106.html
Словом назовем всякую последовательность букв латинского алфавита длины не более 20, а предложением – всякую последовательность не более чем 30 слов, отделенных друг от друга сериями пробелов....
Выведите на экран числа от 1 до N «обратной елочкой», т.е. в последней строке одно число, в предпоследней – два, и т.д Pascal
К примеру вводится число N=12 вывод должен выглядеть так: 11 12 7 8 9 10 4 5 6 2 3 1 Используя цикл for
Неправильно написал функцию Pascal
Я не знаю как правильно оформлять функцию, может кто подсказать?) var y,a : Integer; function MyFactorial(x: Integer) : Integer ; var i,s : Integer; begin for i:=1 to x do s:=s*i; ...
Pascal Вычислить значение выражения в общем я запуталась.. помогите исправить const xn=-6; xk=1; h=1; y=2; var x, xn,xk,h,f,y:real; begin https://www.cyberforum.ru/ pascal/ thread2767971.html
Pascal Поменять местами строки массива https://www.cyberforum.ru/ pascal/ thread2767854.html
Дан двумерный массив из четного числа строк. Поменять местами его строки следующим образом: первую строку поменять со второй, третью с четвертой и так далее.
Pascal Определить номера точек, которые могут являться вершинами равнобедренного треугольника
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, x2, y2, x3, y3 и т.д. Определить номера точек, которые...
Найти все натуральные четырехзначные числа, цифры в которых образуют строго возрастающую последовательность Pascal
Найти все натуральные четырехзначные числа, цифры в которых образуют строго возрастающую последовательность (1234), (2345),(3456) и тп использую подпрограмму
Pascal Вычислить произведение Здравствуйте помогите правильно записать... У меня в результате части программы получился вектор q в нем 20 чисел... теперь мне нужно посчитать и него: Вычислить... https://www.cyberforum.ru/ pascal/ thread2767697.html
Pascal Задача по произведению https://www.cyberforum.ru/ pascal/ thread2767672.html
Пожалуйста, помогите с задачей
Pascal Рекуррентная формула Можете помочь с данной задачей?(Название темы неправильное подобрал) https://www.cyberforum.ru/ pascal/ thread2767666.html
Pascal Алфавит и моя ошибка нумерации https://www.cyberforum.ru/ pascal/ thread2767642.html
Решил я вывести буквы от A до Z (это у меня получилось), потом подумал.... неплохо бы пронумеровать бук с 1-А до 26-Z, но тут моя ошибка.. var i : Char; s, n : Integer; begin for i:='A' to 'Z'...
Pascal Удалить из слов текста все предыдущие вхождения последней буквы каждого слова Здравствуйте! Помогите пожалуйста написать код к задаче Задача: Дана последовательность символов. Преобразовать ее следующим образом: удалить из слов этого текста все предыдущие вхождения... https://www.cyberforum.ru/ pascal/ thread2767386.html
Модератор
8396 / 4150 / 2871
Регистрация: 17.08.2012
Сообщений: 13,228
12.01.2021, 17:37 0

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

12.01.2021, 17:37. Просмотров 463. Ответов 2
Метки (Все метки)

Ответ


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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2021, 17:37
Готовые ответы и решения:

Вычислить произведение минимальных элементов четных столбцов. Где произведение будет кратно 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.