DBR Delphi-Ecke

// Umsetzung der Dichtefunktion für die Normalverteilung aus der
// Excel-Hilfe nach Delphi.

// Getestet mit D4 unter XP

function NORMVERT(x, Mittelwert, Standabwn: double): double; 
begin 
  Result := (1 / (sqrt(2 * pi) * Standabwn)) * 
    exp(-sqr(x - Mittelwert) / (2 * sqr(Standabwn))); 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button7Click(Sender: TObject); 
var f, x, m, o: double; 
begin 
  x := 42; 
  m := 40; 
  o := 1.5; 
  f := NORMVERT(x, m, o); 
  showmessage(formatfloat('#,##0.00000000', f)); 
end;