|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Условие работает неправильно
Почему если я сравниваю y в операторе if с целым числом(например с 1), то все работает и в форме выводится "условие не выполняется" если ввести 1, но если y сравнивается с дробным числом(как в данном случае 1.2), то условие игнорируется и даже при введении в edit2 числа 1.2 условие идет дальше и мне выводится ответ. Как это исправить?
Код:
procedure TForm1.Button1Click(Sender: TObject); var x,y,a,b,U:real; begin x:=strtofloat(Edit1.Text); y:=strtofloat(Edit2.Text); if (y<>1.2) and (sin(x)+cos(y)<>0) then begin a:=exp(-power(x,2)+1)+sin(power(x,2)-8)/(1.2-y); b:=sqrt(abs(y-2))+(2*power(x,2)-6*x-1)/(sin(x)+cos(y)); if a>b then U:=a else U:=b; label1.Caption:='U='+format('%9.4f',[u]); end else label1.Caption:='Условие не выполняется' end; end. Последний раз редактировалось Admin, 21.10.2017 в 19:06. |
#2
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Цитата:
Нам, хотя бы в кратце можно и повторить. В общем случае сравнение чисел с плавающей точкой это не точная операци, т.к. в силу представления чисел внутри компьютера 1 может быть не равно 1, т.к. реальное значение в зависимости от вычисления будет действительно не равно: Код:
0.9999999999999 <> 1.000000000001 Соотвественно, решением проблемы может быть: 1. Перевод в целое или дробное с фиксированной точкой 2. Сравнение через Epsilon (т.е. с указанной точностью) Например, в первом случае либо переводим в тип Currency (как пример) или, если мы уверены в порядке значения, то в Integer, умножая значение на, например, 1000. Для второго случая, определем эпсилон и сравниваем разницу: Код:
const epsilon = 0.000001; ... if abs(abs(y)-1.2) < epsilon then label1.caption := 'y = 1.2' else label1.caption := 'y <> 1.2'; |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Pan4ick (22.10.2017)
|
#4
|
|||
|
|||
Спасибо за помощь, поменял тип на currency, все работает)
|