Тот_Самый (мой вариант)

Anonymous     Pascal/Delphi     14 Oct 2008    
 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;