Wurzel Problem

[Nevermind]

Hey Leute,
hab vor kurzem angefangen mir einen Taschenrechner zu programmieren und habe jetzt folgendes Problem,
ich will von einem gleichschenkligen Dreieck die Höhe ausrechnen doch es wird folgendes Problem angezeigt.

Delphi-Quellcode:

 flaeche := (StrToFloat(edt4.Text) / 2) * StrToFloat(edt6.Text) * (hoehe);
         pnl5.Caption := FloatToStr(flaeche);
         hoehe := nteWurzel((Power(StrToFloat(edt4.Text),2))  - (Power(StrToFloat(edt6.Text) ,2) / 4) , 2);
         pnl6.Caption := FloatToStr(hoehe);

als Problem wird folgendes angezeigt:
[Pascal Error] Unit1.pas(273): E2010 Incompatible types: 'Integer' and 'Extended'
ich weiß echt nicht wie ich das lösen soll aber falls es hilft zeig ich euch auch noch meine Funktion.

Delphi-Quellcode:

function TForm1.nteWurzel(n, radikand: Integer): real;
begin
    if radikand >= 0 then
      result:= power(radikand, 1/n)
    else result:=-1;
end;

Ich hoffe mal, dass ihr mir helfen könnt :(
P.S. benutze Turbo Delphi

[Perlsau]

Die Fehlermeldung sagt doch bereits alles aus: Du versuchst, einem Integerwert einen Fließkommawert zuzuweisen. Diese beiden Typen sind nicht kompatibel.

Deinen Code verstehe ich nicht: Wenn man die Höhe ausrechnen will, kennt man sie gewöhnlich nicht. Dennoch verwendest du eine Variable hoehe. Leider geht aus deinem Posting nicht hervor, aus welchen gegebenen Werten du die Höhe eines gleichschenkligen Dreiecks berechnen möchtest bzw. was du in den verfügbaren Editfeldern eingibst.

[himitsu]

Zitat:

Zitat von Nevermind (Beitrag 1236259)

ich weiß echt nicht wie ich das lösen soll

Genau so, wie es da steht?

Deine Rechnung ergibt eine Fließkommazahl (Extendet) und deine Funktion will eine Ganzzahl (Integer) haben, denn du hast es ja so definiert.

Lösung 1: Du sorgst dafür, daß da auch eine Ganzzahl rauskommt, wenn du den Wert an die Funktion übergibst.
(entsprechend ganzzahlig rechnen, oder den Wert passend runden)

Lösung 2: Du baust deine Funktion so um, daß sie stattdessen eine Fließkommazahl als Parameter annimmt.

[add]

Zitat:

Zitat von Perlsau (Beitrag 1236260)

Diese beiden Typen sind nicht kompatibel.

Das sind sie nur in dieser Richtung nicht. Andersrum geht es natürlich, da eine ganze Zahl eine Teilmenge der reellen Zahlen ist

[Nevermind]

Okay, danke für die Antworten ich probier es mal mit runden.

[Perlsau]

Zitat:

Zitat von himitsu (Beitrag 1236261)

Zitat:

Zitat von Perlsau (Beitrag 1236260)

Diese beiden Typen sind nicht kompatibel.

Das sind sie nur in dieser Richtung nicht. Andersrum geht es natürlich, da eine ganze Zahl eine Teilmenge der reellen Zahlen ist

Nennt man das jetzt auf- oder abwärtskompatibel :?::stupid:

[sx2008]

Zitat:

Zitat von Nevermind (Beitrag 1236259)

Delphi-Quellcode:

 flaeche := (StrToFloat(edt4.Text) / 2) * StrToFloat(edt6.Text) * (hoehe);
         pnl5.Caption := FloatToStr(flaeche);
         hoehe := nteWurzel((Power(StrToFloat(edt4.Text),2))  - (Power(StrToFloat(edt6.Text) ,2) / 4) , 2);
         pnl6.Caption := FloatToStr(hoehe);

Dieser Sourcecode tut meinen Augen weh und zwar aus folgenden Gründen:
1.) Was ist "edt4", "edt6" oder "pnl5"?
Jedes Control das im Sourcecode angesprochen wird muss einen anständigen Namen wie z.B. "EdtBreite" bekommen!
2.) Bei Berechnungen überträgt man die Eingangsparameter einmal mit StrToFloat() & Co. auf lokale Variablen.
Mit diesen lokalen Variablen wird dann gerechnet und die Ergebnisse wieder mit FloatToStr()& Co. auf die Controls der GUI geschrieben.