Ecole Nationale-dingénieurs de Tunis

Année universitaire 2003/2004

Examen : Algorithmique et structures des données

Classes : 1 GM 1,2 —.1GC 1,2,3,4 - 1 GI 1,2,3

Enseignants: Mlle Omessaâd Hamdi, Mlle Ons Ben Rhouma, Mme Hanène Gabzilli,

Mme Feten Selem. et Mr Anis Ajengui

Durée : 1h30

Nombre de pages : 2

Documents non autorisés

Exercice I

Le programme suivant devrait afficher 4004 or il est truqué d'erreurs (il peut y en avoir plusieurs dans chaque ligne).Trouvez-les et proposez chaque fois une correction.

PROGRAM ('docteur');

TYPE t : (a, b, c, d);

BEGIN

for v = (d .. a) do

liteul (y);

END;

FUNCTION liteul (kevin)

BEGIN

case kevin of

begin

b to c : print ("0"); a and d : print ("4");

end;

END.

Exercice 2

Effectuer la trace (le tableau de sortie) de cet algorithme

CONST         N=9 ;

VAR            T : ARRAY [1..N] Of Integer ;

I : byte;

BEGIN

For I :=1 to N Do

         T[i] := (I*3) div2

For I :=1 to N Do

 Begin

T[I]:=T[N-I+1]+T[I];

T[N-I+1]:= T[I] - T[N-I+1];

T[I] := T[I] - T[N-I+1];

End

End