Sujet EMD1 2008 - 2009

UNIVERSITÉ DE MOSTAGANEM...........................Fevrier 2009
FACULTE DES DROITS ET DES SCIENCES COMMERCIALES
2EME ANNEES SCIENCES COMMERCIALES
MODULE : INFORMATIQUE



E.M.D.1

EXERCICE 01 : ( 8 pts )
Soit le programme suivant :
PROGRAM tva ;
CONST
Tx = 0.07 ;
N = 3 ;
VAR
PU , Qte , Totht , Tva , Totttc : REAL ;
I : INTEGER ;
BEGIN
Qte := 1500 ;
IF Qte>2000 then
PU := 25.99;
IF Qte<2000 then
IF Qte>1000 then
PU := 30.99 ;<----------------------Pas de point virgule parceque ELSE vient juste apres
ELSE
PU := 40.99;
Totht := PU * qte ;
Tva := 0.00;
FOR I := 1 TO N DO
BEGIN
Tva := Tva + Totht * Tx;
Totttc := totht + tva;
WRITELN(‘Annee ‘,I);
WRITELN(‘Total ht : ‘,Totht:10:2);
WRITELN(‘Tva: ‘,Tva:15:2);
WRITELN(‘ -------------‘);
WRITELN(‘Total ttc: ’, Totttc:10:2);<--Pas de point virgule parceque c'est la derniere instruction dans une instruction compose
END;
END.

CORRIGEZ LES ERREURES ET EXECUTEZ LE PROGRAMME.
صحح ونفذ البرنامج.


EXERCICE 02 : ( 6 pts )

Exécutez le programme Pascal Suivant : نفذ البرنامج بسكال الاتي

PROGRAM EX3 ;
VAR
A, B, C, D, E, F, G, H, I, J : REAL ;
BEGIN
A := 3.14159;
WRITELN(A:10:2);
IF A> 5 THEN B := A – 2 ELSE B := A + 2;
WRITE(B:5:2);
IF A<B AND B> 3 THEN C := B + 5 ELSE C:= B - 5;
WRITELN(C:8:1);
D := A – B / C ;
WRITELN(D:6:2);
E := C MOD B;
WRITE(E:9:1);
F := A + C / B - D ;
WRITE(F:5:2);
G := (D – B) * ( A + B * ( C – A) + D);
WRITELN(G:7:2);
H := C / G;
WRITELN(H:6:3);
I := H * D;
WRITELN(I:7:4);
J := I DIV B;
WRITELN(J:3:1);
END;


EXERCICE 03 : ( 6 pts )

Exécutez le programme Pascal Suivant : نفذ البرنامج بسكال الاتي

PROGRAM ex3 ;
VAR
I , N : INTEGER ;
BEGIN
N := 10 ;
FOR I := 1 TO N DO
WRITELN( I,’ ‘,I+I,’ ‘,I*3) ;
END;





AMMOUR A.

شكرا استاذنا على كل مجهوداتك، ونتمنى ان تلقى ثمرتها.
طالبك المخاص برواس بن عيسى

نرجو من كل الزملاء شكر الأستاذ، فمن لا يشكر الناس لا يشكر الله
ودمتم أوفياء

merci mon prof por les sujet et corction

BONNE SOIR MERCI POUR LE SUJET ET LA CORRECTION

سألك يا رب باسمك الاعظم وبصفاتك العلى أن تفرش لاستاذي دربا من نور وتجعل وجهه دائما مسرور وتملأ قلبه بذكرك يا غفور وتجعل له الصراط سهلا للعبور وتجمعنا به في جنات النعيم امين[/size]

bon soir

شكرا جزيلا استادنا الكريم على كل المجهودات

ان شاء الله امتحان هده السنة يكون سهل وفي متناول الجميع

سلام عليكم.......بوزيدي مريم g3

salut prof

asalamo 3alaykom warahmato allah 3alaykom wabarakatoh.

BONNE COURAGE POUR LES EXAMENS UN PEU DE PATIENCE

BON COURAGE

Merci

شكرا استاذنا على كل مجهوداتك، ونتمنى ان تلقى ثمرتها. flower
طالبك المخاص برواس بن عيسى

نرجو من كل الزملاء شكر الأستاذ، فمن لا يشكر الناس لا يشكر الله
ودمتم أوفياء

bnsr professeur sava

oudia Mohamed amine g4

abderahman latroch G3

bonne nuit

merci mon prof