Вычисление скидки при покупке

@sosbmk · Регистрация: 30.10.2011

Author24 — интернет-сервис помощи студентам

Программа начисления торговой скидки. Вводится сумма покупок, программа выдает сумму к оплате с учетом того, что при покупке товара на сумму от 500 до 1000 руб. предоставляется скидка 5%, на сумму от 1001 до 10000 руб. – 7%, на сумму свыше 10000 руб. – 9%

deathNC · 31.10.2011, 10:14

Delphi

function GetMoney(_money: Integer): Integer;
begin
  If _money < 500 then
    result := _money
  else if (_money >= 500) and (_money <= 1000) then
    result := Round(0.95 * _money)
  else if _money <= 10000 then
    result := Round(0.93 * _money)
  else
    result := Round(0.91 * _money);
end;

Так вроде... проверяй функцию...

@sosbmk 0 / 0 / 0 Регистрация: 30.10.2011 Сообщений: 43
		1
	Вычисление скидки при покупке 31.10.2011, 10:03. Показов 1261. Ответов 1 Метки нет (Все метки) Программа начисления торговой скидки. Вводится сумма покупок, программа выдает сумму к оплате с учетом того, что при покупке товара на сумму от 500 до 1000 руб. предоставляется скидка 5%, на сумму от 1001 до 10000 руб. – 7%, на сумму свыше 10000 руб. – 9% 0

	31.10.2011, 10:14

Вычисление скидки при покупке

Решение