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


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