Bac Pratique info 2008

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

  1. amri_ess

    amri_ess عضو مميز

    إنضم إلينا في:
    ‏30 أوت 2008
    المشاركات:
    976
    الإعجابات المتلقاة:
    581
      01-05-2009 13:27
    :besmellah1:


    :wlcm:
    أكملت بعون الله تحميل les Bac Pratiques لسنة 2008 للشعب العلمية

    أرجو ان تعم الفائدة.

    :dance::kiss::easter:

    (Tous les droits réservés à amri_ess)

    Pass:
    amri_ess


    :tunis::tunis:
     

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

    18 شخص معجب بهذا.
  2. fullspeeeed

    fullspeeeed عضو جديد

    إنضم إلينا في:
    ‏5 جانفي 2008
    المشاركات:
    20
    الإعجابات المتلقاة:
    9
      02-05-2009 13:07
    merci bien mais:wlcm:
    mot de passe svp
     
  3. amri_ess

    amri_ess عضو مميز

    إنضم إلينا في:
    ‏30 أوت 2008
    المشاركات:
    976
    الإعجابات المتلقاة:
    581
      02-05-2009 14:17
    Le pass c'est
    amri_ess
    c'est écrit en haut ;-)
     
    1 person likes this.
  4. kawi2006

    kawi2006 عضو مميز

    إنضم إلينا في:
    ‏2 أفريل 2007
    المشاركات:
    661
    الإعجابات المتلقاة:
    247
      19-05-2009 08:52
    merci beaucoup pour vos effort
    :satelite:
     
  5. invite2

    invite2 عضو نشيط

    إنضم إلينا في:
    ‏31 جانفي 2008
    المشاركات:
    169
    الإعجابات المتلقاة:
    109
      19-05-2009 12:59
    :besmellah1:
    j'ai esseyé de travaillé le sujet
    bac-pratique-22052008-sc-9h.pdf
    Est-ce-que la décomposition en modules utiles à la solution est correcte? combien j'aurais sur 5pts?
    Merci


    program mai_22_08_9h;
    uses wincrt;
    var n:word;

    procedure saisir(var n:word);
    begin
    repeat
    writeln('saisir un entier superieur strictement à 9');
    readln(n);
    until (n>9);
    end;

    function longeur_du_nbre (n:word):integer;
    var ch:string;
    begin
    str(n,ch);
    longeur_du_nbre:=length(ch);
    end;

    function chiffre(n,i:word):integer;
    var ch:string; c,e:integer;
    begin
    str(n,ch);
    val(ch,c,e);
    chiffre:=c;
    end;

    function somme (a,b:integer):integer;
    var s:integer;
    begin
    s:=a+b;
    if(s>=9) then s:=s-9;
    somme:=s;
    end;

    function divisible_ou_non (n:word):boolean;
    var r: boolean; s,i:integer;
    begin
    r:=false;
    s:=chiffre(n,1);
    for i:= 2 to longeur_du_nbre(n) do s:=somme(s,chiffre(n,i));
    if(s=0) then r:=True;
    divisible_ou_non:=r;
    end;

    procedure affichage(n:word);
    begin
    if (divisible_ou_non(n)=True) then writeln('Le nombre ',n,' est divisible par 9')
    else writeln('le nombre ',n,' n'' est pas divisible par 9');
    end;

    begin
    saisir(n);
    affichage(n);

    end.
     

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

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