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.

markieren

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.

markieren

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

Wurzel Problem

Wurzel Problem

Forumregeln