Wurzel ziehen aus einem quadrat?

[Xenon]

Hallo! Ich möchte ein kleines Berechnungs Programm erstellen.
Ich versuche ein Quadrat und ein Rechteck zu berechnen. Naja flächeninhalt und Umfang funktioniern schon, nur die Diagonale damit habe ich Probleme!

<pre>

// Berechnet die Diagonale.
<B>procedure</B> TForm2.Button2Click(Sender: TObject);
<B>var</B>
Diagonale : Integer;
sqrt : string;
<B>begin</B>
Diagonale := StrToInt (Label2.Caption) - ((StrToInt ((sqrt)#2));
Label6.Caption := IntToStr(Diagonale);
<B>end;</B>
</pre>

Danke für euere Hilfe XENON

Ps.: ich bekomme immer die Fehlermeldung Operator oder Semikolon fehlt ..

[Mario.Noack]

Ich habe keine Ahnung, was Du mit Deinem Code bezweckst! Prinzipiell ist eine Diagonale eine Kommazahl (Double). Dann brauchst Du die Masse von zwei Seiten (Edit1, Edit2), das Quadrat (sqr) und die Wurzel (sqrt):<p>

<pre class="sourcecode"><code>
<b>var</b> Diagonale : Double;
<b>begin</b>
Diagonale := Sqrt(sqr(StrToFloat(Edit1.Text)) + sqr(StrToFloat(Edit2.Text)));
Label6.Caption := FloatToStr(Diagonale);
<b>end</b>;

</code></pre><p>Schöne Grüße, Mario Noac

[Xenon]

Hallo Mario!

Ich habe den Fächeninhalt schon ausgerechnet und möchte anhand von einem label wo das ergebnis der Fläche schon drinnen steht, die wurzel von der fläche in Label6 ausgeben!

Schöne grüsse xeno

[Mario.Noack]

Hallo Xenon,<p>
Die Wurzel von der Fläche ist aber nicht die Diagonale, wie kommst Du denn da drauf? Oder stehe ich hier auf dem Schlauch?<p>
Schöne Grüße, Mario Noac

[Xenon]

hallo Mario

Jep richtig aber um die Diagonale zu berechnen muss ich erst mal wissen wie ich die procedure für die wurzel raus bekomme.
MFG xeno

[Jens Schumann]

Hallo Xenon,<br>wie wäre es denn damit: Sqrt heißt SquareRoot und heißt soviel wie Quadratwurzel. Daraus folgt (wie Mario schon geschrieben) Sqrt ist die function um aus einer Zahl die Wurzel zu ziehen. <br>Das Sqrt-Ergebnis ist ein Extended (eine Fließkommazahl).
<br>Schau Mario's ersten Kommentar an. Dort steht die Lösung !!

[Xenon]

Guten Morgen!

Danke für euere Hilfe, aber ich hab das ganze so gelöst ->

<B>// Quadratwurzel Quellcode</B>
<pre>
<B>procedure</B> TForm2.ButtonClick (Sender: TObject);
<B>var</B>
Temp : <B>String;</B>
<B>begin</B>
str(Sqrt(2)* StrToInt(Edit1.Text):5:4, Temp);
Label6.Caption := Temp;
<B>end;</B>

Schönen Tag xenon
Ps: Bin gestern etwas auf der Leitung gestanden *gg

[Mario.Noack]

Sonderfall Quadrat mit Seitenlänge ohne Komma und in Edit1 steht die Seitenlänge. Du hast aber auch von Rechteck geredet. Das funktioniert so nicht.<p>
Grüße, Mario Noac

[Hagen Reddmann]

Die Diagonale wird mit dem Satz des Phytagoras gelösst (hoffe ich habs richtig geschrieben )<br> c^2 := a^2 + b^2 --> c := Sqrt(Sqr(b) + Sqr(b)); <br>wobei A und B die Seitenlängen des Rechteckes/Quadrates angeben und C die Diagonale ist.<br>

Will man vom Flächeninhalt eines Rechteckes, A == B, die Diagonale berechen muß also c := Sqrt(Sqr(A) * 2) --> c := Sqrt(Fläche * 2) gerechnet werden, da Fläche := A * A ist<br>

Gruß Hage

[Xenon]

Danke für euere Hilfe (auch wenns etwas spät kommt )
Gruss aus Österreich Nik