SUJET EMD2 ET CORRECTIONS 2007-2008

UNIVERSITÉ DE MOSTAGAN/EM Mai 2008
FACULTE DES DROITS ET DES SCIENCES COMMERCIALES
2EME ANNEES SCIENCES COMMERCIALES
MODULE : INFORMATIQUE

E.M.D.2

EXERCICE 01 : ( 7 pts )

Soit le programme Pascal suivantليكن البرنامج باسكال الاتي
PROGRAM ex1 ;
VAR
X, Q, R, I : INTEGER; ------------------------X------------Q----------R-------------I
BEGIN------------------------------------------18-----------0----------18------------2
X : = 18;----------------------------------------9------------1----------16------------3
IF X <> 0 THEN--------------------------------3------------2----------14
BEGIN-------------------------------------------1------------3----------12
IF x < 0 then------------------------------------------------4----------10
BEGIN---------------------------------------------------------5-----------8
WRITE(X,’= -1’);---------------------------------------------6-----------6
X := -X---------------------------------------------------------7-----------4
END------------------------------------------------------------8------------2
ELSE-----------------------------------------------------------9------------0
WRITE(X,’=1’);-----------------------------------------------0-------------9
I := 2;---------------------------------------------------------1--------------7
WHILE I <= X DO--------------------------------------------2--------------5
BEGIN----------------------------------------------------------3--------------3
Q := 0;---------------------------------------------------------4--------------1
R := X;---------------------------------------------------------0--------------9
WHILE R >= I DO---------------------------------------------1--------------6
BEGIN---------------------------------------------------------2--------------3
Q := Q + 1;---------------------------------------------------3--------------0
R := R – I------------------------------------------------------0--------------3
END;----------------------------------------------------------1---------------0
IF R = 0 THEN
BEGIN
WRITE(‘*’,I);
X := Q;
END Ecran -> 18 = 1 * 2 * 3 * 3
ELSE
I := I + 1
END
END;
END.
Exécutez le programme et remplissez les cases vides. نفد البرنامج واملا الفرغات

EXERCICE 02 : ( 7 pts )

PROGRAM dtenais ;
VAR
NTJ , JJ , MM , AA , NTJA , JJA , MMA , AAA , Jour , Mois , Annee , DIF : INTEGER ;
BEGIN
Jour : = 0 ; Mois : = 0 ; Annee : = 0 ;
JJ : = 14 ; MM : = 03 ; AA := 1961 ; AAA : = 2008;
JJA : = JJ ; MMA : = MM ;
CASE MM OF
1 , 3 , 5 , 7 , 8 , 10 , 12 : NTJ : = MM * 31 ;
2 : NTJ : = MM * 28 ;
4 , 6 , 9 , 11 : NTJ : = MM * 30 ;
END ;
CASE MMA OF
1 , 3 , 5 , 7 , 8 , 10 , 12 : NTJA : = MMA * 31 ;
2 : NTJA : = MMA * 28 ;
4 , 6 , 9 , 11 : NTJA : = MMA * 30 ;
END ;
NTJ : = NTJ + JJ + AA * 256 ;
NTJA : = NTJA + JJA + AAA * 256 ;
DIF : = NTJA – NTJ ;
Annee : = DIF DIV 256 ;
DIF : = DIF – Annee * 256 ;
IF DIF > 30 THEN
BEGIN
Mois : = DIF DIV 30 ;
Jour : = DIF – Mois * 30
END
ELSE
Jour : = DIF ;
WRITE( JJ , MM , AA ) ;

WRITE( Jour , Mois , Annee ) ;
END.

Exécutez le programme et remplissez les cases vides . واملا الفرغات. نفد البرنامج

NTJ-----JJ------MM------AA------NTJA----JJA-----MMA-----AAA-----JOUR----MOIS----ANNEE---DIF-----

93------14------03------1961-----93------14-------03------2008------0--------0-----------0-----12032---
502123---------------------------514155------------------------------------------------------47-----0

Ecran------------> 14---------03----------1961--------0---------0----------47---------------

EXERCICE 03 : ( 6 pts )

PROGRAM X1 ;
VAR
PE : INTEGER ;
PROCEDURE PROC( VAR PF : INTEGER ) ;
BEGIN
WRITE ( PF ) ;
PF : = PF * 2 ;
WRITE ( PF ) ;
END;
BEGIN
PE := 5;
WRITE ( PE ) ;
PROC ( PE ) ;
WRITE ( PE ) ;
END.
Exécutez le programme. نفد البرنامج

----------------------------PF
----------------------------PE
-----------------------------5---------------------------------ECRAN --->------5-----5-------10------10

AMMOUR A.