EMD1 2009-2010 AVEC SOLUTIONS

EXERCICE 01: (06 pts)

Soit le programme Pascal suivant

PROGRAMME tva
CONST Tx:0.07
VAR Pu; Qte ; Ht ; Tva ; Ttc = REAL
BEGIN
Pu = 125.45
Qt = 2500.00
Ht = Pu * Qt
WRITELN( 'H.T. =', Ht : 10 : 2 )
Tva = Ht * 7 / 100
Ttc = Ht + Tva
WRITELN( 'Tva =', Tva : 9 : 2 )
WRITELN( 'Ttc =', Ttc : 15 : 2 );
END.

Corrigez les éventuelles erreurs et exécutez le programme.

Solution EXERCICE 01

CORRECTIONS DES 22 ERREURS -----------(0.14 * 22 ) = 3.08 pts

PROGRAM Tva ;
CONST
Tx = 0.07 ;
VAR
Pu , Qte , Ht , Ttc : REAL ;
BEGIN
Pu := 125.45;
Qt := 2500.00;
Ht := Pu * Qt;
WRITELN( 'H.T. =', Ht : 10 : 2 );
Tva := Ht * 7 / 100;
Ttc := Ht + Tva;
WRITELN( 'Tva =', Tva : 9 : 2 );
WRITELN( 'Ttc =', Ttc : 15 : 2 );
END.

EXECUTION DU PROGRAMME

MEMOIRE : (2.17 pts)

......TX.........PU...........QTE.............HT..............TVA..............TTC
.....0.07.....125.45.....2500.00.....313625.00.....21953.75.....335578.75

ECRAN : (0.75 pt )

H.T. = .313625.00
TVA = .21953.75
TTC = ......335578.75

EXERCICE 02 : (06 pts)

PROGRAM X2;
VAR
A , B , C : INTEGER ;
BEGIN
A := 100 ;
B := 200 ;
WRITELN( A : 15 ) ;
WRITELN( B : 20 ) ;
C := ( A + B ) - A * ( B - A ) + B MOD A DIV 2 + ( B / A + 2 );
WRITELN ( C : 10 ) ;
END.

Exécutez le programme.

SOLUTION EXERCICE 02 :

EXECUTION DU PROGRAMME

MEMOIRE /( 04 pts )

C := ( A + B ) - A * ( B - A ) + B MOD A DIV 2 + ( B / A + 2 );
C := ( 100 + 200 ) - 100 * ( 200 - 100 ) + 200 MOD 100 DIV 2 + ( 200 / 100 + 2 );
C := ( 300 ) - 100 * (100 ) + 0 + ( 2 + 2 );
C := ( 300 ) - 10000 + 0 + ( 4 );
C := - 9696

...........A.............B.................C..................
.........100..........200.............-9696..............

ECRAN / ( 02 pts )

..........100
.................200
.....-9696

EXERCICE 03 : (08 pts)

PROGRAM X3 ;
VAR
A , B , Q , D : INTEGER ;
BEGIN
A := 221 ;
B := 143 ;
REPEAT
D := A MOD B;
A := B ;
B := D ;
WRITELN (A , B , D )
UNTIL D = 0 ;
Q := B
WRITELN( Q ) ;
END.

Exécutez le Programme.

SOLUTION EXERCICE 03

EXECUTION DU PROGRAMME

MEMOIRE/ ( 05 pts )

..........A..........B..........Q..........D..........
........221.......143........0..........78..........
........143........78.....................65.........
........78..........65.....................13.........
........65..........13.....................0..........
........13...........0..................................

ECRAN/ ( 03 pts )

143 78 78
78 65 65
65 13 13
13 0 0
0