Turbo Pascal : Fonction arrondi plante après 32000 ?

[invite364f36a1]

Bonjour à tous.

Je suis en train de faire un petit programme dan lequel j'ai besoin que toutes les valeur soient arrondies à l'entier supérieur.
Donc j'ai fait ça :

function MyRound( Value: real): integer;

var 
	result : integer;
	b : real;

begin

		if ( (value - int(value) ) < 0.5 ) then
			begin

				b := value + 0.5;
				result := round(b);
				MyRound := result;
			end
		else 
			begin
				result := round(value);
				MyRound := result;
			end;
end;

L'affaire se passe très bien jusqu'à à peu près 32000 après quoi la fonction me renvoi des valeurs aberrantes (négatives entre autre).

Je vois pas pourquoi ça ne marche que pour certaines valeurs et pas d'autres, si quelqu'un voit on est le bug ce serai gentil de s'aiguiller.

Merci d'avance

++
-----

[invitee840409b]

Bonjour,

Personnellement, j'aurais codé la fonction comme ceci:

function MyRound( Value: real): integer;

var 
	result : integer;

begin

		if ( (value - int(value) ) < 0.5 ) then
			begin
				result := round(value)+1;
				MyRound := result;
			end
		else 
			begin
				result := round(value);
				MyRound := result;
			end;
end;

Cordialement,
ProgVal

[JPL]

Excuse mon ignorance en programmation mais manifestement tu as une valeur entière codée sur 16 bits signés. Donc le butoir est 32768. Au delà tu auras en effet des résultats négatifs.

[invite2d7144a7]

Bonjour,

Au lieu d'utiliser Turbo Pascal, compilateur et environnement de développement qui fut incontournable, mais est depuis longtemps un dinosaure (programme en 16 bits uniquement !!), utilise un système plus récent, genre FreePascal.

La remarque de JPL est exacte, et un compilateur plus récent t'évitera ce genre de problème ... tant que tu ne dépasseras pas leur propre capacité.

D'autre part, les fonctions proposées sont fausses ?

Si, si, regardez ce qui se passe si la partie décimale du nombre à traiter est nulle :

si Value = 2.0 :
(value - int(value) ) vaut 0
donc < 0.5,
et on ajoute 1 à la valeur, ce qui n'est sans doute pas désiré ?

Sinon, il existe la fonction trunc, qui évitera de faire ce test < 0.5.

Et attention aux valeurs négatives si elles sont possibles !!

[A voir en vidéo sur Futura]

[JPL]

Donc le butoir est 32768.

Je corrige une erreur de débutant : 32768 valeurs cela donne un maximum de 32767 (à cause du 0)

[invite2d7144a7]

Bonjour,

Je corrige une erreur de débutant : 32768 valeurs cela donne un maximum de 32767 (à cause du 0)

Plutôt une erreur d'inattention. Et le propos restait compréhensible, donc pas de problème.

[invitee840409b]

C'est inadmissible une erreur pareil! En plus, à ce niveau, on a besoin de beaucoup de précision !

[invite364f36a1]

Merci pour ces réponses.

J'ai édité le code pour avoir des résultats corrects avec des valeurs de type 2.0. Ça donne ça:

function MyRound( Value: real): integer;

var 
	result : integer;

begin

		if ( (value - trunc(value) ) = 0 ) then
			begin
				result := trunc(value) ;
				MyRound := result;
			end
		else if ( (value - trunc(value) ) < 0.5 ) then
			begin
				result := round(value)+1;
				MyRound := result;
			end
		else 
			begin
				result := round(value);
				MyRound := result;
			end;
end;

Par contre le résultat est le même pour les valeurs supérieur à 32 767

Pour freePascal, je veux bien mais ça ne règle pas le problème. Une fois compiler avec freepascal, l'erreur d'arrondi reste entière

Excuser l'amateur que je suis mais comment avoir des arrondis à l'unité supérieur pour des nombres plus grands que cette limite ?

Merci pour le coup de main.

[invite770d9cfe]

Pourquoi avoir utilisé le type Int (entier) qui est codé sur 2 octets (de -32.768 à + 32.767) alors que les entiers longs (Longint) sont codés sur 4 octets (de -2.147.483.648 à 2.147.483.647). C'est tout de même plus confortable, même si la plage est limitée. De toute manière elle sera toujours limitée, même en 64 bits.

[invite2d7144a7]

Bonjour,

Comme je l'avais précisé, il existe la fonction trunc, qui simplifie la fonction :

function MyRound( Value: real): integer;

var 
	result : integer;

begin
  result := trunc(value);

  if ( (value - trunc(value) ) <> 0 ) then Inc(result);
  
  MyRound := result;
end;

[invite364f36a1]

Excellente remarque, surement le manque de pratique qui m'a fait choisir le type integer

Problème résolu en passant tout ça en longint.

Cela dit le passage sous freepascal m'a permis de voir qu'il rend un exécutable plutôt qu'un fichier.PAS, ce qui est bien plus pratique pour donner le programme.

Un grand merci à vous.

++

EDIT pour whoami :
effectivement elle est plus simple de cette façon, j'en prend bonne note, merci

[invite2d7144a7]

Bonjour,

EDIT pour whoami :
effectivement elle est plus simple de cette façon, j'en prend bonne note, merci

D'ailleurs, il faut éviter le double emploi de la fonction trunc, ça devient :

function MyRound( Value: real): integer;

var 
	result : integer;

begin
  result := trunc(value);

  if (value - result <> 0 ) then Inc(result);
  
  MyRound := result;
end;