Wurzel ziehen

[DJA]

Hi,
ich habe angefangen mir Delphi beizubringen, bin also ein totaler Noob
Also ich habe mir vorgenommen einen Taschenrechner zu programmieren,
und dann immer schwerere Funktionen hinzuzufügen =)
Addieren, Subtrahieren, Multiplizieren, Dividieren und Quadrieren kann er schon
*stolz sei obwohl das jeder in 2 Mins programmieren kann*

Naja nun bin ich beim Wurzel Ziehen..ich habe schon in der Delphi-Suche geforscht
und bin irgendwie über qw:=Power(Zahl1, 0.5); (qw = QuadratWurzel) gestolpert,
aber da bekomme ich immer die Fehlermeldung

[Fehler] Unit1.pas(84): Undefinierter Bezeichner: 'Power'

Was mache ich falsch? Oder muss ich da sowieso ganz anders herangehen?

In der Schule haben wir mal das Heron-Verfahren durchgenommen, also eine
Wurzel nur mit den Grundrechenarten zu bestimmen - aber dass umzusetzen ist sicherlich
viel zu umständlich!?

Naja,
schon mal DANKE für eure Antworten!

Greetz
DJA

PS: Ich habe Delphi 7

[mkinzler]

Uses ...,Math;

[Tommy1988]

Zitat von mkinzler:

Uses ...,Math;

Beispiel:
Caption := FloatToStr(sqrt(25)); // Ergebnis natürlich 5 Edit:
Alles richtig so?

[DJA]

Hi,
thx für die schnellen und ausführlichen Antworten
ich habe nun

Zitat:

Label4.Caption := FloatToStr(sqrt(Zahl1));

eingegeben, aber als Ergebnis erhalte ich immer 0..

[mkinzler]

Welchen Wert hat Zahl1?

[Tommy1988]

[weist du was FloatToStr bedeutet?

IntToStr => IntegerWert in einen String umwandeln
FloatToStr => DezimalWert (Real, Extended ..) in einen String umwandeln.

Als was ist Zahl1 deklariert?

[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

[Tommy1988]

Zahl1, Zahl2, Ergebnis: integer; Da muss Real, nicht integer hin.
Un überall wo StrToInt steht, machst du dann StrToFloat draus.

[DJA]

dann gibts bei
Label4.Caption:=IntToStr(Ergebnis);
den Fehler
[Fehler] Unit1.pas(47): Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann

Zitat:

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

da habe ich alle "inttostr" zu "floattostr" gemacht, doch dann gibts bei:
Ergebnis:=Zahl1 div Zahl2; // die Division
den Fehler
[Fehler] Unit1.pas(70): Operator ist auf diesen Operandentyp nicht anwendbar

aber um den Fehler einfach zu umgehen und mal auszutesten habe ich "div" durch "+" ersetzt, dann kann ich den Code zwar compilieren, aber das Ergebnis ist immer noch Null!?

[Tommy1988]

zahl1 / zahl2 Label4.Caption:=IntToStr(Ergebnis); // Falsch, nicht Int FloatToStr(Ergebnis); // Richtig, ist doch Real, nicht Integer