modules couramment utilisés au bac pratique -----3-----

ex9. Ecrire un programme en Pascal qui lit 15 nombres réels et les affiche en ordre inverse et à raison de trois nombres par ligne.
ex10. Ecrire un programme en Pascal qui remplit un tableau de n réels, cherche le maximum, le minimum et la moyenne des éléments de ce tableau et les affiche.
On suppose que n est un entier naturel compris entre 5 et 100.

correction

ex9
Program ex9;
Uses wincrt ;
Var
I : integer;
T: Array [ 1 .. 15 ] of real;
Begin
For I := 1 To 15 Do
Begin
Writeln (‘Entrer le réel’ , I);
Readln ( T [ I ]) ;
End;
I := 0;
While ( I <> 15 ) Do
Begin
Writeln (T [15 – I ] :5:2 , T[14 – I ]:5:2 ,T[ 13 - I ] :5:2 );
I := I + 3;
End;
End.

ex10
Program ex10 ;
Uses wincrt ;
Var MAX, MIN, MOY, S : real ;
T : array [1..100] of real ;
I, N : integer ;
Begin
Repeat
Writeln (‘ Entrer un entier entre 5 et 100’) ; readln(N) ;
Until ( N>=5) and (N<=100) ;
For I := 1 To N Do
Begin
Writeln (‘Entrer le réel N° ’, I) ; readln (T [ I ] ) ;
End ;
MAX := T[1];
MIN := T [1];
S := T [ I];
For I := 2 To N Do
Begin
If T [ I ] > MAX Then
MAX := T[ I ] ;

If T [ I ] < MIN Then
MIN := T[ I ] ;
S := S + T [ I ];
End;
MOY := S / N;
Writeln (‘ Le maximum est ’, MAX :5 :2) ;
Writeln (‘ Le minimum est ’, MIN :5 :2) ;
Writeln (‘ La moyenne est ’, MOY :5 :2) ;
End.