[Pan4ick]

Почему если я сравниваю 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.

Админ: Пользуемся тегами при оформлении кода!

[NumLock]

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

Почему если я сравниваю 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.

Админ: Пользуемся тегами при оформлении кода!

Эта ситуация уже очень много раз обсуждалась.

[lmikle]

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

Эта ситуация уже очень много раз обсуждалась.

Нам, хотя бы в кратце можно и повторить.
В общем случае сравнение чисел с плавающей точкой это не точная операци, т.к. в силу представления чисел внутри компьютера 1 может быть не равно 1, т.к. реальное значение в зависимости от вычисления будет действительно не равно:

Код:

0.9999999999999 <> 1.000000000001

В примере, эти два числа не равны друг другу, но в силу округления тебе оба они выводяться как "1".
Соотвественно, решением проблемы может быть:
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';

[Pan4ick]

Спасибо за помощь, поменял тип на currency, все работает)