Association Tunisienne pour l'Informatique Scolaire Index du Forum

Association Tunisienne pour l'Informatique Scolaire
BACCALAUREAT INFORMATIQUE et CAPES INFORMATIQUE

 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Algorithmique et programmation - Session de contrôle 2012

 
Poster un nouveau sujet   Répondre au sujet    Association Tunisienne pour l'Informatique Scolaire Index du Forum -> Bac Sciences de l'Informatique -> BAC 2008 - 2009 - 2010 - 2011 - 2012 -> BAC THEORIQUE 2012
Sujet précédent :: Sujet suivant  
Auteur Message
kachbouri
1- Administrateur

Hors ligne

Inscrit le: 05 Oct 2008
Messages: 7 529
Emploi: Cadre pédagogique
Point(s): 7 487

MessagePosté le: Mar 26 Juin 2012 - 16:21    Sujet du message: Algorithmique et programmation - Session de contrôle 2012 Répondre en citant

Algorithmique et programmation
Session de contrôle 2012


 




_______________________________________________________________________________________________________
Enseigner c'est un art ... Comprendre c'est un luxe ...


Revenir en haut
Visiter le site web du posteur
Publicité






MessagePosté le: Mar 26 Juin 2012 - 16:21    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
wissem2012
7- Membre

Hors ligne

Inscrit le: 06 Juin 2012
Messages: 10
Emploi: Professeur
Localisation: Kasserine
Lycée/collège: haidra
Point(s): 0

MessagePosté le: Mar 26 Juin 2012 - 17:33    Sujet du message: Algorithmique et programmation - Session de contrôle 2012 Répondre en citant

une solution de l'examen merci

Revenir en haut
feriel_f
7- Membre

Hors ligne

Inscrit le: 02 Juin 2012
Messages: 6
Emploi: Elève
Localisation: Tunis
Lycée/collège: carthage
Point(s): 0

MessagePosté le: Mar 26 Juin 2012 - 20:51    Sujet du message: Solution bac control 2012 Répondre en citant

Solution Ex1
1)
Type     
Temps = Enregistrement                                         
                    heures : 0..23

                    minutes, secondes : 0..59
              fin temps





2)
 
   Répéter              
         Lire (t1.heures)

    Jusqu’à   t1.heures  dans [0..23]
    Répéter
       Lire (t1.minutes)
    Jusqu’à   t1.minutes  dans [0..59]
    Répéter
       Lire (t1.secondes)
    Jusqu’à   t1.secondes  dans [0..59]




    t2 t1
    Ecrire (t2.heures, t2.minutes, t2.secondes)








Solution Ex2
0) DEF FN Calcsom (x,a :réel) :réel
1) S2←x ;num←x ;den←1
2) Répéter
         S1 ← S2
         Num ← -num*carré(x)
         Den ← den*carré(a)
         S2 ← S2 + Num/Den
    Jusqu’à abs(S2-S1) < 0.0001 
3) CalcSom←S2
4) Fin CalcSom





Solution EX3:

Procedure  tri_selection  (n:integer ; var T:tab);
Var   i,j,pmin,aux,pmax : integer;
BEGIN
   FOR  i:=1  TO  n div 2  DO
       Begin
          pmin:=i;
          pmax:=i;
          FOR j:=i+1  TO  n-i+1   DO
              begin
                  IF  T[j]< T[pmin] THEN  pmin:=j;
                  IF  T[j]> T[pmax] THEN  pmax:=j;
              end;
          aux:=T[pmin];
          T[pmin]:=T(i);
          T(i):=aux;
          if pmax=i
             then begin
                      aux:=T[pmin];
                      T[pmin]:=T[n-i+1];
                      T[n-i+1]:=aux;
                   end
              else begin
                     aux:=T[n-i+1];
                     T[n-i+1]:=T[pmax];
                     T[pmax]:=aux;
                   end;
       End;
END;

Solution Ex4

Procedure symetrie (n:integer; var t:matrice);
var  l,c:integer;
begin
   t[0,1]:=1;
   for l:=1 to n-1 do
      begin
           t[l,1]:=1;
           t[l,l+1]:=1;
           for c:=2  to  l  do    t[l,c] := t[l-1,c]+t[l-1,c-1];
      end;
  
   for l:=1 to n-1 do
           for c:=1 to l+1 do
                     t[-l,c]:=t[l,c];
end;

Solution Ex5 :
program ex5;
uses wincrt;var     f:text;
          mot,ligne,cbin:string;
          cdec:integer;

