Таблица значений функции

@kimi_ · Регистрация: 03.03.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, есть программа которая вычисляет и выводит в виде таблицы значения функции с Xmin, Xmax и на интервале dx. Проблема в том, что если выбрать интервал от 0,1 до 0,4, то в таблице где значение X должно дойти до 0, появляется совершенно другое число.

Delphi

procedure TForm2.Button1Click(Sender: TObject);
var x1, x2, dx, y:extended;
n,i:integer;
begin
x1:=strtofloat(edit1.text);
x2:=strtofloat(edit2.text);
dx:=strtofloat(edit3.text);
n:=round((x2-x1)/dx);
StringGrid1.RowCount:=n+2;
for I := 1 to n+1 do
begin
StringGrid1.Cells[0,i]:=floattostr(x1);
if ((x1>=-10) and (x1<=-6)) then y:=((-x1-6)/2);
if ((x1>=-6) and (x1<=0)) then y:=((-x1-6)/2);
if ((x1>=0) and (x1<=3)) then y:=-sqrt(9-power(x1,2));
if ((x1>=3) and (x1<=6)) then y:=(sqrt(9-sqr(x1-6)));
StringGrid1.Cells[1,i]:=floattostr(y);
x1:=x1+dx;
end;
 
end;
 
 
procedure TForm2.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='X';
StringGrid1.Cells[1,0]:='Y';
 
end;
 
end.

	04.03.2015, 16:33