hg Register Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Forum Index

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
4SI devoir de controle théorique N°3
 
 
Post new topic   Reply to topic    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Previous topic :: Next topic   hd
Author Message
dadi


Offline

Joined: 21 Mar 2010
Posts: 12
Point(s): 13
Moyenne de points: 0

Posted: Sat 10 Apr - 16:40 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote


voila le probleme du devoir de control théorique N°3:

On désire écrire un programme qui permet de remplir un tableau T par n entiers naturels (5<=n<=50) et d'arranger les éléments du tableau T de telle sorte que les éléments strictement inférieurs à l'élément d'indice P donné seront mis sa gauche et les éléments qui lui sont strictement supérieurs deront mis à sa droite.
Pour resoudre le probleme indiqué ci-dessus, on doit suivre le principe suivant :
       
       - conserver la valeur de l'élement d'indice P dans une valeur x
       - Supprimer l'élément d'indice P du tableau T
       - Déplacer tous les élements strictement inférieurs à x au début du tableau et les éléments strictement supérieurs à x à la fin du tableau sans changer d'apparition des éléments
       - insérer l'élément x à sa bonne place (de telle sorte que les éléments strictement inférieurs soient à sa gauche et les éléments qui lui sont strictement supérieurs soient à sa droite)

Exemple :
soit n=10
                                           T:

 76 10 
  
Si P=5 le tableau résultat est le suivant :

                                            T:

 4  
10 
  
Travail à faire :

  • Analyser en modules la partie du problème qui permet d'arranger les éléments du tableau en suivant le principe ci-dessus.
BONNE CHANCE  
 
 


 
Revenir en haut
Publicité






Posted: Sat 10 Apr - 16:40 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 1,709
Masculin
Point(s): 5,478
Moyenne de points: 0

Posted: Mon 12 Apr - 12:33 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

merci pour le partage   Okay

 
Revenir en haut
eddiraya


Offline

Joined: 01 Mar 2010
Posts: 1
Point(s): 1
Moyenne de points: 0

Posted: Tue 13 Apr - 19:02 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

mais je besoin la correction svp

 
Revenir en haut
yamna


Offline

Joined: 02 May 2010
Posts: 4
Point(s): 4
Moyenne de points: 0

Posted: Mon 3 May - 14:10 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

la correction, please, merci

 
Revenir en haut
dadi


Offline

Joined: 21 Mar 2010
Posts: 12
Point(s): 13
Moyenne de points: 0

Posted: Tue 4 May - 22:31 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

slt, voila ce que j'ecris dans ma copie (tous est juste )

analyse de la proc arrag (var t:tab; n,p:entier) 
            resultat=T
T=    x:=t[p]
   proc decalage(T,n,p)
   Repeter
        b:=faux
        Pour i de 1 à n-1 faire
               si t>x
                        alors y:=T(i)
                                T(i):=T(i+1)
                                T(i+1):=y
                                 b:=vrai
         Fin Pour
     Jusqu'à (b=faux) 
     Proc rech_indice_x(T,x,d)
     Proc Decaler(T,n,d)
     T(d+1):=x
fin arrang


Analyse de la Proc Decalage (var T:tab;n,p:entier)
         Resultat=T
T=Pour i de p+1 à n faire
         j:=i-1
         T(j):=T(i)
    fin Pour
fin Decalage



Analyse de la Proc Rech_indice_x(T:tab;x:entier;var d:entier)
          Resultat=d
d=   d:=0
             Repeter
                     si T<x
                                 alors d:=d+1
             Jusqu'à (T>x)ou(i=n)
fin Rech_indice_x


Analyse de la Proc Decaler(var T:tab;n,d:entier)
      Resultat=T
T=Pour i de n downto 1 faire
           T(i):=T(i-1)
    fin Pour
fin Decaler

et bien sur n'oublier pas les TDO


 
Revenir en haut
ASMA.HS


Offline

Joined: 03 May 2010
Posts: 3
Point(s): 3
Moyenne de points: 0

Posted: Thu 6 May - 17:49 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

svp je veux la correction de tous les  sujets pratiques bac info 2008 et 2009

 
Revenir en haut
dadi


Offline

Joined: 21 Mar 2010
Posts: 12
Point(s): 13
Moyenne de points: 0

Posted: Thu 6 May - 22:43 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

Sujet n°2  
Les courbes Cf et Cg représentées ci-dessous sont respectivement les courbes représentatives des fonctions f et g définies sur R par f(x)=2-(e-x)2 et g(x) =2-e-x

                                
 
