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

ex5. Ecrire un programme en Pascal qui affiche tous les entiers positifs de deux chiffres de la forme ab tel que la somme des chiffres (a + b) divise le produit a*b
ex6. Soit le polynôme P(x) = 2x2 +3x –5
Ecrire un programme en Pascal qui calcule et affiche P(x) pour des valeurs de x variant de – 4 par pas de 0.5
ex7. Un entier naturel de trois chiffres est dit cubique s’il est égal à la somme des cubes de ses trois chiffres.
Exemple 153 est cubique car 153 = 13 + 53 + 33
Ecrire un programme en Pascal qui cherche et affiche tous les entiers cubiques de trois chiffres.
ex8. Ecrire un programme en Pascal qui remplit un tableau de n réels, place les réels positifs dans un tableau TP et les réels négatifs dans un tableau TN.

correction

ex5
Program ex5;
Uses wincrt ;
Var I, A,B : integer;
Begin
For I:= 10 To 99 do
Begin
A := I DIV 10 ;
B := I MOD 10 ;

If ( A * B) MOD (A+B) = 0
then
Writeln (I);

End ;
End.

ex6
Program ex6;
Uses wincrt ;
Var X : real;
P: real;
Begin
X := - 4 ;
Repeat
P := 2 * sqr (X) +3*X –5 ;
writeln (‘P(‘, X:3:1, ‘)=’, P :5 :2) ;

X := X +0.5 ;
Until (X > 4);

End.

ex7
Program ex7;
Uses wincrt ;
Var I, U,C,D : integer;
Begin
For I:= 100 To 999 do
Begin
C := I Div 100;
D := (I Mod 100) Div 10;
U := ( I Mod 100) Mod 10;
If (I = C*C*C+ D*D*D+ U*U*U)
then
writeln (I, ‘ est cubique’);
End ;
End.

ex8

Program ex8;
Uses wincrt ;
Type
TAB = Array [ 1 .. 100 ] of real;
Var
I, J, K, N : integer;
T, TP, TN : TAB;
Begin
Writeln (‘Entrer un entier’); readln (N);
For I := 1 To N Do
Begin
Writeln (‘Entrer le réel’ , I);
Readln ( T [ I ]) ;
End;
J : = 1;
K : = 1;
For I := 1 To N Do
Begin
If T[ I ] > 0
then
Begin
TP [J] := T [ I];
J := J +1 ;
end
Else
Begin
TN [K] : = T [ I];
K : = K +1;
End ;
End;
End.