إلى كل الأعضاء و المشرفين على المنتدى أرجو المساعدة

aider moi a écrire un programme en Pascal qui sert a convertir un entier dans tout les base de numération:
la base hyxadicimale:base 16
la base béniére: base 2
la base octact: base 8
​

 

voici cher ami
ICI
​

 

bon travail mn ami

 

de rien Mohamed ​

 

​

merci bien mon ami
mais est ce que il n'esiste pas des récéproques si le nombre est donné en binére ou autre base
je suis désoler parceque j'ai pas mis cela au début ​

​

 

voici un programme qui permet de convertir de toutes les base vers la base 10
​

 

Bonne continuation les frères et bonne lecture pour les autres membres

 

Désolé les amis je crois que j'ai fait une petite faute
Vous devez modifier la fonction decimale comme suit

كود (text):

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;

 

merci mon ami mais je si le nombre a sési est donner par exemple en base 2 ou base 16
donc il faut qu'il le converte en décimale j'espaire que vous avez compris ma demede
et merci

 

voici une solution plus complète qui permet de convertir de toutes les bases comprise entre 2 et 16
si vous voulez convertir de la base 2 vous n'avez qu'à affecter la valeur 2 à la variable base et voici un exemple d'exécution


et si vous voulez vous pouvez vérifier à l'aide d'une calculatrice, cette valeur est juste
​