UNIVERSITÉ DE MOSTAGAN/EM 19/06/2005
FACULTE DES DROITS ET DES SCIENCES COMMERCIALES
2EME ANNEES SCIENCES COMMERCIALES
MODULE : INFORMATIQUE
E.L.D
EXERCICE 01 : (14 PTS )
Exécute le programme pascal suivant :
PROGRAM Exemple_proc ;
CONST N_MAX = 10 ;
TYPE
Ligne = array [1..n_max] OF INTEGER ;
VAR
A , B : ligne ;
I : INTEGER ;
SA , SB : INTEGER ;
PROCEDURE somme ( T : ligne , VAR som : INTEGER ) ;
VAR
II : INTEGER ;
BEGIN
SOM := 0 ;
FOR II := 1 TO n_max DO
Som := som + T[ II ] ;
END;
BEGIN
FOR I := 1 TO n_max DO
BEGIN
A[ I ] := I;
B[ I ] := SQR(I) ;
END;
Somme( A , SA ) ;
Somme( B , SB ) ;
WRITE( ‘ Somme des ‘ , n_max , ‘ premiers entiers : ‘ , SA ) ;
WRITE( ‘ Somme des ‘ , n_max , ‘ carres des premiers entiers : ‘ , SB )
END.
REMARQUE : La Fonction SQR donne le carre du paramètre. Exemple : SQR(3) = 9
EXERCICE 02 (03 Pts) : Indiquer ce que contiennent les cases mémoires associées aux variables alpha, beta, gamma, I et N au cours de l’exécution du programme suivant :
PROGRAM escalope ;
VAR alpha, beta, gamma : INTEGER ;
I , N : BOOLEAN ;
BEGIN
Alpha := 10 ;
Beta := Alpha + 10 ;
Gamma := 2 * Beta – 30 ;
Beta := Beta + 10 ;
Alpha := Alpha DIV 2 ;
I := TRUE ;
N := FALSE ;
N := (TRUE) OR ( FALSE) ;
WRITE( ‘alpha ‘ , alpha , ‘beta ‘ , beta , ‘gamma ‘ , gamma , ‘ I ‘ , I , ‘ N ‘ , N );
END.
EXERCICE 03 (03 Pts) : Quelles erreurs ont été commises dans chacune des instructions suivantes :
A) IF A< B THEN b) IF A < B THEN C) IF N := 0 THEN P:= 1
X := X + 1 ; X := X + 1 ;
ELSE Y := B
X := X – 1 END
ELSE
X := X – 1 ;
Y := A
END
AMMOUR A.