Wurzel ziehen

[DJA]

Jap das wusste ich,
Zahl1 ist bei mir die Variable, aus der die WUrzel gezogen werden soll.
Mein Quellcode wie ich ihn bisher habe:

Zitat:

var
Form1: TForm1;
Zahl1, Zahl2, Ergebnis: integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Zahl1:=StrToInt(Edit1.Text);
Zahl2:=StrToInt(Edit2.Text);
Ergebnis:=Zahl1+Zahl2;
Label4.Caption:=IntToStr(Ergebnis);
end;

dann halt die Subtraktions-Prozeduren etc.

procedure TForm1.Button6Click(Sender: TObject);
begin
Label4.Caption := FloatToStr(sqrt(Zahl1));
end;

http://img110.imageshack.us/img110/1479/rechnerpf5.jpg