Ecrire un programme pascal qui permet de calculer et d’afficher une valeur approchée de l’aire  qui se trouve entre les deux courbes représentatives dans l’intervalle [x0[b] avec x0 est une valeur approchée de zéro de la fonction g- Pour déterminer x0, utiliser la méthode de dichotomie
- Pour déterminer une valeur approchée de l’aire demandée, utiliser la méthode du trapèze

Correction du sujet n°2  


[/b]
Program Tp3_Sujet2;
 Uses Wincrt;
 Var
  n:Integer;
  Eps:Real;
 Function g(x:Real):Real;
  Begin
   g:=2-Exp(-x);
  End;
 Function Zero_Fonct(a,b,Eps:real):Real;
  Var
   m:Real;
  Begin
   While (b-a)>Eps Do
    Begin
     m:=(a+b)/2;
     If g(a)*g(m)>0
      Then
       a:=m
      Else
       b:=m;
    End;
   Zero_Fonct:=m;
  End;
  Function f(x:Real):Real;
  Begin
   f:=2-sqr(Exp(-x));
  End;
 Function F1(x:Real):Real;
  Begin
   F1:=g(x)-f(x);
  End;
 Function Trapeze(a,b:Real;n:Integer):Real;
  Var
   i:Integer;
   h,x,S:Real;
  Begin
   h:=(b-a)/n;
   x:=a;
   S:=0;
   For i:=1 To n Do
    Begin
     S:=S+(F1(x)+F1(x+h))*h/2;
     x:=x+h;
    End;
   Trapeze:=S;
  End;
 Procedure Lecture(var n:Integer);
  Begin
   Repeat
    Writeln('Entrer le nombre d''intervalles ');
    Readln(n);
   Until n>0;
  End;
 Begin
    Repeat
   Write('Entrer epsilon ');
   Readln(Eps);
  Until (Eps>0) and (Eps<=0.001);
  Writeln('f(x)=0 pour x = ',Zero_Fonct(-1,0,Eps):0:6));
  Lecture(n);
  Writeln('l''aire est ',Trapeze(Zero_Fonct(-1,0,Eps),0,n):0:8);
 End.


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 1,709
Masculin
Point(s): 5,478
Moyenne de points: 0

Posted: Fri 7 May - 11:52 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

excellent Dadi   Okay Okay Okay MERCII

 
Revenir en haut
fouka


Offline

Joined: 21 Apr 2010
Posts: 12
Point(s): 12
Moyenne de points: 0

Posted: Sat 8 May - 20:52 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

merciii bcp  Okay

 
Revenir en haut
dadi


Offline

Joined: 21 Mar 2010
Posts: 12
Point(s): 13
Moyenne de points: 0

Posted: Sat 8 May - 22:48 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

Smile Smile Smile
j'ai des sujet corrigée comme ce dernier si vous voulez


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 1,709
Masculin
Point(s): 5,478
Moyenne de points: 0

Posted: Tue 11 May - 11:45 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

oui dadi nous attendent d'autre exercice merci bien Okay Okay Okay  

 
Revenir en haut
dadi


Offline

Joined: 21 Mar 2010
Posts: 12
Point(s): 13
Moyenne de points: 0

Posted: Wed 12 May - 20:21 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

Sujet n°1  
Soit l’expression suivante
PI=3*[1²/(4*6)+1²/(4*6)*3²/(8*10)+1²/(4*6)*3²/(8*10)*5²/(12*14)+1²/(4*6)*3²/(8*10)*5²/(12*14)*7²/(16*18)+......]


 Ecrire un programme Pascal qui permet :
- de déterminer et d’afficher une valeur approchée de  PI  à 10-4
- de calculer et d’afficher une valeur approchée de l'integral entre 0 et 1 de la fonction 4*Sqrt(1-sqr(x)) en utilisant la méthode de rectangle point de milieu.
- Après avoir exécuter votre programme, ajouter comme commentaire à la fin du programme votre constatation.

Correction du sujet n°1  


Program Tp3_Sujet1;
 Uses Wincrt;
 Var
  n:Integer;
 Function f(x:Real):Real;
  Begin
   f:=4*Sqrt(1-sqr(x));
  End;
 Function Milieu(a,b:Real;n:Integer):Real;
  Var
   i:Integer;
   h,x,S:Real;
  Begin
   h:=(b-a)/n;
   x:=a+h/2;
   S:=0;
   For i:=1 To n Do
    Begin
     S:=S+F(x)*h;
     x:=x+h;
    End;
   Milieu:=S;
  End;
 Function Vapp_pi:Real;
  Var
   i,x,S,Sa,p:Real;
  Begin
   S:=1;
   i:=1;
   x:=4;
   p:=1;
   Repeat
    Sa:=S;
    S:=S+P*sqr(i)/(x*(x+2));
    P:=P*sqr(i)/(x*(x+2));
    i:=i+2;
    x:=x+4;
   Until Abs(S-Sa)<=1E-4;
   Vapp_pi:=3*S;
  End;
 Procedure Lecture(Var n:Integer);
  Begin
   Repeat
    Write('Entrer le nombre d''intervalles ');
    Readln(n);
   Until n>0;
  End;
 Begin
  Writeln('Pi = ',Vapp_pi:0:8);
  Lecture(n);
  Writeln('L''aire est ',Milieu(0,1,n):0:8);
 End.


 
Revenir en haut
mourad ben mabrouk


Offline

Joined: 28 Apr 2010
Posts: 1
Point(s): 1
Moyenne de points: 0

Posted: Sun 16 May - 15:51 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

Merci pour le partage Okay

 
Revenir en haut
arine_samara


Offline

Joined: 01 May 2010
Posts: 13
Point(s): 13
Moyenne de points: 0

Posted: Sun 23 May - 11:25 (2010)    Post subject: 4SI devoir de controle théorique N°3 Reply with quote

dadiiiiiiiiiiiiiii

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation