please help me

الموضوع في 'أرشيف المنتدى التعليمي' بواسطة sopranofg, بتاريخ ‏11 ماي 2008.

  1. sopranofg

    sopranofg عضو نشيط

    إنضم إلينا في:
    ‏6 مارس 2008
    المشاركات:
    131
    الإعجابات المتلقاة:
    35
      11-05-2008 13:15
    est ce que kelkun parmi vous peu me donner les solution de tous le conversion entre tous les bases complete avec sa specification
    par exemple conversion entre base 10_2
    10_16 et le contraire
    10_8 et le contraire
    2_16 et le contraire
    ......................
    et merciiiiiiiiiiiiiiiiiiiiii d'avance
    svp c urgent
     
  2. samm

    samm عضو مميز

    إنضم إلينا في:
    ‏11 جويلية 2006
    المشاركات:
    892
    الإعجابات المتلقاة:
    1.177
      11-05-2008 15:47
    de base <=16 vers base 2 par étape:récursive


    program conversion_16_2;
    uses wincrt;
    var
    ch:string;
    {***************** fonction verif *********************
    function verif(ch:string):boolean;
    var
    x,e:integer;
    begin
    if(ch='')then
    verif:=true
    else if not(ch[1] in ['0'..'9','A'..'F','a'..'f'])then
    verif:=false
    else
    verif:=verif(copy(ch,2,length(ch)-1));
    end;
    {*************** procédure saisie *********************
    procedure saisie(var ch:string);
    begin
    repeat
    write('Entrer un nombre dans une base b <= à 16 ');
    readln(ch);
    until verif(ch);
    end;
    {************* fonction con_car ***********************
    function conv_car(c:char):string;
    var
    n,e,i:integer;
    mot:string[4];
    begin
    if(c in ['0'..'9'])then
    val(c,n,e)
    else
    n:=ord(c)-55;
    mot:='0000';
    i:=4;
    repeat
    write('n=',n);readln;
    if(n mod 2=1)then
    begin
    mot:='1';
    end;
    n:= n div 2;
    i:=i-1;
    write(mot);readln;
    until n=0;
    conv_car:=mot;
    end;
    {************* fonction conv_16_2 *********************
    function conv_16_2(ch:string):string;
    begin
    if(ch[1]='0')then
    begin
    delete(ch,1,1);
    conv_16_2:=conv_16_2(ch);
    end;
    if(ch='')then
    conv_16_2:=''
    else
    begin
    conv_16_2:=conv_car(ch[1])+conv_16_2(copy(ch,2,length(ch)-1));
    end;
    end;
    {************* programme principal ********************
    begin
    {$m 48000,0**
    saisie(ch);
    writeln(ch,' en base 2 = ',conv_16_2(ch));
    end.
     
  3. king-0X

    king-0X نجم المنتدى

    إنضم إلينا في:
    ‏21 فيفري 2008
    المشاركات:
    1.598
    الإعجابات المتلقاة:
    1.695
      12-05-2008 16:14
    bravoo
    :oh:
     
    1 person likes this.

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

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