serie revision dc 2

Exercice n°1 :
On donne le programme suivant écrit en pascal :
Program xxx ;
Uses Wincrt ;
Var
x : …………………………………. ;
c : …………………………………. ;
Procedure Passe (y :…………………….. ; VAR ch : ………………………………) ;
Var
f : integer ;
Begin
Writeln ('y dans Passe = ', y) ;
Writeln ('ch dans Passe = ', ch) ;
f :=2 ; y := f + 3 ;
ch := '?' ;
Writeln ('y dans Passe = ', y) ;
Writeln ('ch dans Passe = ', ch) ;
End ;
Begin
x := 0 ;
c := 'A' ;
Passe(x, c) ;
Writeln ('y retour de Passe = ', x) ;
Writeln ('ch retour de Passe = ', c) ;
End.
Questions :
1) Compléter chaque pointillée dans ce programme par le type qui convient ?
2) Quels sont les résultats affichés à l’écran après exécution de ce programme ?
…………………………………………………………………………………………...…………………………………………………………………………………………………….
…………………………………………………………………………………………...…………………………………………………………………………………………………….
…………………………………………………………………………………………...…………………………………………………………………………………………………….
…………………………………………………………………………………………...…………………………………………………………………………………………………….
…………………………………………………………………………………………..........
3) Quelle est la différence entre une variable globale et une variable locale ? Pour chaque type de variable (globale et locale) donner un exemple à partir du programme ci-dessus ?
…………………………………………………………………………………………...………………………………………………………………………………………………………
…………………………………………………………………………………………...……………………………………………………………………………………………………..
4) Quelle est la différence entre un paramètre formel et un paramètre effectif ? Pour chaque type de paramètre (effectif et forme) donner un exemple à partir du programme ci-dessous ?
…………………………………………………………………………………………...……………………………………………………………………………………………………..
…………………………………………………………………………………………...…………………………………………………………………………………………………….
5) Présenter le mode de passage de paramètre employé dans ce programme. Justifier votre réponse.
…………………………………………………………………………………………...……………………………………………………………………………………………………..
…………………………………………………………………………………………...…………………………………………………………………………………………………….
6) Est-il possible de remplacer l’action d’appel Passe(x , c) par Passe (c , x) ? justifier votre réponse.
…………………………………………………………………………………………...……………………………………………………………………………………………………..
Exercice n° 2 :
Soit le programme Pascal suivant :
Program Quoi ;
Uses wincrt ;
Var
M : Array [1..10,1..10] of integer ;
x, i, j, N : integer ;
{ * Procédure Affiche pour afficher le contenu de la matrice M * }
Begin
Repeat
Write('N=') ; Readln (N) ;
Until N in [3..10] ;
x :=1 ;
For i :=1 To N div 2 Do
Begin
For j :=x To N–(x-1) Do
Begin
M [ i , j ] := i ;
M [ j , i ] := i ;
M [ N – ( x -1) , j ] := i ;
M [ j , N – ( x -1) ] := i ;
End ;
x :=x+1 ;
End ;
IF N mod 2 <> 0 Then
M [ N div 2+1, N div 2 +1] := N div 2+1 ;

Affiche(M,N) ;
End ;

Questions :
1) Exécuter ce programme pour N=3 et N=6.
2) En déduire, quel résultat produira ce programme ?
3) Ecrire le programme PASCAL de la procédure « Affiche ».
Exercice n° 3 :
Soit un tableau T de N éléments entiers positifs non nuls données (N étant un entier compris entre 10 et 100). On veut signaler les successions de nombres identiques dans T en affichant l’entier répété et la longueur de chaque succession.
Exemple :
Pour un tableau T de 18 éléments :


T 22 13 13 5 43 22 22 7 7 7 13 13 11 22 4 4 4 4
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

On obtiendra un affichage de la forme suivante :
Les successions de nombres identiques sont : 13 22 7 13 4 de longueurs respectives : 2 2 3 2 4
Questions :
1) Analyser ce problème en le décomposant en modules.
2) Analyser le programme principal ainsi que chacun des modules envisagés.
3) En déduire l’algorithme de résolution relatif à chacun de ces modules ainsi que celui du programme principal.