есть формула.вроде написал код.а считает не правильно нифига.помогите разобраться или может свой вариант предложите.при вводе в Edit1 значение "3" результат должен быть равен b=0.1854, а у мну выдает 0.972
код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
const g=1.8;
var
F,Q,n,k:integer;
b:real;
begin
n:=StrToInt(Edit1.Text);
for k:=0 to n do begin
F:=1;
Q:=1;
Repeat
F:=F*Q;
Q:=Q+1;
Until Q>k;
b:=1/(exp(ln(g)*k)/F);
end;
label2.Caption:=FloatToStr(b);
end;
Пользуемся тэгами