Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как поделить два натуральных числа

Автор: Romany4 9.9.2009, 17:46

Подскажите, пожалуйста, как составить алгоритм деления 2-ух натуральных чисел посредством вычитания.
К примеру, чтобы поделить 15 на 2 до получения целого ответа.
Какой должен быть цикл?

Автор: Keeper89 9.9.2009, 18:09

Ну как-то вот так:

Код


function MyDiv(a, b: Integer): Integer;
begin
  Result := 0;
  while (a >= b) do
  begin
    inc(Result);
    a := a - b;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(IntToStr(MyDiv(15, 2)));
end;

Автор: Romany4 11.9.2009, 17:57

Спасибо большое!