Corrige de L'Epreuve Theorique de La Matiere Informatique Pour Les Sections Scientifiques
Corrige de L'Epreuve Theorique de La Matiere Informatique Pour Les Sections Scientifiques
Corrige de L'Epreuve Theorique de La Matiere Informatique Pour Les Sections Scientifiques
THEORIQUE DE LA
Corrigé
MATIERE INFORMATIQUE
POUR LES SECTIONS
SCIENTIFIQUES
Session 2018
RÉPUBLIQUE TUNISIENNE Épreuve : INFORMATIQUE
MINISTÈRE DE L’ÉDUCATION Sections : Mathématiques, Sciences
Expérimentales et Sciences Techniques
EXAMEN DU BACCALAURÉAT
Durée : 1 H 30 Coefficient : 0.5
Corrigé
NB :
Pour cet exercice, seules les réponses V, F, Vrai, Faux ont été acceptées.
Valider chacune des propositions suivantes en mettant dans la case correspondante la lettre V si elle est
correcte ou la lettre F si elle est fausse.
F1 V F2 F F3 F F4 F F5 F
F1 F F2 V F3 F F4 F F5 F
c. Pour calculer le PGCD des deux entiers a et b, on peut faire appel à la (aux) fonction(s) :
F1 F F2 F F3 F F4 V F5 V
d. Pour calculer la somme des entiers de l’intervalle [a..b], on peut faire appel à la (aux)
fonction(s) :
F1 F F2 F F3 V F4 F F5 F
Page 1|5
Problème :
TDNT
Tab1= Tableau [1..100] de chaine de caractères
Tab2 = Tableau [1..100] d’entiers
TDOG
Objet Type/Nature Rôle
M Tab1 Contenant les messages
A Tab1 Contenant les noms des adhérents
Occ Tab2 Contenant le nombre de messages par adhérent
nm Entier Le nombre de messages
na Entier Le nombre d’adhérents du groupe
Inactifs Procédure Permet d’afficher les membres inactifs
Recherche Procédure Permet d’afficher l’adhérent qui a envoyé un message
donné
RemplirM Procédure remplir les messages et déterminer le nombre de
messages par adhérent.
RemplirA Procédure Permet de saisir les noms des membres
2) Les algorithmes
a. Algorithme de la procédure RemplirA
0) DEF PROC RemplirA (var A:Tab1 ; var na : entier)
1) Répéter
Ecrire ("donner le nombre d'adhérents du groupe :")
Lire(na)
Jusqu’à (na dans [5..50])
2) Pour i de 1 à na faire
Répéter
Ecrire("Donner le nom de l'adhérant numéro", i, " : ")
Lire(A[i])
Jusqu’a ((A[i][1] dans ["A".. "Z"]) ET (long(A[i]) ≥3) ET((i>1) ET NON(FN Existe(A[i],A,i-1))
FinPour
4) Fin RemplirA
TDOL
Objet Type/Nature Rôle
i entier compteur
Existe fonction Vérifier l’existence d’un adhérant dans A
Page 2|5
0)DEF FN Existe(ch: chaine ; t:Tab1; indice: entier):boolean
1) i0
2) Répéter
i i+1
Jusqu’à ((t[i]=ch) ou( i=indice)
3) Existe (t[i]=ch) TDOL
Objet Type/Nature Rôle
4) Fin Existe
i entier compteur
0) DEF PROC RemplirM (A : Tab1 ;var M:Tab1 ; var Occ:Tab2; na:entier; var nm:entier)
1) Répéter
Ecrire ("donner le nombre de commentaires : ")
Lire (nm)
Jusqu’à (nm dans [3..100])
2) Pour i de 1 à na faire
Occ[i] 0
Fin pour
3) Pour i de 1 à Nm faire
Ecrire ("donner le commentaire")
Lire (message)
Répéter
Ecrire ("donner le numéro de l’émetteur")
Lire (NumE)
Jusqu’à (NumE dans [1..Na])
Convch(NumE,ch)
M[i] Concat (ch ,"#",message)
Occ[NumE] Occ[NumE] +1
Fin pour
4) Fin RemplirM
TDOL
Objet Type/Nature Rôle
NumE entier Numéro de l’émetteur
i entier compteur
message Chaine de caractères Message à envoyer
c. Algorithme de la procédure Inactifs
Page 3|5
d. Algorithme de la procédure Recherche
NB :
Page 4|5
Barème détaillé du problème :
P. P : 1.5 points =
- Modularité 0.5
- Cohérence (appels + conformité des paramètres)) 1=(0.5 appels +0.5 conformité)
Affichage : 4 points =
- Détermination des adhérents inactifs (2 parcours+ test+ 1.75 =0.5*2+0.5+0.25
affichage)
- Saisie du commentaire 0.25
- Recherche des adhérents qui ont envoyé le commentaire 2=0.25+1+0.5+0.25
donné (parcours+ test + extraction de l’indice +
affichage)
Page 5|5