Delphi. Как реализовать проверку ОДЗ?

[max.krejjk]

Есть код нахождения значений функции:

procedure TForm1.Button1Click(Sender: TObject);
  var
   x, y, xmin, xmax, dx : Real;
   pew : integer;
   odz:integer;
   begin
   xmin :=StrtoFloat(Edit1.Text);
   xmax :=StrtoFloat(Edit2.Text);
   dx :=StrtoFloat(Edit3.Text);
   odz :=0;
   pew := Round(xmin)*Round(xmax);
   if ((xmin=odz) or (xmax=odz) or (pew > odz)) then begin
    Memo1.Text:='В промежутке имеется число, которое не входит в ОДЗ';
   end
   else
    x := xmin;while x<=xmax do begin
     y :=sin(1/(2*x)+Log10(3))*sin(1/(2*x)+Log10(3));
     x := x+dx;
     Memo1.Lines.Add('| '+FloatToStr(dx)+' | '+FloatToStrF(x,fffixed,5,4)+
                   ' | '+FloatToStrF(y,fffixed,5,4)+' | ');
end;
   end;

Почему не отрабатывает условие:

odz :=0;
   pew := Round(xmin)*Round(xmax);
   if ((xmin=odz) or (xmax=odz) or (pew > odz))

[Serge_Bliznykov]

вещественные числа НЕЛЬЗЯ сравнивать с помощью знаков равно!

проблема в машинном представленни вещественных (дробных) чисел.

Например, вещественные числа (числа с десятичной запятой - например, тип real) НЕЛЬЗЯ сравнивать друг с другом просто так.
Почему так - подробнее по ссылкам в этом сообщении

кроме того, а с чего вы взяли, что
формула

pew := Round(xmin)*Round(xmax);
if ... (pew > odz) then

даст Вам корректный результат?!!!
например, xmin = -1 и xmax = 2
умножаем, получаем -2
если -2 >0 условие не выполняется, однако ноль явно будет в промежутке от -1 до 2

[max.krejjk]

А в конструкции if можно Round(xmin)=0 написать?

[Serge_Bliznykov]

Сообщение от max.krejjk

А в конструкции if можно Round(xmin)=0 написать?

безусловно можно. round возвращает целочисленное значение, его можно (надёжно и безопасно) сравнивать с константой.

но мне не совсем понятен ваш подход.
у Вас функция не определена только в точке 0 ?
так в цикле проверяйте это значение.

примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, xmin, xmax, dx : Real;
  odz : integer;
begin
   xmin :=StrtoFloat(Edit1.Text);
   xmax :=StrtoFloat(Edit2.Text);
   dx   :=StrtoFloat(Edit3.Text);
   odz  := 0;
   Memo1.Lines.Clear;
   x := xmin;
   while x<=xmax do begin
      if abs(x-odz)<0.0001 then 
       Memo1.Lines.Add('| '+FloatToStr(dx)+' | '+FloatToStrF(x,fffixed,5,4)+
                    ' | '+' #не определено (x не вх. в ОДЗ)'+' | ');
      else begin
         y :=sin(1/(2*x)+Log10(3))*sin(1/(2*x)+Log10(3));
         Memo1.Lines.Add('| '+FloatToStr(dx)+' | '+FloatToStrF(x,fffixed,5,4)+
                 ' | '+FloatToStrF(y,fffixed,5,4)+' | ');
      end;
      x := x+dx;
   end;
end;

[max.krejjk]

Как мне пояснил преподаватель, необходимо перед расчётом функции проверить ОДЗ, и если задаваемая ООФ содержит число не входящее в ОДЗ вывести предупреждение.

[Serge_Bliznykov]

хорошо, я не возражаю, делайте так, как Вам пояснил преподаватель.