Flächensätze des Pythagoras

[Chrissi91]

Hi ,

ich habe für meinen Matheunterricht mal ein Programm geschrieben, das anhand von 2 Seitenlängen bei einem rechtwinkligen Dreieck die restlichen Seiten errechnet. Das gezippte Programm, sowie eine ERklärung findet ihr hier

Größe: 184 kb

Direkter Download: Klick mich

Kritik ist erwünscht, auch bei dem Inhalt der Website (Erkläung, Readme, etc.)

Danke.

[xZise]

Zitat von Chrissi91:

Ich verstehe das mit den Winkeln noch nicht ganz.

Fehlt dir das Mathematische Grundwissen?
Dann kann ich dir weiterhelfen. Mit
ArcusSinus,
ArcusCosinus und
ArcusTangens.

Kannst du mithilfe von 2 Seiten einen Winkel ausrechnen!
Griechisch(Alpha) := ArcusSinus von (Gegenkathete / Hypotenuse)
Griechisch(Alpha) := ArcusCosinus von (Ankathete/ Hypotenuse)
Griechisch(Alpha) := ArcusTangens von (Ankathete/ Gegenkathete)

Gegenkathete = Die Kathete, die dem Betrachtetetn Winkel gegenüberliegt
Ankathete = Die Kathete an den betracheteten Winkel
Hypotenuse = Die Seite, die dem Winkel gegenüber ist! (Diese Seite ist KEINE Kathete!)

[Chrissi91]

Zitat von xZise:

Zitat von Chrissi91:

Ich verstehe das mit den Winkeln noch nicht ganz.

Fehlt dir das Mathematische Grundwissen?
Dann kann ich dir weiterhelfen. Mit
ArcusSinus,
ArcusCosinus und
ArcusTangens.

Kannst du mithilfe von 2 Seiten einen Winkel ausrechnen!
Griechisch(Alpha) := ArcusSinus von (Gegenkathete / Hypotenuse)
Griechisch(Alpha) := ArcusCosinus von (Ankathete/ Hypotenuse)
Griechisch(Alpha) := ArcusTangens von (Ankathete/ Gegenkathete)

Gegenkathete = Die Kathete, die dem Betrachtetetn Winkel gegenüberliegt
Ankathete = Die Kathete an den betracheteten Winkel
Hypotenuse = Die Seite, die dem Winkel gegenüber ist! (Diese Seite ist KEINE Kathete!)

Danke! Jetzt habe ich es verstanden. Das kommt auf jeden Fall in die neue Version. Vielleicht bringe ich die heute abend noch raus.

[Chrissi91]

Ist ArcusSinus dasselbe wie sin() oder ist das etwas anderes?

[xZise]

Das ist was anderes:
ArcusSinus(Gegenkathete / Hypotenuse) = Winkel
Sinus(Winkel) = Gegenkathete / Hypotenuse

Sozusagen das gegenstück!

[Chrissi91]

Und wie lautet der Delphibefehl dazu? arcussin? arcsin?

[Nikolas]

Schau doch einfach mal in der OH nach... Da findest du in etwa 20sec arcsin.

[Chrissi91]

Hi nochmal,

also kann ich mit dem einen befehl, alle winkel ausrchnen, da ein winkel ja immer 90° hat, alpha ich ausrechnen kann und der dritte is dann ja noch einfacher

aber was heißt gegenkathete? angenommen ich habe folgendes dreieck:

-C
A B

alpha is bei a, oder? was ist jetzt die gegenkathete? die gegenüberliegende? also bc?

[Phistev]

Wikipedia sollte hier weiterhelfen...

[Chrissi91]

Eine Frage noch. ^^

Ich habe den Code geändert, den vorherigen habe ich aus Versehen gelöscht.

Delphi-Quellcode:

procedure TfrmMain.btnCalculateClick(Sender: TObject);
begin
  If (Length(edtKathete1.Text) > 0) and (Length(edtHyphotenuse.Text) > 0)
  Or (Length(edtKathete2.Text) > 0) and (Length(edtHyphotenuse.Text) > 0)
  Or (Length(edtKathete1.Text) > 0) and (Length(edtKathete2.Text) > 0) then
    begin
      If btnKathete1.Checked then edtKathete1.Text := FloatToStr(sqrt(sqr(StrToFloat(edtHyphotenuse.Text))-sqr(StrToFloat(edtKathete2.Text))));
      If btnKathete2.Checked then edtKathete2.Text := FloatToStr(sqrt(sqr(StrToFloat(edtHyphotenuse.Text))-sqr(StrToFloat(edtKathete1.Text))));
      If btnHyphotenuse.Checked then edtHyphotenuse.Text := FloatToStr(hypot(StrToFloat(edtKathete1.Text),StrToFloat(edtKathete2.Text)));
      edtP.Text := FloatToStr(StrToFloat(edtKathete1.Text) * StrToFloat(edtKathete1.Text) / StrToFloat(edtHyphotenuse.Text));
      edtQ.Text := FloatToStr(StrToFloat(edtKathete2.Text) * StrToFloat(edtKathete2.Text) / StrToFloat(edtHyphotenuse.Text));
      edtHeight.Text := FloatToStr(sqrt(StrToFloat(edtP.Text) * StrToFloat(edtQ.Text)));
      edtFlaeche.Text := FloatToStr(StrToFloat(edtHyphotenuse.Text) * StrToFloat(edtHeight.Text) / 2);
      edtGamma.Text := '90 °';
    end
  Else MessageDlg('Es müssen 2 Seiten angegeben werden.', mtError, [mbOK], 0);
end;

      If btnKathete1.Checked then edtKathete1.Text := FloatToStr(sqrt(sqr(StrToFloat(edtHyphotenuse.Text))-sqr(StrToFloat(edtKathete2.Text)))); Wenn er mir das ausrechnet, die If - Bedingung also erfüllt ist, passiert folgendes, wenn ich 20 und 12 eingebe:

EInvalidOp "Invalid floating point operation".

Woran kann das liegen?

[Phistev]

Ist sichergestellt, dass die Hypothenuse die längste Seite ist, also Hypothenuse > Kathete?
Ansonsten wird der Term unter der Wurzel negativ, und das geht ohne komplexe Zahlen nicht.