Ist doch nicht so schwer.
Das Ergebnis der Funktion soll das Vorzeichen von X enthalten.
Da X * X immer positiv ist, braucht man, wenn X negativ ist, doch nur das Vorzeichen des Ergebnisses ändern.
Code:
[b]Function[/b] Quadrat(X: Double): Double;
[b]Begin[/b]
[b]If[/b] [color=darkred]X >= 0[/color] [b]Then[/b]
Result := X * X { X ist positiv / X >= 0 }
[b]Else[/b]
Result := [color=red]-([/color]X * X[color=red])[/color]; { X ist negativ / X < 0 }
[b]End[/b];
http://www.FrankNStein.de/Smiley-Kuss.gif * *
http://www.FrankNStein.de/Smiley-Spinne.gif * * *
http://www.FrankNStein.de/Smiley-Winken.gif