|
Вопрос # 3 991/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Помогите пожалуйста с выполнением заданий (также нужно решение).
1)Разработать приложение для вычисления стоимости покупки с учетом скидки. Скидка 1% предоставляется, если сумма покупки больше 300 руб., 2% - если больше 500 руб., 3% - если больше 1000 руб. Информация о предоставленной скидке (процент и величина) должна быть выведена в диалоговое окно. Скидку должно вычетать из цены.
 |
Вопрос задал: serega7235 (статус: Посетитель)
Вопрос отправлен: 7 апреля 2010, 14:45
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 7 апреля 2010, 18:07; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 7 апреля 2010, 15:09 [#1]:
// Функция вычисление скидки:
// Скидка 1% предоставляется, если сумма покупки больше 300 руб.,
// 2% - если больше 500 руб., 3% - если больше 1000 руб.
// Возвращаемое значение - сумма скидки в рублях.
// Процент скидки возвращается в параметре Percent.
function GetDiscount(const Cost: Currency; var Percent: Integer): Currency;
begin
if Cost <= 300
then Percent:= 0
else if Cost <= 500
then Percent:= 1
else if Cost <= 1000
then Percent:= 2
else Percent:= 3;
Result:= Cost * Percent / 100;
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
serega7235 (статус: Посетитель), 7 апреля 2010, 15:14 [#2]:
спасибо
|
|
Ерёмин А.А. (статус: *Администратор), 7 апреля 2010, 17:50 [#3]:
min@y™:
Почему не ответом, а просто в м/ф?
|
|
|
min@y™ (статус: Доктор наук), 7 апреля 2010, 18:07 [#4]:
Цитата (Ерёмин А.А.):
Почему не ответом, а просто в м/ф?
У меня на работе по прежнему в Firefox не работает кнопка "заслать ответ". Приходится сначала форматировать ответ в FireFox, затем открывать Оперу, копировать и вставлять URL страницы, затем копировать туда же сам ответ.
Зато кнопка "Добавить сообщение" нормально работает в FireFox. И поэтому мне лень проделывать такую кучу манипуляций, проще сообщение добавить.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
