0 / 0 / 1
Регистрация: 13.12.2012
Сообщений: 19
1

Ошибка в реализации рекурсии

25.12.2012, 21:58. Показов 661. Ответов 2
Метки нет (Все метки)

Здравствуйте, подскажите пожалуйста в чём ошибка.
"Неверное число параметров функции" выдает в 4 строке.

Задание:
Написать программу, которая по заданному натуральному значению и действительному вычисляет результат выражения (обязательно с помощью рекурсии):
http://funkyimg.com/u2/2834/52... ______.png

Мой вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//возведение в степень реализовано под синтаксис Pascal ABC
function F(n:integer;x:real):real;
begin
if n=0 then F:=x/(x-1) else
F:=(x-(power(2,n)-1))/(x-power(2,n))*F((x-(power(2,n-1)-1))/(x-power(2,n-1)));
end;
var n:integer;
x:real;
begin
write('n= ');
readln(n);
write('x= ');
readln(x);
writeln(F(n,x));
end.
Правильно ли я реализовал? Спасибо за внимание.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2012, 21:58
Ответы с готовыми решениями:

Ошибка при реализации стека
Здравствуйте! Делал модуль стека, еще неделю назад работал, вчера так и не смог найти ошибку..(...

Ошибка в реализации шифра Виженера
Вот программирую код Виженера. Есть какая-то ошибка в логической части программы, не могу выявить...

Ошибка в Рекурсии с++
Здравствуйте,у меня в данном коде выбивает ошибку в строке 23 .В рекурсии я не силён и прошу...

Ошибка в рекурсии
Здравствуйте уважаемые читатели. Формула для рекурсивного вычисления: ...

2
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 978
25.12.2012, 22:21 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
Function Fun(x:real;n:integer):real;
var f:real;
i:integer;
begin
f:=1;
f:=(x-(power(2,n)-1))/(x-power(2,n));
if n> 3 then
 begin
 dec(n);
  f:=f*Fun(x,n);
 end;
 Result:=f;
end;
0
0 / 0 / 1
Регистрация: 13.12.2012
Сообщений: 19
28.12.2012, 23:23  [ТС] 3
Вот рабочий код этой задачи. Может кому поможет :-)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//возведение в степень реализовано под синтаксис Pascal ABC
function F(n:integer;x:real):real;
begin
if n=0 then F:=x/(x-1) else
F:=(x-(power(2,n)-1))/(x-power(2,n))*F(n-1,x);
end;
var n:integer;
x:real;
begin
write('n= ');
readln(n);
write('x= ');
readln(x);
writeln(F(n,x));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2012, 23:23
Помогаю со студенческими работами здесь

Ошибка в рекурсии
почему то переменная y не меняется во время рекурсии. что за? #include <iostream> using...

Ошибка в рекурсии
Помогите пожалуйста исправить ошибку. Задание: Найти сумму наименьших элементов. import random...

Рекурсии, ошибка выполнения
Здравствуйте, Подскажите пожалуйста в чем у меня ошибка, данный пример почему-то не работает,...

Логическая ошибка при рекурсии
Решил задачу в теме про рекурсию. Использован алгоритм Евклида. Условие: Напишите рекурсивную...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru