 |
|
|
12.11.2012, 17:59
|
#1 (ссылка) |
|
Новичок
Регистрация: 12.11.2012
Сообщений: 1
Репутация: 0
|
Делфи!
Помогите написать программу!
В среде разработки Delphi написать программу, реализующую эпизод применения компьютера в магазине. Компьютер запрашивает сумму покупки, сумму денег, внесенную покупателем; если сдачи не требуется, печатает на экране «Спасибо!»; если денег внесено больше, чем необходимо, то печатает «Возьмите сдачу» и указывает сумму сдачи; если денег недостаточно, то печатает сообщение об этом и указывает размер недостающей суммы. Заметим, в магазине действует система скидок. Скидка в 3% предоставляется, если сумма покупки больше 500 рублей, в 5% – если сумма больше 1000 рублей. Заранее спасибо. |
|
|
14.11.2012, 15:39
|
#2 (ссылка) |
|
Новичок
Регистрация: 21.11.2009
Сообщений: 486
Репутация: 47
|
Registr1, напишите всю эту часть как процедуру обработки нажатия кнопки.
Код:
Readln(x, y); {сумма покупки, сумма внесенная покупателем}
if (x=>500) and (x<1000) then x:=x-((x/100)*3)
else if x=>1000 then x:=x-((x/100)*5); {обработка скидок}
if y=x then Edit1.Text:='Cпасибо!'
else if y>x then Edit1.Text:='Ваша сдача = '+(y-x)
else if y<x then Edit1.Text:='Сдесь недостаточно денег';
|
|
|
| Ads | |
| Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Сделаю блок-схемы для делфи-паскаля. Бесплатно и не очень!!! | diamFC | Реклама, объявления | 0 | 05.08.2011 09:52 |
| матлаб или делфи 7 | s1gma | Программирование | 0 | 10.05.2011 09:00 |
| Длефи, или сначала Паскаль а потом Делфи | Maxymus13 | Программирование | 3 | 09.09.2010 11:29 |
| Считывание файла на делфи | sasha3050 | Программирование | 0 | 10.09.2009 21:53 |
| Помошь по работе с ДЕЛФИ 7 | Repat | Программирование | 3 | 18.06.2008 23:10 |
