1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
   |  
Ce programme nous permet de convertir un nombre de la base 10 vers un nombre  DCB
 
Programme : convertisseur
Var  
Ch, DCB, A :chaine de caractères
K, Y,V, i : entier
Début
Répéter
        Y :=0
        K :=1   (compteur pour la chaine)
       V :=0(compteur du nombre de virgule)
       Ecrire (  donné le nombre à convertir  )
       Lire (ch)
       Répéter
             Si (ch[k]<>[0..9]) et (ch[k]<>.) et  (ch[k]<>-) alors Y :=1
             Fin si
             Si (ch[k]=-) et (k<>1) alors Y :=1
             Fin si
             Si (ch[k]=.) Alors V :=V+1
             Fin si
             Si (ch[k]=.) et (k=1) alors Y :=1
             Fin si
             K :=K+1
        Jusqu'à (K=long(ch)+1)ou (Y=1) ou (V=2)
Jusqu'à (Y=0) et (V<>2) 
 
K :=K-1 (autrement pour avoir la longueur de notre chaine)
DCB := 
A := 
Pour  i  de 1 à  K  faire
      Switch ch[k]
       {
           Case 0: A: =0000; break;
          Case 1: A: =0001; break;
          Case 2: A: =0010; break;
          Case 3: A: =0011; break;
          Case 4: A: =0100; break;
          Case 5: A: =0101; break;
          Case 6: A: =0110; break;
          Case 7: A: =0111; break;
          Case 8: A: =1000; break;
          Case 9: A: =1001; break;
          Case -: A: =-; break;
          Case .: A: =.; break;
      }
   DCB:=DCB+A
Fin pour
  Ecrire ( le nombre convertis est ,DCB)
FIN | 
Partager