Changer un Real en Int

**yhcowboy** · 08/09/2009, 21h28

Allo allo ! Bon j'suis le plus débutant que vous pouvez trouver sur ce forum alors, soyez gentil

Voilà petite application en console, constitue à calculer le salaire d'un employé selon le nombre de vente et un salaire fixe. Mais mon taux de comission sur le nombre de vente, qui est de 4 % est un réel et mes ventes totals sont des entiers. Comment ferais-je pour transtyper mon réel en entier ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
var
   SalaireMois,
   OrdinateurVendu,
   SalaireTotal,
   PrixOrdi,
   TotalVente : integer ;
   PourcentageVente : real;
 
begin
      PourcentageVente := 0.4 ;
      SalaireMois := 260;
      WriteLn('***************************')    ;
      Write('Combien coute un ordinateur ? ');
      Readln(PrixOrdi)  ;
      Write('Combien d''ordis vendus ?')   ;
      Readln(OrdinateurVendu);
      SalaireTotal := SalaireMois + (45*OrdinateurVendu);
      TotalVente := (PrixOrdi*OrdinateurVendu)  ;
      SalaireTotal := SalaireTotal + (TotalVente * PourcentageVente);
      Write('Vous avez gagné  ', SalaireTotal,' dollars !')  ;
      Readln;
end.

Merci de bien vouloir me dire comment faire

**evarisnea** · 08/09/2009, 22h25

et bienvenue sur le forum

il te suffit tout simplement d'utiliser la fonction Trunc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SalaireTotal := Trunc(SalaireTotal + (TotalVente * PourcentageVente));

consulte l'aide de delphi pour en savoir plus.

Invité1 · 08/09/2009, 23h28

salut
4% = 0.04 pas 0.4

tu peux aussi utiliser la fonction INT ou alors ROUND
regardes le help de delphi.

INT:renvoie la partie entiere d'un nombre réel.
ROUND:renvoie une valeur arrondie au nombre entier le plus proche.

......
bonne chance