hypotenuse berechnen

[tobiasw]

hallo,

ich soll ein Prog. schreiben das mit dei Hypotenuse berechnet. Eingabe Felder sind zwei Edit Felder und das sind dann die Katheten. Das ganze soll unter einer Funktion geschehen

Mein bisheriger Code sieht folgendermaßen aus:

Delphi-Quellcode:

function Phythagoras(X, Y: double): double
var hypothenuse: string;
begin
hypothenuse:=sqrt(x*x+y*y);
end;

Nur dasd ganze funzt net und ich weiß jetzt auch net mehr weiter. Ich hoffe jemand kann mir helfen wie ich das hinbekomme

Gruß

[gekmihesg]

versuchs mal so:

Delphi-Quellcode:

function Phythagoras(X, Y: double): double
begin
result:=sqrt(x*x+y*y);
end;

[Luckie]

Zitat:

Nur dasd ganze funzt net

Schön und? Was funzt nicht?

Delphi-Quellcode:

function Phythagoras(X, Y: double): double
var
  hypothenuse: string;
begin
  hypothenuse:=sqrt(x*x+y*y);
end;

OK. Dann wollen wir es mal zerpflücken:
Die Paramter x und y sind als Double deklariert, macht Sinn. Dann rechnest du damit und weißt es einer String Varaiablen zu. Ob das wohl so funktioniert? Wäre eine Varaiable vom Typ Double nicht sinnvoller?
Dann hast du zwar schön eine Funktion geschrieben, gibst aber nirgends etwas zurück. Ich würde am Ende der funktionsinternen Variable Result noch ein Ergebnis zuweisen.

[tobiasw]

dann sieht das ganze jetzt so aus

Delphi-Quellcode:

function Phythagoras(X, Y: double): double;
var hypothenuse: double;
begin
  hypothenuse:=sqrt(x*x+y*y);
  result:=hypothenuse;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
phythagoras;
end;

nur wenn ich phythagoras schreibe bekomm ich einen Fehler das nicht genug parameter zur Verfügung stehen

[Dax]

Du musst der Funktion auch Parameter übergeben:

Delphi-Quellcode:

Hypotenuse.Text := FloatToStr(Pythargoras(StrToFloat(a.Text), StrToFloat(b.Text)));

[Luckie]

Ich würde sagen hier fehlen die grundlegensten Grundlagen. Ein entsprechendes Tutorial oder Buch wäre da wohl mal angebracht.

[tobiasw]

ahh was bin ich blöd das hab ich jetzt total vergessen. Vielen Dank

[supermuckl]

Ich denke "Newbie" Tutorials gibt es viele im Internet.

Wobei ich da abundzu schon an Faulheit denke. Vor einem Jahr, als ich Delphi angefangen habe, hatte ich kein Internet und keine Bücher die mir das gezeigt haben. Auch keine menschliche Hilfe. Ich hatte als einzigstes die Delphi Hilfe in englisch!

[tobiasw]

jetzt noch was wie kann ich das Ergebnis auf 3 Stellen nach dem Komma Runden

[supermuckl]

funktion: roundto