2011-11-21T03:27:10 topeg

Der Hinweis auf den Satz des Pythagoras sollte schon einiges klar stellen. Dieser besagt ja:

Quote

Die Summe der Quadrate der Katheten entspricht dem Hypotenusen Quadrat.

In Perl Ausgedrückt wäre es ($katheteA**2+$katheteB**2)**0.5=$hypotenuse
Wenn du nun noch prüfst ob $hypotenuse eine reine Integer-Zahl ist, hast du die Aufgabe quasi schon gelöst.

Vorsicht 1: Hoffentlich übernimmt der OP die Zeile nicht per Copy&Paste in sein Programm.

Vorsicht 2: In der Aufgabe ist von 3 Schleifen die Rede. Ich weiß nicht, ob eine Lösung mit nur 2 Schleifen extra Punkte gibt oder einen Abzug.

Tipp an den OP: Du kannst ausnutzen, dass die Hypothenuse stets größer als die Katheten ist. Außerdem kannst du ohne weiteres annehmen, dass $katheteA größer als $katheteB ist. Beides Dies macht die Lösung nicht komplizierter, sondern nur etwas schneller.

Editiert von GUIfreund: Antwort an den Lösungsweg angepasst.
Last edited: 2011-11-21 14:14:59 +0100 (CET)