hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

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

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 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
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
dadi


Hors ligne

Inscrit le: 21 Mar 2010
Messages: 12
Point(s): 13
Moyenne de points: 0

Posté le: Sam 10 Avr - 16:40 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

PublicitéSupprimer les publicités ?

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
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Lun 12 Avr - 12:33 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

merci pour le partage   Okay

 
Revenir en haut
eddiraya


Hors ligne

Inscrit le: 01 Mar 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Mar 13 Avr - 19:02 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

mais je besoin la correction svp

 
Revenir en haut
yamna


Hors ligne

Inscrit le: 02 Mai 2010
Messages: 4
Point(s): 4
Moyenne de points: 0

Posté le: Lun 3 Mai - 14:10 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

la correction, please, merci

 
Revenir en haut
dadi


Hors ligne

Inscrit le: 21 Mar 2010
Messages: 12
Point(s): 13
Moyenne de points: 0

Posté le: Mar 4 Mai - 22:31 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

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


Hors ligne

Inscrit le: 03 Mai 2010
Messages: 3
Point(s): 3
Moyenne de points: 0

Posté le: Jeu 6 Mai - 17:49 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

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

 
Revenir en haut
dadi


Hors ligne

Inscrit le: 21 Mar 2010
Messages: 12
Point(s): 13
Moyenne de points: 0

Posté le: Jeu 6 Mai - 22:43 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

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

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 7 Mai - 11:52 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

excellent Dadi   Okay Okay Okay MERCII

 
Revenir en haut
fouka


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 12
Point(s): 12
Moyenne de points: 0

Posté le: Sam 8 Mai - 20:52 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

merciii bcp  Okay

 
Revenir en haut
dadi


Hors ligne

Inscrit le: 21 Mar 2010
Messages: 12
Point(s): 13
Moyenne de points: 0

Posté le: Sam 8 Mai - 22:48 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

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


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 11 Mai - 11:45 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

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

 
Revenir en haut
dadi


Hors ligne

Inscrit le: 21 Mar 2010
Messages: 12
Point(s): 13
Moyenne de points: 0

Posté le: Mer 12 Mai - 20:21 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

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


Hors ligne

Inscrit le: 28 Avr 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Dim 16 Mai - 15:51 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

Merci pour le partage Okay

 
Revenir en haut
arine_samara


Hors ligne

Inscrit le: 01 Mai 2010
Messages: 13
Point(s): 13
Moyenne de points: 0

Posté le: Dim 23 Mai - 11:25 (2010)    Sujet du message: 4SI devoir de controle théorique N°3 Répondre en citant

dadiiiiiiiiiiiiiii

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 06:41 (2016)    Sujet du message: 4SI devoir de controle théorique N°3

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation