[TP] comment arrondir une val déc. à la valeur entière sup?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [TP] comment arrondir une val déc. à la valeur entière sup?

schumacher

dans le cas où celle ci est bien décimale ...

exemple il faut acheter 2.4 rouleaux ...

j'aimerais que ca me mette 3

par contre si j'ai 2 rouleaux à acheter, faut le laisser comme ça

comment faire ?

avec mod ? (je c pas m'en servir)

merci d'avance ! :jap:

---------------
L'impôt appauvrit l'ignorant et enrichit le connaisseur.

Publicité

[SDF]Poire

Vive Grumly

Quel langage ?

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

schumacher

turbo pascal

merci de t'interesser à moi !! :jap:

---------------
L'impôt appauvrit l'ignorant et enrichit le connaisseur.

[SDF]Poire

Vive Grumly

si X - Int(X) <> 0 result = Int(X) + 1 sinon result = int(X)

edit avec langage :

if frac(X) <> 0 then
result = int(X) + 1
else
result = int(X)

Message édité par [SDF]Poire le 03-11-2002 à 13:58:47

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

[SDF]Poire

Vive Grumly

:bounce:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

schumacher

edit noté

j'achève le prog, je teste ton truc et je viens te dire si c ok

merci d'avance :love:

---------------
L'impôt appauvrit l'ignorant et enrichit le connaisseur.

[SDF]Poire

Vive Grumly

:hello: :sleep:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

schumacher

if frac (nb_roul) <> 0 then
begin
nb_roul := nb_roul + 1;
end;

ça marche pas, j'ai tjs un résultat non entier ! :??:

j'ai essayé frac(nb_roul) et frac (nb_roul) ça fait pareil

une idée?? :jap:

---------------
L'impôt appauvrit l'ignorant et enrichit le connaisseur.

schumacher

tu me dira ya un soucis, j'ai déclaré les variables en tant que real

si j'ai nb_roul = 1.4 ça fera 2.4 et non 2

---------------
L'impôt appauvrit l'ignorant et enrichit le connaisseur.

[SDF]Poire

Vive Grumly

Citation :

var frac: real;

if frac(nb_roul) <> 0 then
nb_roul := int(nb_roul) + 1
else
nb_roul := int(nb_roul);

mais il vaudrait mieux que tu stocks le résultat ds un Integer là tu auras un résultat du type 2.0

:hello:

Message édité par [SDF]Poire le 03-11-2002 à 14:17:01

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Publicité

schumacher

si je met ton truc j'ai une erreur 40

et si je met integer je suis obligé de tout passer en integer et puis meme ca merde il me dis type mismatch :heink:

cata :cry:

merci d'essayer de maider

---------------
L'impôt appauvrit l'ignorant et enrichit le connaisseur.

[SDF]Poire

Vive Grumly

(je suis sous Delphi...)

C quoi l'erreur 40 ?

Message édité par [SDF]Poire le 03-11-2002 à 14:35:30

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

schumacher

c bon j'ai réussi :

if int(nb_roul) <> nb_roul then
begin
nb_roul := int(nb_roul) + 1;
end;

encore merci bcp pr ton aide c super sympa now g fini !!!

poire :jap: [:tkilla]

Message édité par schumacher le 03-11-2002 à 14:57:56

---------------
L'impôt appauvrit l'ignorant et enrichit le connaisseur.

[SDF]Poire

Vive Grumly

2 rien
:hello:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

antp

Super Administrateur
Champion des excuses bidons

y a pas la fonction Ceil en Turbo Pascal :??: ?

benou

l'algo le plus simple pour faire ca c'est de faire :
int(tonDécimal + 0.5)
avec int() qui est la fonction de troncature de la partie décimale.
je connais pas le pascal, donc je vous laisse adapter ca au langage

edit : je suis vraiment trop con, ce qu'il veut c'est à la valeur supérieur .... oups ...

Message édité par benou le 03-11-2002 à 16:03:35

[SDF]Poire

Vive Grumly

antp a écrit a écrit :

y a pas la fonction Ceil en Turbo Pascal :??:

j'C po
j'connaissais po

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

antp

Super Administrateur
Champion des excuses bidons

y a ça en Delphi mais je sais pas s'ils l'ont ajoutée ou si elle existait déjà avant...

FORUM HardWare.fr

Programmation

Delphi/Pascal

[TP] comment arrondir une val déc. à la valeur entière sup?

Sujets relatifs
[servlet]Récupérer la valeur d'un submit "image" dans ma servlet	[PHP] Récupérer valeur sélectionnée dans un combo
Savoir si la valeur renvoyée par mysql_query() est valide?	valeur de retour d'un new ?
regwrite et valeur binaire	[Résolu] chopper la valeur d'un combobox selectionné
Affecter une valeur à une variable en javascript	[CSS] peut on remplacer la valeur de background par une variable ?
Problème de script: passer une valeur d'un popup à la fenêtre...	MySQL - Comment avoir la prochaine valeur d'un increment??
Plus de sujets relatifs à : [TP] comment arrondir une val déc. à la valeur entière sup?

Page générée en 0.091 secondes