[perekatipole]

у меня есть код,строящий график функций

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

procedure TForm2.GrClick(Sender: TObject); function f(x:real): real; Var   c : real; Begin     c :=(2*x-1)/(sqr(x-1));     f:=c; end; Var   a,b,x : real;   x0,y0,i : integer;   flag:boolean; Begin   flag:=true;   x0 := line1.Width div 2;   y0 := line1.Height div 2;   With line1.Canvas do     Begin       Pen.Color:=clBlack;       MoveTo(x0,0);       LineTo(x0,line1.ClientHeight);       MoveTo(0,y0);       LineTo(line1.ClientWidth,y0);       MoveTo(0,y0);       Pen.Color := clBlue;       a :=-line1.ClientHeight div 5;       b :=-line1.ClientWidth div 15;       x :=-10;       For i:=-100 to 100 do         Begin           x:=x+0.1;           if (not((x<-0.99) and (x>-1.01))) then begin             if(flag=true) then begin               MoveTo(Trunc(x0+x*b),Trunc(y0+f(-x)*a));               flag:=false;             end;             LineTo(Trunc(x0+x*b),Trunc(y0+f(-x)*a));           end;         End;     End; End;       procedure TForm2.line1Click(Sender: TObject); begin   end;   procedure TForm2.ExitClick(Sender: TObject); begin   close; end;   end.

помогите понять почему вместо

Код:

1	(not((x<-0.99) and (x>-1.01)))

я не могу поставить просто -1(он крашится при -1 и работает при диапазоне)?

[Alegun]

Да не крашится, под D7 при диапазоне рисуется на форме сетка и пиковый зубец, а при постоянном х=-1 только сетка

[perekatipole]

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

Да не крашится, под D7 при диапазоне рисуется на форме сетка и пиковый зубец, а при постоянном х=-1 только сетка

как мне тогда правильно с -1 записать?

[Alegun]

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

...не могу поставить просто -1(он крашится при -1 и работает при диапазоне)?

А как вы подставляли -1 вместо

Код:

1	if (not((x<-0.99) and (x>-1.01))) then begin...

часом не x:= -1 ?

[perekatipole]

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

А как вы подставляли -1 вместо

Код:

часом не x:= -1 ?

можно как-нибудь записать вместо диапазона -1?
я понял что неправильно писал значение,но не знаю как написать

[Alegun]

Можно, if x=-1 then.., надо было сразу спросить, для чего?

[perekatipole]

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

Можно, if x=-1 then.., надо было сразу спросить, для чего?

так он не строит график

[Alegun]

Не, строит, просто в другом месте и этого не видно

[perekatipole]

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

Не, строит, просто в другом месте и этого не видно

мне же надо if not -1,а ты написал if -1,как записать?

[Alegun]

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

мне же надо if not -1,а ты написал if -1,как записать?

if x <> -1 then..

[lmikle]

а ничего, что при x = -1 деление на 0 получается?
ну и, до кучи, сравнивать действительные числа через =, это надо что бы круто свезло. Т.е. указание диапазона в том if'е вполне оправданно.

[perekatipole]

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

а ничего, что при x = -1 деление на 0 получается?
ну и, до кучи, сравнивать действительные числа через =, это надо что бы круто свезло. Т.е. указание диапазона в том if'е вполне оправданно.

можно поподробнее про сравнение через =?я знаю что при х=-1 получается и у меня в коде ограничение

[lmikle]

А чего уж тут подробнее.
Имеет место проблема при прямом сравнении чисел с плавающей точкой, т.к. в следствии погрешности при расчете 2 действительных числа могут оказаться не равны с точки зрения компьютера. Соответсвенно, такие числа надо сравнивать через эпсилон.
Вот пример как надо это сравнивать:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var   f1, f2 : double; begin   f1 := 1.3000000;   f2 := 1.2999999;   if abs(f1-f2) < 0.00001   then ShowMessage('f1 and f2 are equal')   else ShowMessage('f1 and f2 are not equal'); end;

Взято тут: https://edn.embarcadero.com/article/22507

[perekatipole]

как в коде записать не диапазон а просто значение -1?

[perekatipole]

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

А чего уж тут подробнее.
Имеет место проблема при прямом сравнении чисел с плавающей точкой, т.к. в следствии погрешности при расчете 2 действительных числа могут оказаться не равны с точки зрения компьютера. Соответсвенно, такие числа надо сравнивать через эпсилон.
Вот пример как надо это сравнивать:

Код:

Взято тут: https://edn.embarcadero.com/article/22507

тоесть,компьютер например может 0.999999 посчитать за 1 и не построить график?