conversion de la base 2 au base 10

الموضوع في 'لغات البرمجة' بواسطة yassinix-sat, بتاريخ ‏17 أفريل 2008.

  1. yassinix-sat

    yassinix-sat عضو نشيط

    إنضم إلينا في:
    ‏14 أفريل 2008
    المشاركات:
    107
    الإعجابات المتلقاة:
    137
      17-04-2008 00:52
    :besmellah1:

    salu tous​

    et voila la fonction ​


    كود (text):
    function conversion210 (ch:string):integer;
    كود (text):


    [CENTER]var p,n,i,x,e:integer ;
    [CENTER]begin
    n:=0;
    p:=1;
    for i:=length(ch) downto 1 do
    begin
    val(chr(i),x,e);
    n:=n+(x*p);
    p:=p*2;
    end;
    conversion210:=n;
    end;
    {www.tunisia-sat.com)[/CENTER]
    [/CENTER]
     


    :tunis::tunis::tunis:
     
  2. timeout

    timeout عضو فعال

    إنضم إلينا في:
    ‏13 مارس 2008
    المشاركات:
    446
    الإعجابات المتلقاة:
    251
      17-04-2008 23:35
    CE programme est faux et voila la solution:

    function base2_10(ch:string):integer;
    var p,n,i,x,e:integer ; ​
    begin n:=0;

    for i:=length(ch) downto 1 do
    begin
    val(chr(i),x,e);
    n:=n+ X*puissance2(length(ch)-i); end;
    base2_10:=n;
    end;
     
جاري تحميل الصفحة...
مواضيع مشابهة التاريخ
شرح Windev :Base de donnés Sauvegarde/Restauration ‏19 مارس 2016
شرح La Recherche Full_Text Windev ‏3 سبتمبر 2016
WINDEV crée et lire une fichier son depuis base de bonne ‏6 مارس 2016

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

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