Vorzeichen eines Parameters übergenben

[PomBär]

hi leute ich hab von meinem lehrer ne schöne aufgabe bekommen und sehe da irgendwie gar nicht durch könnt ihr mir helfen?
Aufgabe: ändern sie die beispiele:
die funktion quadrat soll dem ergebnis das vorzeichen des parameters mitgeben

Delphi-Quellcode:

function Quadrat(x:double):double;
begin
  result := x*x;
  //oder: Quadrat :=x*X;
end;
...

begin //Hauptprogramm
...
if Quadrat(k) kleiner 10 then //erlaubt,
   //wenn k Fuktion, Konstante oder
   //Variable eines Gleitkomma-Typs
...
Quadrat('Hi'), //Fehler weil string
               //übergeben

ich hoffe irgendjemand kann mir helfen.
danke im vorraus
:wall:

[edit=Admin]Code in Delphi-Tags eingebettet. Künftig bitte selber machen. Mfg, Daniel[/edit]

[himitsu]

Ist doch nicht so schwer. :wink:

:warn: 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.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif