Работала, но перестало...

[xbron]

Доброго времени суток! У меня проблема с вводимым значением, при вводе от 2000 и выше, он пишет мне то, что нужно, а в остальном, то есть при вводе в указанных диапазонах, он не хочет. Главное работало, я просто тип переменной "n" поставил double, проверил что-то не получилось, поставил всё на место,а после не работает...

procedure TForm3.LabeledEdit1Change(Sender: TObject);
var n,procent:real;
begin
n:=strtofloat(labelededit1.Text);

if n<=700 then
begin
procent:=(5*n)/100;
labelededit1.EditLabel.Caption:=floattostr(n-procent)+' Рублей';
end;
if (n<=1200) and (n>=700) then
begin
procent:=(5*n)/100;
labelededit1.EditLabel.Caption:=floattostr(n-procent)+' Рублей';
end;
if (n<=2000) and (n>=1200) then
begin
procent:=(5*n)/100;
labelededit1.EditLabel.Caption:=floattostr(n-procent)+' Ðóáëåé';
end;
if n>=2000 then
begin
procent:=(5*n)/100;
labelededit1.EditLabel.Caption:=floattostr(n-procent)+' Рублей';
end
else
labelededit1.EditLabel.Caption:='Введите сумму';
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[danil123]

А зачем проверять, в каком диапазоне лежит n ?
В любом случае же выполняется одна и та же операция

procent:=(5*n)/100;

[Sibedir]

Как запрограммировали, так и работает

n берём из labelededit1;

если n до 700 то
  делаем А

если n от 700 до 1200 то
  делаем А

если n от 1200 до 2000 то 
  делаем А

если n от 2000 то 
  делаем А
иначе
  делаем Б

Может так?

n берём из labelededit1;

если n до 700 то
  делаем А
иначе
  если n до 1200 то
    делаем Б
  иначе
    если n до 2000 то 
      делаем В
    иначе
      делаем Г

[xbron]

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

А зачем проверять, в каком диапазоне лежит n ?
В любом случае же выполняется одна и та же операция

procent:=(5*n)/100;

Для того, что у меня задача такова, это связанно с акцией, при сумме до 700 рублей - 5%, до 1200 - 10%, извините там опечатка в процентах, где 5 там должны быть проценты, ну так вот, суть не меняет всё так же при вводе суммы между этими диапазонами, программа не высчитывает процент и не выводит сумму, при вводе до 2000 выводит только - "Введите сумму".

[Аватар]

суть не меняет

Поменяет, если поймете то, что Sibedir вам подсказывает

[xbron]

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

Как запрограммировали, так и работает

n берём из labelededit1;

если n до 700 то
  делаем А

если n от 700 до 1200 то
  делаем А

если n от 1200 до 2000 то 
  делаем А

если n от 2000 то 
  делаем А
иначе
  делаем Б

Может так?

n берём из labelededit1;

если n до 700 то
  делаем А
иначе
  если n до 1200 то
    делаем Б
  иначе
    если n до 2000 то 
      делаем В
    иначе
      делаем Г

Сделал, заработало. Извините, я просто новичок в дельфи, но я точно знал, что в паскале такое не уместно, поскольку в паскале - если ... то ...ИНАЧЕ - это все остальные случаи, не принадлежащие предыдущему условию...
З.Ы. Возможно я ошибаюсь, но так нас учили )

[s-andriano]

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

Извините, я просто новичок в дельфи, но я точно знал, что в паскале такое не уместно, поскольку в паскале - если ... то ...ИНАЧЕ - это все остальные случаи, не принадлежащие предыдущему условию...

В Паскале все точно так же.
В Вашем коде нет ветки ИНАЧЕ. (в отличие от кода Sibedir)
Поэтому он работает так, как был Вами написан, а не так, как Вы хотели написать.

З.Ы. Возможно я ошибаюсь, но так нас учили )

Учили Вас правильно, но плохо.

[xbron]

Получается как и в дельфи, в паскале можно употреблять множество иначе?

[s-andriano]

На один if не более одного else.

Но в Вашем случае удобнее будет case.

[Sibedir]

не

var n:real;