Арифметическая процедура

[D!zel]

Привет всем!

Такая проблема: не могу понять, как записать арифметическую процедуру...
Имеется 2 переменных, в одной хранится количество яблок (например), а во второй - количество денег.
Каждое яблоко стоит 2 рубля.

Задача:
Нужно купить яблоки на все деньги так, чтобы деньги не ушли в минус.

Вроде легко должно быть, а догнать не могу, как это реализовать)) Помогите, пожалуйста!

[Ybn2]

Привет!!! Если я все правильно понял, то тебе нужно количество денег разделить на 2 (цена за яблоко), а ответ записать в количество яблок. Так?

[D!zel]

Приблизительно... но разделить и я могу
Нужно купить яблоки на ту сумму, которая есть у игрока, при этом главное чтобы сумма не ушла в минус.

[Ybn2]

Ок!! Сейчас напишу!!!

[VIK_aka_TOR]

// index := 0; сколько купим
while (dengi >= stoim) do
  begin
     //index := index + 1; // inc(index);
     dengi := dengi - stoim;
  end;

если нужно количество, то разкоменть index. но уже будет больше двух переменных.
ну и самое простое... это целочисленное деление

kolichestvo := dengi div stoim;

[Ybn2]

procedure Buyapple(rub: Integer; var apple: integer);
begin
apple:=rub div 2;
end;

[D!zel]

VIK_aka_TOR, большое спасибо

[Sibedir]

Я бы еще так сделал

function BuyProduct1 (const APrice: Integer; var AMoney: Integer): Integer;
begin
  Result := AMoney div APrice;
  AMoney := AMoney mod APrice;
end;

Но лучше, наверное, использовать тип Currency (валюта). Ведь для этого он и сделан.

function BuyProduct2 (const APrice: Currency; var AMoney: Currency): Integer;
var
  i1, i2: Int64;
begin
  i1 := Round (AMoney * 10000);
  i2 := Round (APrice * 10000);
  Result := (i1 div i2);
  AMoney := (i1 mod i2) / 10000;
end;

Правда я сам толком не умею им пользоваться. Может так?

function BuyProduct3 (const APrice: Currency; var AMoney: Currency): Integer;
var
  i1, i2: Int64;
begin
  i1 := PInt64(@AMoney)^;
  i2 := PInt64(@APrice)^;
  Result := i1 div i2;
  AMoney := PCurrency (@Int64 (i1 mod i2))^;
end;

Ведь Currency - это по сути тот же Int64, у которого 53~54 бита рассматриваются как дробная часть числа.