Demande de devoir de bac pratique d'info de 2008

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

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

    amri_ess عضو مميز

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

    بربي شكون عندوdevoir باك براتيك الكل متاع l'info متاع 2008
    مع الإصلاح
    شكرا مسبقا
    :kiss:


    Remarque:
    -merci helper2 de ton aide mais j'ai demandé les sujets de bac pratique et non théorique


    voici ma demande d'hier:
    http://www.tunisia-sat.com/vb/showthread.php?t=622462


    --------------------------------------------------------------------------

    j'ai trouvé des devoirs du 22 mai 2008 avec leurs corrigés
    mais j'ai pas trouvé ceux du 23 mai 2008

    en tout cas illi 3andou ya3tini

    voici ce que j'ai trouvé:

    solution pour l'épreuve du jeudi 22 Mai à 9h

    program BacPratique2008 ;
    uses wincrt;
    Var
    N:longint;

    {Saisie de la valeur de N**
    procedure saisie(Var N:longint);
    Begin
    repeat
    write('Introduire la valeur de N : ');
    readln(N);
    until(N>9);
    End;

    {Fonction Verif permettant de retourner la valeur Vrai si N est divisible
    par 9 et la valeur Faux dans le cas contraire **

    Function Verif(N:longint) : Boolean;
    Var
    i,x,a,b,d,e1,e2:integer;
    ch:string;
    Begin
    str(N,ch);
    val(ch[1],a,e1);
    X:=a ;
    for i:=2 to length(ch) do
    begin
    val(ch,b,e2);
    X:=X+b ;
    while(X>=9) Do
    X:=X-9;
    end;
    if(X=0) then Verif:=true
    else Verif:=false;
    End;

    {Programme principal;**

    BEGIN
    saisie(N);
    if verif(N)=true then
    Writeln(N,' est divisible par 9')
    else writeln(N,' n''est pas divisible par 9');
    END.




    Correction du l'épreuve pratique du 22-5-2008 de 10h 30 à 11h 30
    program BacPratique2008ep2;
    uses wincrt;
    Var
    n:longint;
    s:integer;
    procedure saisie(var n:longint);
    begin
    repeat
    write('Introduire la valeur de N : ');
    readln(n);
    until((n>0) and (n>100));
    end;
    procedure calcul(n:longint; var s:integer);
    var
    ch:string;
    e1,x,z,i:integer;
    begin
    x:=n;
    while x>9 do
    begin
    str(x,ch);
    s:=0;
    for i:=1 to length(ch) do
    begin
    val(ch,z,e1);
    s:=s+z;
    end;
    x:=s;
    end;
    end;
    procedure code (var n:longint; s:integer);
    var ch1,ch2:string;
    er:integer;
    begin
    str(n,ch1);
    str(s,ch2);
    ch1:=ch2+ch1;
    val(ch1,n,er);
    end;
    begin
    saisie(n);
    calcul(n,s);
    code(n,s);
    writeln('le code est = ',n);
    end.




    Correction de l'épreuve pratique du 22-5-2008 de 14h à 15 h

    program BacPratique2008ep3;
    uses wincrt;

    type tab= array [1..50] of integer;

    Var
    r,p,n,s:integer;
    v,t:tab;

    {*********lecture de N*************

    procedure saisie_n(var n:integer);

    begin
    repeat
    write('Introduire la valeur de N : ');
    readln(n);
    until((n>5) and (n<30));
    end;

    {***********Remplir le tableau aléatoirement **************

    procedure remplir(n:integer; var t:tab);
    var
    i:integer;

    begin

    for i:=1 to n do

    t:=random(1001);


    end;

    {***************** Saisir l'indice ********************

    procedure saisie_indice (var p:integer; n:integer);

    var i:integer;


    begin

    repeat
    write('Introduire la valeur de l''indice : ');
    read(p);
    until (p<=n);

    end;

    {****************** Vérifier l'existance des élements consécutifs ***************

    procedure verif (r,p,s:integer;v:tab);

    var i:integer;
    begin

    if s=t[p] then
    begin
    writeln ('Condition vérifiée, la valeur de l''indice : ',p,' est = ', t[p]);
    write( 'les élements consécutifs sont : ');

    for i:=1 to (r-1) do
    write ('|', t[v],'|');
    end
    else
    writeln('Condition non vérifiée');
    end;

    {*************** Calculer la somme des éléments consécutifs ******************

    procedure somme (t:tab;p:integer;var v:tab; var s,r:integer);

    var
    i,s1:integer;

    begin

    r:=1;
    s:=0;
    s1:=0;
    for i:=(p-1) downto 1 do
    begin
    s1:=s1+t;
    if s1<=t[p] then
    begin
    v[r]:=i;
    r:=r+1;
    s:=s+t;
    end;
    end;

    verif(r,p,s,v);
    end;

    {************** Programme principale *****************

    begin

    saisie_n(n);
    remplir (n,t);
    saisie_indice (p,n);
    somme(t,p,v,s,r);
    end.
     
  2. 7amidou

    7amidou عضو فعال

    إنضم إلينا في:
    ‏12 جانفي 2008
    المشاركات:
    393
    الإعجابات المتلقاة:
    87
      27-04-2009 18:13
    :besmellah1:
    وجدت موضوع باك براتيك متاع 2008 اما مانعرفش
    شوف
    هاو في المرفقات
     

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

  3. arif2008

    arif2008 عضو

    إنضم إلينا في:
    ‏7 سبتمبر 2007
    المشاركات:
    69
    الإعجابات المتلقاة:
    27
      28-04-2009 01:44
    :besmellah1:
    تصفح المواقع التالية:
    ******************
    ******************

     
    2 شخص معجب بهذا.
  4. amri_ess

    amri_ess عضو مميز

    إنضم إلينا في:
    ‏30 أوت 2008
    المشاركات:
    976
    الإعجابات المتلقاة:
    581
      28-04-2009 11:56


    merci pour ton aide
    mais ********.net il y a pas de correction

    et moi je veux le corrigés des épreuves du 23 mai 2008
     
    1 person likes this.
  5. TAHAR1

    TAHAR1 عضو جديد

    إنضم إلينا في:
    ‏29 جانفي 2007
    المشاركات:
    40
    الإعجابات المتلقاة:
    1
      29-04-2009 15:40
    Voici les examens pratiques
    visiter le site******************
     

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

  6. TAHAR1

    TAHAR1 عضو جديد

    إنضم إلينا في:
    ‏29 جانفي 2007
    المشاركات:
    40
    الإعجابات المتلقاة:
    1
      29-04-2009 15:49
    Voici les examens pratiques
    visiter le site******************
     
حالة الموضوع:
مغلق

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

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