Thema: Delphi Mathematische Funktion

Einzelnen Beitrag anzeigen

axelf98

Registriert seit: 27. Aug 2003
Ort: Ennepetal
440 Beiträge
 
Delphi 2005 Personal
 
#9

Re: Mathematische Funktion

  Alt 24. Jan 2004, 17:09
So gehts, auch wenn man bei großen Werten (>100) Gleitkommafehler bekommt...

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
 const e = 2.718281828;
 var Wert : Real;
     delta,masse,t : real;
begin

 delta := 10;
 masse := 10;
 t := 5;

 Wert := Power(1-e,-(delta/masse)*t);
 showmessage( floattostr(Wert));

end;
  Mit Zitat antworten Zitat