1 2 3 4 5 6 7 8 9 10
Function f(a,q,c,x,xp:real):real; begin a:=strtofloat(form1.Edit1.Text); q:=strtofloat(form1.Edit2.Text); c:=strtofloat(form1.Edit3.Text); xp:=strtofloat(form1.Edit4.Text); x:=a*exp(q*xp+c); f:=x; end;