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

الموضوع في 'لغات البرمجة' بواسطة Maktist, بتاريخ ‏14 مارس 2007.

حالة الموضوع:
مغلق
  1. Maktist

    Maktist نجم المنتدى

    إنضم إلينا في:
    ‏2 أفريل 2006
    المشاركات:
    2.025
    الإعجابات المتلقاة:
    445
      14-03-2007 18:54
    :besmellah1:
    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

    :117: :117:
     
  2. chaker171089

    chaker171089 عضو فعال

    إنضم إلينا في:
    ‏29 سبتمبر 2006
    المشاركات:
    313
    الإعجابات المتلقاة:
    9
      14-03-2007 20:02
    voici cher ami
    ICI
     

    الملفات المرفقة:

    • convert.txt
      convert.txt
      حجم الملف:
      2,1 ك. ب
      المشاهدات:
      13
  3. mtcs

    mtcs عضو فعال

    إنضم إلينا في:
    ‏22 أكتوبر 2006
    المشاركات:
    326
    الإعجابات المتلقاة:
    44
      14-03-2007 20:24
    bon travail mn ami
     
  4. chaker171089

    chaker171089 عضو فعال

    إنضم إلينا في:
    ‏29 سبتمبر 2006
    المشاركات:
    313
    الإعجابات المتلقاة:
    9
      14-03-2007 21:28

    de rien Mohamed ​
     
  5. Maktist

    Maktist نجم المنتدى

    إنضم إلينا في:
    ‏2 أفريل 2006
    المشاركات:
    2.025
    الإعجابات المتلقاة:
    445
      15-03-2007 12:17
    :besmellah1:
    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 ​

    :117: :117:
     
  6. chaker171089

    chaker171089 عضو فعال

    إنضم إلينا في:
    ‏29 سبتمبر 2006
    المشاركات:
    313
    الإعجابات المتلقاة:
    9
      16-03-2007 18:18
    voici un programme qui permet de convertir de toutes les base vers la base 10
     

    الملفات المرفقة:

    • convert2.txt
      convert2.txt
      حجم الملف:
      608 بايت
      المشاهدات:
      5
  7. CrazyFrog

    CrazyFrog نجم المنتدى

    إنضم إلينا في:
    ‏1 أفريل 2006
    المشاركات:
    1.723
    الإعجابات المتلقاة:
    335
      16-03-2007 19:08
    Bonne continuation les frères et bonne lecture pour les autres membres
     
  8. chaker171089

    chaker171089 عضو فعال

    إنضم إلينا في:
    ‏29 سبتمبر 2006
    المشاركات:
    313
    الإعجابات المتلقاة:
    9
      16-03-2007 19:29
    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;
     
  9. Maktist

    Maktist نجم المنتدى

    إنضم إلينا في:
    ‏2 أفريل 2006
    المشاركات:
    2.025
    الإعجابات المتلقاة:
    445
      16-03-2007 20:00
    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
     
  10. chaker171089

    chaker171089 عضو فعال

    إنضم إلينا في:
    ‏29 سبتمبر 2006
    المشاركات:
    313
    الإعجابات المتلقاة:
    9
      16-03-2007 20:50
    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
    [​IMG]

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

    الملفات المرفقة:

    • convert2.txt
      convert2.txt
      حجم الملف:
      1,1 ك. ب
      المشاهدات:
      3
جاري تحميل الصفحة...
حالة الموضوع:
مغلق

مشاركة هذه الصفحة

جاري تحميل الصفحة...