SUJET EMD1 ET CORRECTION 2007-2008

EXERCICE 01 : ( 6 pts )
ECRIRE UN ALGORITHME QUI PERMET DE CALCULER LE TOTAL HORS TAXE , LA TVA ET LE TOTAL TTC ET D’AFFICHER LE PRIX UNITAIRE, LA QUANTITE, LE HORS TAXE, LA TVA ET LE TOTAL TTC SACHANT QUE :
1 – TOTAL_HT = PRIX_UNITAIRE * QUANTITE
2 – TVA = TOTAL_HT * 7 / 100
3 – TOTAL_TTC = TOTAL_HT + TVA

EXERCICE 02 : ( 6 pts )
SOIT LE PROGRAMME PASCAL SUIVANT :
PROGRAMME tva
CONST
TX : 0.07
VAR
Prix_unitaire ; quantite ; total_ht ; tva ; total_ttc = REAL
BEGIN
WRITELN(‘Prix de l’article ? : ‘)
READLN(prix_unitaire) ;
WRITELN(‘Quantité désirer ? : ‘)
READLN(quantite)
Total_ht = prix_unitaire * quantite
Tva = total_ht * TX
Total_ttc = total_ht + tva
WRITELN(‘Total ht : ‘,total_ht)
WRITELN(‘Tva : ‘,tva)
WRITELN(‘ -------------‘)
WRITELN(‘Total ttc: ’, total_ttc)
END.
CORRIGEZ LES EVENTUELLES ERREURES.

EXERCICE 03 : ( 6 pts )
Soit le Programme Pascal Suivant : ليكن البرنامج بسكال الاتي
PROGRAM EX3 ;
VAR
A, B, C, D, E, F, G, H, I, J : REAL ;
BEGIN
A := 3.00;
WRITELN(A:10:2);
IF A> 5 THEN B := A – 2 ELSE B := A + 2;
WRITE(B:5:2);
IF A 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;

CORRECTION

EXERCICE 01 : ( 6 pts )

DEBUT
PRIX_UNITAIRE, QUANTITE, TOTAL_HT, TVA, TOTAL_TTC : REEL
LIRE(‘PRIX DE L’’ARTICLE’,PRIX_UNITAIRE)
LIRE(‘LA QUANTITE DESIREE ‘,QUANTITE)
TOTAL_HT ß PRIX_UNITAIRE * QUANTITE
TVA ß TOTAL_HT * 7/100
TOTAL_TTC ß TOTAL_HT + TVA
ECRIRE(‘TOTAL HT :’,TOTAL_HT)
ECRIRE(‘TVA :’,TVA)
ECRIRE(‘TOTAL TTC :’, TOTAL_TTC)
FIN

EXERCICE 02 : ( 6 pts )
SOIT LE PROGRAMME PASCAL SUIVANT :
PROGRAM tva ;
CONST
TX = 0.07 ;
VAR
Prix_unitaire, quantite, total_ht, tva, total_ttc : REAL;
BEGIN
WRITELN(‘Prix de l’’article ? : ‘) ;
READLN(prix_unitaire) ;
WRITELN(‘Quantité désirer ? : ‘) ;
READLN(quantite) ;
Total_ht := prix_unitaire * quantite ;
Tva : = total_ht * TX ;
Total_ttc := total_ht + tva ;
WRITELN(‘Total ht : ‘,total_ht);
WRITELN(‘Tva : ‘,tva);
WRITELN(‘ -------------‘);
WRITELN(‘Total ttc: ’, total_ttc);
END.

EXERCICE 03 : ( 8 pts )
A
B C D E F G H I J
3 5 10 2.5 0 2.5 -101.25 -0.09876 -0.2469 0
******3.00
*5.00****10.0
**2.50
******0.0*2.50-101.25
-0.099
-0.2469
0.0