Delphi

[knutov]

В программе нужно вывести на экран значения функции на отрезке от a до b с шагом h. функция: y=(x^2)/(x-2)
Саму программу написал, теперь проблема в том что нужно исключить значение x=2. Подскажите как сделать

[Hacker19_90]

да как угодно
if else
try except finally
и тд и тп!

[knutov]

Не додумался как вставить, если не сложно подскажи как. Вот код:

var
y,x,b,a : Real;
begin
x:=StrToFloat(Edit4.Text);
b:=StrToFloat(Edit2.Text);
a:=StrToFloat(Edit1.Text);

while x<=b do
begin
y:=x*x/(x-2);
Memo1.Lines.Add('F(x)='+FloatToStr( y)) ;
x:=x+StrToFloat(Edit3.Text) else x:=2;
if x<a then
begin
showmessage('x âíå îòðåçêà');
if x>b then
begin
showmessage('x âíå îòðåçêà');
begin
showmessage('íà íîëü äåëèòü íåëüçÿ');

end;
end;
end;

[Hacker19_90]

ну а вот так?

x := a - h;
while x <= b do
begin
  x := x + h;
  if (x - 2) = 0 then x := x + h;
  ТУТ ДЕЛАЕМ ЧТО НАДО
end;

[knutov]

ну а вот так?

нет, не то. По твоему коду считает уже по другой формуле.

[Hacker19_90]

какой формуле ещё?
Я там формуду вообще не подставлял!
ПОКАЗЫВАЙТЕ КОД *****!

[Stilet]

var
y,x,b,a : Real;
begin
x:=StrToFloat(Edit4.Text);
b:=StrToFloat(Edit2.Text);
a:=StrToFloat(Edit1.Text);

while x<=b do begin
 if abs(x-2)>0.001 then begin
  y:=x*x/(x-2);
  Memo1.Lines.Add('F(x)='+FloatToStr( y)) ;
 end;
 x:=x+h;
end;

end;

Так понятнее?

[knutov]

Все работает, нужно только исключить х=2

procedure TForm1.Button1Click(Sender: TObject);
var
y,x,b : Real;
begin
x:=StrToFloat(Edit4.Text);
b:=StrToFloat(Edit2.Text);


while x<=b do
begin
y:=x*x/(x-2);
Memo1.Lines.Add('F(x)='+FloatToStr( y)) ;
x:=x+StrToFloat(Edit3.Text);
end;
end;

[Hacker19_90]

ндааа

x := StrToFloat(Edit4.Text)- StrToFloat(Edit3.Text);
while x <= b do
begin
  x:=x+StrToFloat(Edit3.Text);
  if (x - 2) = 0 then x:=x+StrToFloat(Edit3.Text);
  y:=x*x/(x-2);
  Memo1.Lines.Add('F(x)='+FloatToStr( y)) ;
end;

ну или лучше код от Stilet

[knutov]

Спасибо большое)