[rain]

есть формула.вроде написал код.а считает не правильно нифига.помогите разобраться или может свой вариант предложите.при вводе в Edit1 значение "3" результат должен быть равен b=0.1854, а у мну выдает 0.972

код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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;

Пользуемся тэгами

[AlexSku]

На рисунке b = 1/ (sum), а у тебя формула: b:=1/(exp(ln(g)*k)/F); Где сумма?

Причём, у меня ответ 1 с хвостиком, да и в циклах пределы, похоже, не правильны (т.е. нет, напр., 0!)

[rain]

дак а цикл for не выполняет функцию суммы например от 0 до n???

exp(ln(g)*k)--это g в степени k.
F--это факториал от k.

еси я нетак понял то подскажите как правильно сделать..

[AlexSku]

Начать с правильного расчёта итоговой суммы. Надо:
P = 1 / (a0 + a1 +...),
а вы предлагаете (n+1) раз подсчитать значение "b", при этом на каждой итерации цикла новое значение затирает старое и только последнее значение выводится в качестве результата. Надо так:

Код:

1 2 3 4 5 6 7 8

S:= 0.0; for k:=0 to n do begin   ...   b:= <g в степени k> / <k!>;   S:= S + b;      { или не использовать "b", а сразу формулу из предыдущей строки засунуть в эту строку } end; P:= 1.0 / S;

[rain]

о пасиба))помоголо)