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