antp> sqr != sqrt
topac> SQR + F1
Code :
- function Sqr(X: Extended): Extended;
- function Sqr(X: Integer): Integer;
|
quand tu fais Sqr(65500) il prends ca pour un integer et essaye donc de te rendre un integer (2eme fonction)
quand tu fais Sqr(200000) : il prends tjrs ca pour un integer et essaye de te rendre un integer (tjrs la 2eme fonction) le pb c'est que c'est "un peu" trop grand et donc ca merde...
Pour avoir le resultat que tu veux, il faut forcer l'appel de la 1ere fonction SQR et il faut donc passer explicitement ton 200000 en extended (en passant par une variable definie comme telle):
Code :
- - - -
- var
- e200000 : extended;
- begin
- e200000 := 200000;
- e200000 := sqrt(sqr(e200000));
- end;
- - - -
|
edit: et si tu pouvais aussi supprimer le topic en double
[jfdsdjhfuetppo]--Message édité par JWhy--[/jfdsdjhfuetppo]
---------------
www.alliancefrancophone.org ... Home is where the heart is