Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
 
sdoleg2011
0 / 0 / 0
Регистрация: 15.10.2017
Сообщений: 13
#1

Задайте рекурсивную функцию, которая вычисляет P(n)=2*4*6*.*(2n-8) - Turbo Pascal

16.10.2017, 11:30. Просмотров 250. Ответов 21
Метки нет (Все метки)

Задайте рекурсивную функцию, которая вычисляет P(n)=2*4*6*..*(2n-8).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2017, 11:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задайте рекурсивную функцию, которая вычисляет P(n)=2*4*6*.*(2n-8) (Turbo Pascal):

рекурсивная программа которая вычисляет произведение нечетных элементов - Turbo Pascal
Написать рекурсивную программу , которая вычисляет произведение нечетных элементов , последовательности . последовательность целых чисел...

Функция вычисляет по двум катетам по теореме Пифагора гипотенузу. Составить программу которая вычисляет гипотенузу двух любых сторон - Turbo Pascal
Функция вычисляет по двум катетам по теореме Пифагора гипотенузу. Составить программу которая вычисляет гипотенузу двух любых сторон.

Функция, которая вычисляет максимум из 4 чисел - Turbo Pascal
Разработать программу, которая содержит функцию, которая вычисляет максимум чисел а, б, в, г;

Функция, которая вычисляет сумму кубов цифр числа - Turbo Pascal
Нужна функция которая вычисляет сумму кубов цифр числа. К примеру числа 153

Рекурсивная функция - Pascal
принцип програмы понятен единственное не могу что в функции писать для вычисления в: 1)x / (1 + x / (2 + x / (3 + x / (... /(N + x))...) ...

Рекурсивная функция - Pascal
Помогите пожалуйста. 1. Вывести через пробел значения рекурсивной функции при значениях аргумента от 1 до 10 включительно. Рекурсивная...

21
sdoleg2011
0 / 0 / 0
Регистрация: 15.10.2017
Сообщений: 13
17.10.2017, 18:05  [ТС] #16
Какое ещё нормальное условие? ТАк, пишу тогда всё заново:
Задайте рекурсивную функцю, которая вычисляет по формуле (2n-8) - Turbo Pascal
Пример, вводим число (Например 2) и в место n должно вводится то число что ввели (2*2-8)
И в конце программа выдаёт ответ (Ответ: -6)
0
Puporev
Модератор
52985 / 40796 / 14047
Регистрация: 18.05.2008
Сообщений: 94,873
17.10.2017, 18:10 #17
2*2-8=-4
0
sdoleg2011
0 / 0 / 0
Регистрация: 15.10.2017
Сообщений: 13
17.10.2017, 18:59  [ТС] #18
О, ну ошибся, спасибо за ответ, лучший
0
Volobuev Ilya
125 / 98 / 44
Регистрация: 25.07.2014
Сообщений: 1,875
Записей в блоге: 2
17.10.2017, 19:11 #19
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function P1(n, b: integer): integer;
begin
  if n < b then
    P1 := n * P1(n + 2, b)
  else
    P1 := n;
end;
 
function P(n: integer): integer;
begin
  P := P1(n, 2 * n - 8);
end;
 
begin
  Writeln(P(3));
end.
Это?
1
sdoleg2011
0 / 0 / 0
Регистрация: 15.10.2017
Сообщений: 13
17.10.2017, 20:19  [ТС] #20
Я вроде переписал, но когда компилирую он выдаёт то, что у меня написано в (P(2)) То есть выдаёт в конце 2
Вот, может что то не так переписал я:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program n1;
uses crt;
function P1(n, b: integer): integer;
begin
if n < b then
P1 := n * P1(n+2, b)
else P1 := n;
end;
function P(n: integer): integer;
begin
P := P1(n, 2*n-8);
end;
begin
writeln(P(5));
readln
end.
0
Volobuev Ilya
125 / 98 / 44
Регистрация: 25.07.2014
Сообщений: 1,875
Записей в блоге: 2
17.10.2017, 20:32 #21
Цитата Сообщение от sdoleg2011 Посмотреть сообщение
2*4*6
Это можно и циклом было бы. Но меня смущает 2n - 8.
0
Puporev
Модератор
52985 / 40796 / 14047
Регистрация: 18.05.2008
Сообщений: 94,873
18.10.2017, 10:45 #22
Цитата Сообщение от Volobuev Ilya Посмотреть сообщение
Но меня смущает 2n - 8.
Меня тоже.
0
18.10.2017, 10:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2017, 10:45
Привет! Вот еще темы с ответами:

Рекурсивная функция - Pascal
Программа для умножения целых чисел М на N.Умножение заменить сложением.

Рекурсивная функция - Turbo Pascal
Возникли проблемы с рекурсивной функцией. Задание: Вычислить (a! + b!)/a!, используя рекурсивную функцию вычисления факториала.

рекурсивная функция - Pascal - Pascal
Добрый вечер..... У меня возникла проблема.... Мне нужно написать рекурсивную функцию по такой формуле: ...

Рекурсивная функция Error 87 - Turbo Pascal
Задание ниже, рекурсивная функция Выдает ошибку Error 87 с курсором в строке: else Add:=Add(i-1)*sqr(x)*((2*i-3)/(2*i-1)); ...


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

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

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