|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как написать формулу
есть формула.вроде написал код.а считает не правильно нифига.помогите разобраться или может свой вариант предложите.при вводе в 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; Последний раз редактировалось rain, 19.03.2008 в 02:43. |