wurzel ziehen und quadrieren

[Neutral General]

Hi,

Du hast t als Integer definiert. sqrt liefert aber eine Kommazahl. Das heißt du musst t als Single, Double oder Extended definieren. Außerdem frage ich mich was du da für seltsame Sachen baust.. Ne Konsolenanwendung mit Inputbox und ShowMessage o.O

ADD:

Delphi-Quellcode:

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

Das ganze bringt dir nichts^^ Weil danach t=s. Wenn dann sollte es heißen:

Delphi-Quellcode:

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

Wobei wie gesagt:

var t: Single;

ADD2:

Außerdem solltest du vor dem Wurzel ziehen überprüfen ob t >= 0 sonst wird das nämlich eventuell nix

Gruß
Neutral General