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]