(Frage) Prog zum Wurzel ziehen?

[marianalbers]

Ich brauche ein kleines Prog zum Wurzelziehen und da
es 1. kein Wurzelzeichen und 2. ich ein ziemlicher Newbie bin bräuchte ich etwas Hilfe. :rolleyes:

[TenShoe]

Wofür brauchst du das Programm?
In Delphi geht das indem du das math-Objekt mit aufrufst.
Das Zeichen für die Wurzel lautet sqrt(=squareroot).
Bei der Syntax bin ich mir nich mehr so sicher, ist schon ne Weile her mit Delphi...

[Manu]

Hi,

nur ums nochmal ganz deutlich zu machen:

{ Wurzel aus A: }
wurzelA := sqrt(A);

Oder haben wir dich beide falsch verstanden, du meintest du was anderes und willst gar nichts selbst schreiben?

mfg, Agent

PS.: Genau.. was willst du mit dem Programm machen? Das ist immer gut zu wissen :)

[marianalbers]

Ich wollte nur ein kleines Prog schreiben mit dem
man Wurzeln ziehen kann.
Ich hab jetzt in meine Anwendung geschrieben:

procedure TForm1.Button1Click(Sender: TObject);
var
zahl1, ergebnis: integer;
begin
zahl1:=strtoint(edit1.Text);
ergebnis:=sqrt(zahl1);
label5.caption:=inttostr(ergebnis);
end;

aber das funkt immer noch nicht.

[Manu]

procedure TForm1.Button1Click(Sender: TObject);
var Zahl1,Ergebnis : Double;
begin
Label5.Caption := FloatToStr(sqrt(StrToFloat(Edit1.Text)));
end;


Das sollte jetzt eigentlich klappen, was sagt denn die Fehlermeldung?

[marianalbers]

cool, das hat geklappt danke. :)

[Manu]

Bitte, gern geschehen! :)

mfg, Agent (der sich wundert, dass der schnell zusammengetippte Code nicht mal Tippfehler hatte ;))

Wenn du noch Fragen hast.. ich bin noch länger wach :D