Рекурсия

[AZelensky]

Доброго времени суток, уважаемые. У меня возник вопрос при решении одной задачки. Задача состоит в следующем: нужно написать функцию целочисленного деления, не используя стандартные функции, а используя рекурсию.

Вот что у меня вышло:

// Деление нацело числа Number на Number_ 
function Division(Number, Number_: integer): integer; 
var 
  Res: byte;  // Результат 
begin 
  Number:= Number - Number_; 
  Inc(Res); 
  if Number >= Number_ then 
     Division(Number, Number_); 
  Result:= Res; 
end;

Потом мне предложили так:

function Division(Number, Number_: integer): integer;   
var   
  Res: integer;  // Результат   
begin 
  Res := 0; 
  if Number >= Number_ then 
      Res := 1 + Division( Number - Number_, Number_ );  
       
  Result := Res; 
end;

Но оба варианта не дают результата. В чём может быть ошибка?

[Utkin]

Проверьте параметры когда Вы вызываете Division(Number, Number_); уже в самой процедуре они получают какие значения? Точно меняются? Попробуйте ввести доп. переменные для Number и Number_ и передавайте их. Используйте второй вариант, он вроде получше первого. Вот кстати обратите внимание - для результата отдельная переменная заведена (хотя Вы можете также использовать Result в любом месте функции).

[AZelensky]

Сообщение от Utkin

Проверьте параметры когда Вы вызываете Division(Number, Number_); уже в самой процедуре они получают какие значения? Точно меняются? Попробуйте ввести доп. переменные для Number и Number_ и передавайте их. Используйте второй вариант, он вроде получше первого. Вот кстати обратите внимание - для результата отдельная переменная заведена (хотя Вы можете также использовать Result в любом месте функции).

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

Вот бывший вариант:

function Division(Number, Number_: integer): integer;   
var   
  Res: integer;  // Результат   
begin 
  Res := 0; 
  if Number >= Number_ then 
      Res := 1 + Division( Number - Number_, Number);  
       
  Result := Res; 
end;

А вот исправленный:

// Деление нацело числа Number на Number_
function Division(Number, Number_: integer): integer;
var
  _Result: integer;  // Результат
begin
  _Result:= 0;
  if Number >= Number_ then
     _Result:= 1 + Division(Number - Number_, Number_);
  Result:= _Result;
end;

Вот как, казалось бы, мелочи,а могут испортить работу программы

[Кольша]

// Деление нацело числа Number на Number_
function Division(Number, Number_: integer): integer;
begin
  Result:= 0;
  if Number >= Number_ then
     Result:= 1 + Division(Number - Number_, Number_);
end;

Так не проще?