wurzel ziehen und quadrieren

[eisatnaf0987]

hallo.... also erst mal im voraus. ich bin ein delphi-frischling und bin froh, dass ich das quadrat schon hinbekommen habe, nach etlichen hilfeseiten und der delphihilfe selbst. nun habe ich aber probleme mit dem wurzel ziehen ( kein Math bei uses)
ich habs mit sqrt versucht und mit x^2 aber geht irgendwie nicht. nun weiß ich nicht weiter.
das ist mein quelltext.

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows,
  Messages,
  SysUtils,
  Dialogs;

var
       s: integer;
       t: integer;
       Rechnung: string;

begin


     Rechnung:= Inputbox ('quadrieren und Wurzelziehen',
                          'Zahl eingeben, die quadriert und aus der die Wurzel gezogen werden soll.','1');

     s:= strtoint(Rechnung);

     t:= s;

if   ((t <=-46340) or (t >=46340))

 then

  begin
        showmessage ('Die von Ihnen eingegebene Zahl befindet sich nicht im Zahlenbreich. ');

  end           //kein symikonol, da else nicht greift

 else

  begin
     t:= s;
     s:= s*s;
     t:= sqrt (s);


     showmessage ('Das Quadrat von '+Rechnung+' ist '+inttostr(s)+' und die Wurzel aus '+Rechnung+' ist '+inttostr(t)+'!');

  end;

end.

bitte um hilfe. ich weiß nicht, wos hängt. (fehlermeldung incompatible types:'integer' and 'extended')



danke schon mal im voraus

[edit=Sharky]Delphi-Tag vervollständigt Mfg, Sharky[/edit]