Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 23.11.2012
Сообщений: 17
1

исправьте ошибку в рекурссии

27.05.2013, 17:10. Просмотров 357. Ответов 2
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function rec(n,a:real):real;
  var f:real;
implementation
 
{$R *.dfm}
 
function rec(n,a:real):real;
var f:real;
begin
 
if (n>=1) and (n<=2)  then
 begin
 rec:=rec(2*exp(a-1));
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
n:=strtoint (edit1.Text);
a:=strtoint (edit2.Text);
rec(n,a);
label1.Caption:=inttostr(n);
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2013, 17:10
Ответы с готовыми решениями:

исправьте ошибку
Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . Найти...

Исправьте ошибку
Здравствуйте есть код procedure TForm1.Chromium1BeforePopup(Sender: TObject; const...

исправьте ошибку
program Project5; {$APPTYPE CONSOLE} uses SysUtils; var a:array of integer; ...

Исправьте ошибку в программе
Дано расстояние в метрах. Найти число полных километров в нем. Элементарная задача , а парюсь...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29649 / 19514 / 7648
Регистрация: 22.10.2011
Сообщений: 34,039
Записей в блоге: 6
27.05.2013, 17:19 2
Во-первых, что делается-то в этой "рекурсии"? Во-вторых, у тебя результат возвращается только когда n>=1 и n<=2, а если условие не выполнится? В третьих, рекурсивный вызов неверный, ты передаешь один параметр, а надо 2. И в четвертых, ну, вернула функция результат, и чего? Ты же его не используешь никак...
0
1 / 1 / 0
Регистрация: 23.11.2012
Сообщений: 17
28.05.2013, 02:40  [ТС] 3
Для заданного натурального числа N>=1 опрделить, единственное натуральное число a, для которого выполняется неравенство: 2е(а-1)<=N<=2 в степени а
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2013, 02:40

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

Исправьте ошибку в программе
С помощью логической переменной проверьте, что (a+b) кратно 7. Исправьте код procedure...

Исправьте ошибку в программе!
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Исправьте небольшую ошибку
program Project24444; {$APPTYPE CONSOLE} uses SysUtils; var f,x,a:real;// переменные...

Исправьте ошибку пожалуйста
Посмотрите пожалуйста и исправьте ошибку пожалуйста


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

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

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