Diviser une variable integer [Résolu]
elt93
- Messages postés
- 46
- Date d'inscription
- jeudi 13 mars 2008
- Dernière intervention
- 9 février 2009
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
A voir également:
- Delphi extended to integer
- Extended to integer delphi - Meilleures réponses
- Delphi integer - Meilleures réponses
- Delphi / Pascal : Delphi colors to html colors - CodeS SourceS - Guide
- Extended en Integer ✓ - Forum - Delphi / Pascal
- Delphi / Pascal : Transformer des millisecondes(integer) en format hh:mm:ss:ccc (string) - CodeS Sou - Guide
- Delphi / Pascal : Tic tac toe - CodeS SourceS - Guide
- Delphi / Pascal : Html to javascript unescape (encodeur de code html et décodeur) - CodeS Sou - Guide
5 réponses
Meilleure réponse
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Change :
d:= '1.'+floattostr(b);
en
d:= '1 , '+floattostr(b);
Regarde aussi ceci:
http://www.delphifr.com/infomsg_POINT-VIRGULE_444343.aspx
@+
Cirec
<hr siz ="" />
d:= '1.'+floattostr(b);
en
d:= '1 , '+floattostr(b);
Regarde aussi ceci:
http://www.delphifr.com/infomsg_POINT-VIRGULE_444343.aspx
@+
Cirec
<hr siz ="" />
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
130 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Salut,
c''est normal ... l'aide de Delphi aurait également pu te répondre
pour diviser les entiers il faut utiliser Div
b := b Div 100
ou alors changer de variable:
Var e : Extended;
e := b / 100
regarde aussi du coté de (dans l'aide de Delphi):
Trunc, Round, FloatToStr, StrToFloat et Format
@+
Cirec
<hr siz="" />
c''est normal ... l'aide de Delphi aurait également pu te répondre
pour diviser les entiers il faut utiliser Div
b := b Div 100
ou alors changer de variable:
Var e : Extended;
e := b / 100
regarde aussi du coté de (dans l'aide de Delphi):
Trunc, Round, FloatToStr, StrToFloat et Format
@+
Cirec
<hr siz="" />
Merci Cirec,
J'ai fait comme tu m'as dit mais lorsque que je fais b div 100 la valeur de b devient 0. Du coup j'ai été dans l'aide et comme indiqué j'ai créé :
function Diviser(X, Y: Integer): Integer; overload;
begin
Result := X div Y;
end;
puis à la place de b div 100, j'ai mis :
Diviser(b, 100)
Mais la valeur de b devient toujours 0 !
J'ai fait comme tu m'as dit mais lorsque que je fais b div 100 la valeur de b devient 0. Du coup j'ai été dans l'aide et comme indiqué j'ai créé :
function Diviser(X, Y: Integer): Integer; overload;
begin
Result := X div Y;
end;
puis à la place de b div 100, j'ai mis :
Diviser(b, 100)
Mais la valeur de b devient toujours 0 !
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
C'est normal
Div ne renvoie que [la partie entière d'une division]:
5 / 100 = 0.05
5 Div 100 = [0].05
pour avoir la valeur réelle if faut changer de type de variable. Ex.
Sur une fiche (nouvelle application) tu pose deux TLabel
et un TButton
Tu double cliques sur le bouton et tu complètes comme suit:
procedure TForm1.Button1Click(Sender: TObject);
Var a, b, c : Integer;
E : Extended;
begin
a := 5;
b := 7;
C := (b Div 100) * a;
Label1.Caption : = IntToStr(c);
E := (b / 100) * a;
Label2.Caption := FloatToStr(E);
end ;
et tu testes
@+
Cirec
<hr siz ="" />
Div ne renvoie que [la partie entière d'une division]:
5 / 100 = 0.05
5 Div 100 = [0].05
pour avoir la valeur réelle if faut changer de type de variable. Ex.
Sur une fiche (nouvelle application) tu pose deux TLabel
et un TButton
Tu double cliques sur le bouton et tu complètes comme suit:
procedure TForm1.Button1Click(Sender: TObject);
Var a, b, c : Integer;
E : Extended;
begin
a := 5;
b := 7;
C := (b Div 100) * a;
Label1.Caption : = IntToStr(c);
E := (b / 100) * a;
Label2.Caption := FloatToStr(E);
end ;
et tu testes
@+
Cirec
<hr siz ="" />
Merci encore cirec,
Comme vous l'avez surement remarqué, je calcule des pourcentages precedemment c'etait pour effectuer des réductions et maintenant pour l'augmentation j'ai encore un probleme, voivi le code :
var
a: integer;
b: extended;
c: extended;
d: string;
begin
a:= strtoint(nini.Text);
b:= strtofloat(p.Text);
d:= '1.'+floattostr(b);
b:= strtofloat(d);
c:= a*b;
Memo1.Lines.Add(floattostr(c));
end;
Si je rends 50 pour p.Text soit b, le resultat est 1.50 et quand j'appuie sur le boutton j'ai un message d'erreur :
'1.50' n'est pas une valeur flottante correct.
Comme vous l'avez surement remarqué, je calcule des pourcentages precedemment c'etait pour effectuer des réductions et maintenant pour l'augmentation j'ai encore un probleme, voivi le code :
var
a: integer;
b: extended;
c: extended;
d: string;
begin
a:= strtoint(nini.Text);
b:= strtofloat(p.Text);
d:= '1.'+floattostr(b);
b:= strtofloat(d);
c:= a*b;
Memo1.Lines.Add(floattostr(c));
end;
Si je rends 50 pour p.Text soit b, le resultat est 1.50 et quand j'appuie sur le boutton j'ai un message d'erreur :
'1.50' n'est pas une valeur flottante correct.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.