Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Bookkc1
3 / 3 / 25
Регистрация: 01.11.2012
Сообщений: 755
#1

Скидка не работает так как нужно - Delphi

11.02.2014, 20:27. Просмотров 390. Ответов 6
Метки нет (Все метки)

Написал простейший код для скидки, то есть если сумма равно только то, то скидка составляет столько то процентов.

В общем если у меня сумма в 205 рублей, скидка составляет 3 %. Если сумма в 545 рублей, скидка составляет 6 % и т.д. Если сумма с выше 1000 рублей, то скидка должна быть всегда 10 %. но у меня почему то всегда вылетает 0 :-( как решить данную проблему, не могу понять где косяк :-(


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
proc1:=100;
proc2:=200;
proc3:=300;
proc4:=400;
proc5:=500;
proc6:=600;
proc7:=700;
proc8:=800;
proc9:=900;
proc10:=1000;
suma:=StrTofloat(Edit11.Text);
  begin
  if
  suma <= proc1  then
  begin
  skidka:=1;
  end
  else
 
  if
  suma <= proc2  then
  begin
  skidka:=2;
  end
  else
 
    if
  suma <= proc3  then
  begin
  skidka:=3;
  end
  else
 
    if
  suma <= proc4  then
  begin
  skidka:=4;
  end
  else
 
    if
  suma <= proc5  then
  begin
  skidka:=5;
  end
  else
 
    if
  suma <= proc6  then
  begin
  skidka:=6;
  end
  else
 
    if
  suma <= proc7  then
  begin
  skidka:=7;
  end
  else
 
    if
  suma <= proc8  then
  begin
  skidka:=8;
  end
  else
 
    if
  suma <= proc9  then
  begin
  skidka:=9;
  end
  else
 
    if
  suma < proc10  then
  begin
  skidka:=10;
  end
  else
  end;
Добавлено через 9 минут
Промахнулся разделом... прошу Перенесите
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2014, 20:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Скидка не работает так как нужно (Delphi):

Copyfile работает не так, как ожидалось
Имеется следующий код в программе по заполнению базы ADO: procedure...

Код на delphi10 работает не так, как в delphi 7
Здравствуйте. Подскажите, пожалуйста, как сделать так, чтобы код работал верно...

Web browser работает не так как надо
здравствуйте , пришла необходимость открыть созданный html файл в компоненте...

Нужно объяснить как работает алгоритм, по функциям
Ребят подскажите пжл мне нужно объяснить как работает этот алгоритм, по...

setprecision() не работает, или работает не так как нужно
cout &lt;&lt; setw(5) &lt;&lt; &quot;X=&quot; &lt;&lt; setprecision(2) &lt;&lt; X; cout &lt;&lt; setw(20) &lt;&lt; &quot;X=&quot;...

rand() работает не так как нужно
Запускается n потоковых функций, каждый из них приостанавливается во время...

6
U_Dimas
fatal error
135 / 127 / 29
Регистрация: 10.04.2012
Сообщений: 357
11.02.2014, 21:01 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  kidok:Integer;
begin
  if StrToFloat(Edit1.Text) > 1000 then
  begin
    kidok := 10;
    ShowMessage (IntToStr(kidok));
    exit
  end;
  if StrToFloat(Edit1.Text) < 100 then
  begin
    kidok := 0;
    ShowMessage (IntToStr(kidok));
    exit;
  end;
  kidok:= StrToInt(Edit1.Text) div 100;
  ShowMessage (IntToStr(kidok));
  end;
1
Bookkc1
3 / 3 / 25
Регистрация: 01.11.2012
Сообщений: 755
12.02.2014, 15:07  [ТС] #3
Спасибо за пример, но меня интересует почему в моем коде не работает? и как исправить в моем?
0
northener
пофигист широкого профиля
3251 / 2303 / 628
Регистрация: 15.07.2013
Сообщений: 13,589
12.02.2014, 15:27 #4
Цитата Сообщение от Bookkc1 Посмотреть сообщение
но меня интересует почему в моем коде не работает? и как исправить в моем?
Что не работает и что исправить?
Цитата Сообщение от Bookkc1 Посмотреть сообщение
у меня почему то всегда вылетает 0
Но в этом коде вообще нигде ничего не вылетает
0
Bookkc1
3 / 3 / 25
Регистрация: 01.11.2012
Сообщений: 755
12.02.2014, 15:59  [ТС] #5
Цитата Сообщение от northener Посмотреть сообщение
Что не работает и что исправить?

Но в этом коде вообще нигде ничего не вылетает
Собственно все написано в 1-м посту, ошибка так и не пропала. если сумма больше 1000 то скидку почему то делает в 0. а мне нужно что бы осталась 10
0
Arcor
4816 / 1817 / 380
Регистрация: 20.11.2009
Сообщений: 5,776
Записей в блоге: 1
12.02.2014, 16:03 #6
ну если судить по условию то надо условие написать так

если сумма больше или равна 1000 то скидка будет 10%
Delphi
1
2
if summa >= 1000 then
skidka := 10;
в вашем условии знак меньше стоит
0
northener
пофигист широкого профиля
3251 / 2303 / 628
Регистрация: 15.07.2013
Сообщений: 13,589
12.02.2014, 16:56 #7
Цитата Сообщение от Bookkc1 Посмотреть сообщение
Собственно все написано в 1-м посту, ошибка так и не пропала. если сумма больше 1000 то скидку почему то делает в 0. а мне нужно что бы осталась 10
Измени конец кода так:
Delphi
1
2
3
4
5
6
7
8
if
  suma <= proc9  then
  begin
    skidka:=9;
  end
  else
    skidka:=10;
  end;
0
12.02.2014, 16:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2014, 16:56
Привет! Вот еще темы с решениями:

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

Target работает не так как нужно
&lt;div&gt; &lt;div class=&quot;main&quot;&gt; &lt;div&gt;&lt;img&gt;&lt;/div&gt; &lt;div&gt;&lt;img&gt;&lt;/div&gt; ...

Функция не работает так, как нужно
Вот задание: В заданном одномерном массиве поменять местами соседние элементы,...

NetworkStream.DataAvailable работает не так как нужно!
try { byte bytes = new byte; int...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru