Вводится сумма покупок, программа выдает сумму к оплате с учетом скидки

@paandoo · Регистрация: 11.05.2012

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

Delphi

если не трудно, помогите, просто даже мыслей нет, как сделать!!(

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

@vampire6666 · 27.01.2013, 16:51

paandoo,

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  var n:Integer;
      s:real;
begin
 read(n);//сумма
 if (n<500) then s:=n;
 if ((n>=500) and (n <=1000)) then   s:=n*0.95;
  if ((n>1000) and (n<=10000)) then  s:=n*0.93;
  if (n>10000) then  s:=n*0.91;
  Writeln(s);//результат со скидкой
  Readln;
end.

@paandoo · 27.01.2013, 19:53 **[ТС]**

это на кнопке надо писать?
и куда это выводится? понять не могу

@vampire6666 · 27.01.2013, 20:07

paandoo,

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.btn1Click(Sender: TObject);
 var n:Integer;
      s:real;
begin
 n:=StrToInt(edt1.Text);//?????
 if (n<500) then s:=n;
 if ((n>=500) and (n <=1000)) then   s:=n*0.95;
  if ((n>1000) and (n<=10000)) then  s:=n*0.93;
  if (n>10000) then  s:=n*0.91;
  lbl1.Caption:=FloatToStr(s);
end;

@paandoo · 27.01.2013, 22:04 **[ТС]**

спасиииииибо Вам огромное!!!

@zeroonetwo · 23.07.2015, 11:40

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.btn1Click(Sender: TObject);
 var n:Integer;
      s:real;
begin
 n:=StrToInt(edt1.Text);//?????
 if (n<500) then s:=n;
 if ((n>=500) and (n <=1000)) then   s:=n*0.95;
  if ((n>1000) and (n<=10000)) then  s:=n*0.93;
  if (n>10000) then  s:=n*0.91;
  lbl1.Caption:=FloatToStr(s);
end;

@D1973 · 23.07.2015, 20:30

zeroonetwo, а к чему был этот ответ? Ты ответил на вопрос двух-с-половиной-летней давности, буква в букву переписав код из поста № 4 этой же темы... Зачем???

@northener · 24.07.2015, 01:21

Не по теме:

Сообщение от D1973

zeroonetwo, а к чему был этот ответ? Ты ответил на вопрос двух-с-половиной-летней давности, буква в букву переписав код из поста № 4 этой же темы... Зачем???

Я бы прокомментировал цитатой от одного из ветеранов советской прессы, но это будет слишком оффтоп. :)

Новые блоги и статьи Все статьи Все блоги /
Java Record или Kotlin Data Class: что лучше для неизменяемых данных Wired 04.03.2025 Java Record и Kotlin Data Class - средства для работы с неизменяемыми структурами данных, каждое из которых предлагает свой уникальный подход к решению этой задачи. История их появления весьма. . .	Создание производительных API с Java и gRPC Wired 04.03.2025 В разработке производительность и масштабируемость микросервисных приложений играют ключевую роль. Традиционные REST API, несмотря на свою популярность и простоту, не всегда способны обеспечить. . .	Что нового в JDK 24 Wired 04.03.2025 JDK 24 знаменует собой значительный скачок в развитии Java, внося фундаментальные улучшения в производительность, безопасность и удобство разработки. Релиз включает множество революционых изменений,. . .	Разработка блокчейн с использованием Java: смарт-контракты и dApp Wired 04.03.2025 Современная блокчейн-разработка на Java предоставляет разработчикам широкий спектр возможностей. В отличие от Solidity, который ограничен экосистемой Ethereum, Java позволяет создавать как. . .	WebAssembly в Kubernetes stackOverflow 03.03.2025 В современной экосистеме облачных технологий WebAssembly (Wasm) становится все более значимым компонентом, предлагая уникальный подход к выполнению кода в распределенных системах. Эта технология. . .
GitHub Actions или Jenkins: Выбираем CI/CD платформу stackOverflow 03.03.2025 Непрерывная интеграция и развертывание (CI/ CD) изменили подход к разработке программного обеспечения, превратив его в бесшовный процесс от написания кода до развертывания в продакшн. GitHub Actions и. . .	Автоматизация тестирования Pull Request в Kubernetes: Интеграция с GitHub Actions и GKE stackOverflow 03.03.2025 Масштабные проекты с использованием Kubernetes требуют надежной системы тестирования изменений перед их внедрением в продакшн-среду. Традиционный подход с ручной проверкой Pull Request не справляется. . .	Tестирование Pull Request в Kubernetes с помощью vCluster stackOverflow 03.03.2025 При работе с микросервисной архитектурой критически важно обеспечить качественное тестирование каждого изменения перед его слиянием в основную кодовую базу. Однако тестирование Pull Request в. . .	Использование пакета Context в Golang bytestream 03.03.2025 Управление параллельными процессами в современных приложениях - сложная задача, особенно когда речь идет о микросервисной архитектуре и распределенных системах. Пакет context в Go - это гибкое. . .	WebAssembly и Go: Работа с DOM и обработка ошибок bytestream 03.03.2025 WebAssembly представляет собой технологию, позволяющую запускать низкоуровневый код в браузере практически на нативной скорости. Особенно интересные возможности открываются при использовании. . .

@paandoo 0 / 0 / 0 Регистрация: 11.05.2012 Сообщений: 17
		1
	Вводится сумма покупок, программа выдает сумму к оплате с учетом скидки 26.01.2013, 22:08. Показов 6088. Ответов 7 Метки нет (Все метки) Delphi если не трудно, помогите, просто даже мыслей нет, как сделать!!( Программа начисления торговой скидки. Вводится сумма покупок, программа выдает сумму к оплате с учетом того, что при покупке товара на сумму от 500 до 1000 руб. предоставляется скидка 5%, на сумму от 1001 до 10000 руб. – 7%, на сумму свыше 10000 руб. – 9% Программа должна проверять допустимость исходных данных. 0

@paandoo 0 / 0 / 0 Регистрация: 11.05.2012 Сообщений: 17
	27.01.2013, 19:53 [ТС]	3
	это на кнопке надо писать? и куда это выводится? понять не могу 0

@paandoo 0 / 0 / 0 Регистрация: 11.05.2012 Сообщений: 17
	27.01.2013, 22:04 [ТС]	5
	спасиииииибо Вам огромное!!! 0

@D1973 Модератор 9692 / 6294 / 2435 Регистрация: 21.01.2014 Сообщений: 26,851 Записей в блоге: 3
	23.07.2015, 20:30	7
	zeroonetwo, а к чему был этот ответ? Ты ответил на вопрос двух-с-половиной-летней давности, буква в букву переписав код из поста № 4 этой же темы... Зачем??? 0

@northener
	24.07.2015, 01:21	8
	Не по теме: Сообщение от D1973 zeroonetwo, а к чему был этот ответ? Ты ответил на вопрос двух-с-половиной-летней давности, буква в букву переписав код из поста № 4 этой же темы... Зачем??? Я бы прокомментировал цитатой от одного из ветеранов советской прессы, но это будет слишком оффтоп. :) 0