hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
voici un programme qui permet de convertir un nombre de n'importe quelle base vers la base 10 :
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Algorithmes d'arithmétiques
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Sam 27 Fév - 12:16 (2010)    Sujet du message: voici un programme qui permet de convertir un nombre de n'importe quelle base vers la base 10 : Répondre en citant

PublicitéSupprimer les publicités ?
voici un programme qui permet de convertir un nombre de n'importe quelle base vers la base 10 :

program convertion;
uses wincrt;

var nb:string;
    base:integer;

function puiss(n,p:integer):integer;
  var i,x:integer;
  begin
    x:=1;
    for i:=1 to p do
      x:=x*n;

    puiss:=x;
  end;

function verif(nb:string;base:byte):boolean;
  var T:string;
      i,j:integer;
  begin
    T:='0123456789ABCDEF';
    T:=copy(T,1,base);
    i:=0;
    repeat
      inc(i);
    until (pos(nb,T)=0)OR(i>=length(nb));
    verif:=pos(nb,T)<>0;
  end;

function decimale(nb:string;base:byte):integer;
  var v,pe,i,n:integer;

  begin
    n:=0;
    for i:=1 to length(nb) do
      begin
        case nb[length(nb)-i+1] of
          '0'..'9':val(nb[length(nb)-i+1],v,pe);
          else v:=9+ord(nb[length(nb)-i+1])-ord('A')+1;
          end;
        n:=n+v*puiss(base,i-1);
      end;
    decimale:=n;
  end;
begin
  repeat
    write(' Base= ');
    readln(base);
  until (2<=base)AND(base<=16);

  repeat
    write(' NB= ');
    readln(nb);
  until verif(nb,base);

  writeln(' Base 10= ',decimale(nb,base));
end.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:25 (2016)    Sujet du message: voici un programme qui permet de convertir un nombre de n'importe quelle base vers la base 10 :

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Algorithmes d'arithmétiques Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation