PI

[-Ptype-]

Delphi-Quellcode:

procedure TForm2.ButtonGleichClick(Sender: TObject);
{************************************************************************}
var zahl2,n  : double;
    pi       : real;
begin
  zahl2 := strtofloat (Edit1.Text);
  case merk of
    plus: zahl := zahl + zahl2;
    minus: zahl := zahl - zahl2;
    mal: zahl := zahl * zahl2;
    geteilt: zahl := zahl / zahl2;
    hoch: zahl := zahl * zahl;
    wurzel: zahl := sqrt(zahl);
    hochx:   if zahl2 < 0 then // Hier Fängts An!
               begin
                 showmessage ('Nicht erlaubt');
               end
             else
             if zahl2 > 0 then
               begin
                 n := 1;
                 y := zahl;
               while n < zahl2 do
               begin
                 zahl := zahl * y;
                 n := n + 1;
               end;
             end
             else
               zahl := 1;
             end;
    wurzelx: begin
               n := zahl;
               zahl := exp((1/n)*ln(zahl2));
             end;
    prozent: begin
               n := 100;
               zahl := zahl * zahl2 / n;
             end;
  end;
    edit1.text:=floattostr(zahl);
    neue_zahl := True;
    ButtonKomma.Enabled := True;
    ButtonGleich.Enabled := False;
end;

Hier das ist die Prozedur wo der Codeschnipsel herstammt.