Help!
Страницы:
<
1
2
>
Tans © (2006-04-21 07:05:00)
Уважаемые мастера! Помогите начинающему! При запуске этой
процедуры выдается ошибка:'Invalid floating point operator' .
Помогите, пжалста, исправить!
procedure TForm1.FormCreate(Sender: TObject);
begin
SXi:=0;
SYi:=0;
SXi_Yi:=0;
n:=10;
with StringGrid1 do
begin
Cells[0, 0] := '¹';
Cells[1, 0] := 'x';
Cells[2, 0] := 'y';
Cells[3, 0] := 'F(x)';
x:=a+x*h;
y:=(x);
a0:=(SXi_Yi- (SXi*SYi))/(SXi*(1-n));
a1:=(SYi-a0*n)/ SXi;
F := a0+a1*x;
h:=0.1;
StringGrid1.Cells[1,i]:= FloatToStr(x);
StringGrid1.Cells[2,i]:= FloatToStr(y);
StringGrid1.Cells[3,i]:= FloatToStr(F);
SXi:=SXi+ StrToFloat(StringGrid1.Cells[1,i]);
SYi:=SYi+ StrToFloat(StringGrid1.Cells[2,i]);
SXi_Yi:= SXi_Yi+(x*y);
SXi_Yi1:=x*y;
end;
end;
Elen (2006-04-21 07:54:00) [21]
Как у тебя описаны переменные? Какого они типа?
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
