[Luckduck]

Совсем недавно начал работать с delphi, так что ошибка явно покажется вам элементарной)

Вот задание:
U = min(max(a, b), c), где
a:=sin(x+sqr(y))+exp(x+1);
b:=ln(abs(x-y))+abs(x-y);
c:=(sqr(x)+3*exp(3*ln(y)+2))/(y-1.5);

при x-y>0, y-1.5<>0

Нужно найти U.



Вот моя программа

Код:

var   
  Form1: TForm1;
   x,y,a,b,c,t,u:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.Text);

If (x>y) and ((y) <> (1.5)) then edit3.text:=Format('%10.3f',[u])
else
begin
edit3.Text:='Нет решения';
end;

a:=sin(x+sqr(y))+exp(x+1);
b:=ln(abs(x-y))+abs(x-y);
c:=(sqr(x)+3*exp(3*ln(y)+2))/(y-1.5);

If a>b then t:=a
else t:=b;

If t<c then u:=t
else u:=c;



end;

end.

Проблема в том, что если y=1.5, то выскакивает ошибка синего цвета (знаменатель равен нулю) и лишь затем U принимает значение 'Нет решения'. В первом же условии я написал, что х не должен быть равен 1,5. Почему выскакивает ошибка и как её устронить??

[Bargest]

ошибка синего цвета

Эпик. Цветовая дифференциация ошибок - это что-то новенькое...

Предполагаю, что y <> 1.5 не срабатывает потому, что он и не равен 1.5. Для float-значений лучше использовать сравнение с погрешностью:

Код:

const eps = 0.00001;
...
if (y > 1.5 - eps) and (y < 1.5 + eps) then

[Luckduck]

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

Эпик. Цветовая дифференциация ошибок - это что-то новенькое...

Предполагаю, что y <> 1.5 не срабатывает потому, что он и не равен 1.5. Для float-значений лучше использовать сравнение с погрешностью:

Код:

const eps = 0.00001;
...
if (y > 1.5 - eps) and (y < 1.5 + eps) then

Спасибо за отклик. Ну в седьмой версии если ошибка типо скобку забыл - то она красная, а я если типо логарифм отрицательного числа - то синяя)

y<>1.5 это лишь пример. Не работает и логарифм нуль (x=y) и всё прочее, что противоречит законам математики) Программа выполняется, но при нажатии 'Выполнить' вылетает ошибка, возвращающая к коду

[Bargest]

Кстати, в коде выполняется вся арифметика вне зависимости от того, каковы результаты проверок.

[PhoeniX]

После

Код:

edit3.Text:='Нет решения';

напишите

Код:

exit;

[Luckduck]

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

После

Код:

edit3.Text:='Нет решения';

напишите

Код:

exit;

Спасибо огромное! Помогло))