Function Conv_b2_b10(ch_bin:string):integer;
var  err,i,nb,dec,puiss:integer;
begin
   dec:=0;puiss:=1;
   for  i:=8 downto 1 do
        begin
          Val(ch_bin(i), nb, err);
          dec:=dec+nb*puiss;
          puiss:=puiss*2;
        end;
   conv_b2_b10:=dec;
end;

Begin
    assign(f,'msg.txt');
    reset(f);
    while not eof(f) do
       begin
          mot:='';
          readln(f,ligne);
          repeat
             cbin:=copy(ligne,1,8);
             delete(ligne,1,8);
             cdec:=conv_b2_b10(cbin);
             mot:=mot+chr(cdec);
          until ligne='';
          write(mot,' ');
       end;
End.





Dernière édition par feriel_f le Mer 27 Juin 2012 - 15:17; édité 8 fois
Revenir en haut
nejah
7- Membre

Hors ligne

Inscrit le: 18 Fév 2012
Messages: 27
Emploi: Professeur
Localisation: Mahdia
Lycée/collège: El Djem
Point(s): 0

MessagePosté le: Mer 27 Juin 2012 - 00:47    Sujet du message: Algorithmique et programmation - Session de contrôle 2012 Répondre en citant

program Selection;
uses wincrt ;        
type
tab= array[1..50]of integer;
var
n:integer;
t:tab;
      {**** Procédure saisir *****}
procedure saisir(var n:integer);
begin
  repeat
    writeln('donner la taille du tableau: ');
    readln(n);
  until (n in [5..50]);
end;
      {**** Procédure Remplir *****}


procedure remplir(var t:tab;n:integer);
var
 i:integer;
begin
 for i:=1 to n do
  begin
   writeln('donner l''élément N° ',i,': ');
   readln(t[i]);
  end;
end;
      {**** Procédure position minimale *****}
function pos_min(i,n:integer;t:tab):integer;
var j,pmin:integer;
begin
pmin:=i;
for j:=i+1 to n do
if(t[j]<t[pmin])then
pmin:=j;
pos_min:=pmin;
end;
      {**** Procédure position maximale *****}
function pos_max(i,n:integer;t:tab):integer;
var j,pmax:integer;
begin
pmax:=i;
for j:=i+1 to n do
if(t[j]>t[pmax])then
pmax:=j;
pos_max:=pmax;
end;
      {**** Procédure Permut *****}
procedure permut(var a,b:integer);
var
 aux:integer;
begin
 aux:=a;
 a:=b;
 b:=aux;
end;
      {**** Procédure Tri Sélection *****}
procedure tri_selection(var t:tab;n:integer);
var
 i,pmin,pmax:integer;
begin  
 for i:=1 to n div 2 do
  begin
   pmin:=pos_min(i,n-i+1,t);
   pmax:=pos_max(i,n-i+1,t);
   if (pmax=i) and (pmin=n-i+1) then
   permut(t[pmax],t[pmin])
   else if pmax<>i then
   begin
   permut(t[i],t[pmin]);
   permut(t[n-i+1],t[pmax]);
   end
   else
   begin
   permut(t[n-i+1],t[pmax]);
   permut(t[i],t[pmin]);
   end


  end;
end;
      {**** Procédure Affichage *****}
procedure affichage(t:tab;n:integer);
var
i:integer;
begin
 for i:=1 to n do
   writeln('T[',i,']=',t[i]);
end;
      {**** Programme principal *****}
begin
 saisir(n);
 remplir(t,n);
 tri_selection(t,n);
 affichage(t,n);
end.
_______________________________________________________________________________________________________
Si tu veux tu peux


Revenir en haut
tarek
7- Membre

Hors ligne

Inscrit le: 11 Jan 2011
Messages: 18
Emploi: Elève
Localisation: Tunis
Lycée/collège: tahar sfar
Point(s): 0

MessagePosté le: Sam 30 Juin 2012 - 17:16    Sujet du message: bravo pour la correction feriel Répondre en citant

bravo bravo bravo bravo bravo

_____________________________________________________________________________________________________________________________________
Bonne solution


Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 08:58    Sujet du message: Algorithmique et programmation - Session de contrôle 2012

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Association Tunisienne pour l'Informatique Scolaire Index du Forum -> Bac Sciences de l'Informatique -> BAC 2008 - 2009 - 2010 - 2011 - 2012 -> BAC THEORIQUE 2012 Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com