Discussion :

[Takahitekun]

Bonjours à tous ! =)
Je rencontre actuellement des difficultés à créer un programme en VBA capable de calculer la différence entre le nombre ayant les mêmes chiffres en ordre décroissant et celui ayant les mêmes chiffres en ordre croissant pour un nombre de quatre chiffres saisi au clavier et à savoir que le programme demandera à la fin de l'execution si on veut recommencer avec un autre nombre ou arrêter.

J'ai donc écrit dans un premier temps un algo pour un entier non nul comportant quatres chiffres non tous égaux :

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
CHIFFREUNITE (n)
Début
CHIFFREUNITE <-- n mod 10
FIN
 
Titre()
Déclarations des variables : n,u,d,c,n : entiers
 
Début
Saisir n
 
u <-- CHIFFREUNITE (n)
d <-- CHIFFREUNITE ((n-u)/10)
c <-- CHIFFREUNITE ((n-u-10xd)/100)
m <-- CHIFFREUNITE ((n-u-10xd-100xc)/1000)
 
Afficher <<c est àgale à>> & c & <<d est égal à>> & d & <<u est égal à>> & u

Et donc comme je l'ai préciser mon programme doit calculer la différence entre les nombres ayant les mêmes chiffres en ordre croissant et décroissant mais je ne vois pas comment m'y prendre, si vous pouviez m'aider ça serait génial =/

En vous remerciant d'avance !
Cordialement

[carden752]

Bonjour,

Tu as séparé tes chiffres, maintenant il ne te reste plus qu'à les classer et ensuite à reconstituer les 2 nombres en fonction.
Il ne restera plus qu'à faire la soustraction.

Classer u, d, c, m en ordre croissant par exemple
soit le classement suivant obtenu pour l'exemple (c,m,u,d)
créer les 2 nombres soit
Plusgrand=c+m*10+u*100+d*1000
Pluspetit=u+d*10+m*100+c*1000

Calculer et afficher Plusgrand-pluspetit

[Takahitekun]

D'accord merci Carden je vais essayer comme ça je vous tiens au courant =)