VPF::Как поделить два натуральных числа

Romany4

Дата 9.9.2009, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 5.6.2009
Где: Джамбул

Репутация: нет
Всего: нет

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

Keeper89

Дата 9.9.2009, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

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

Код


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;

Это сообщение отредактировал(а) Keeper89 - 9.9.2009, 18:12

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Romany4

Дата 11.9.2009, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 5.6.2009
Где: Джамбул

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »