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

ex1. Soit la somme s = 1 + 1/22 + 1/ 32 + 1/42 + …. + 1/n2
Ecrire un programme en Pascal qui saisit un entier naturel n tel que n >= 100, calcule et affiche la somme S
ex2. Ecrire en Pasci 0al, un programme de résolution d’une équation du premier degré à une inconnue x, de la forme ax +b =0
On suppose que a, b et x sont des réels.
N.B : le programme doit traiter tous les cas possibles.
ex3. 24 est un entier divisible par son chiffre des dizaines (2)
Ecrire un programme en Pascal qui permet de trouver et d’afficher tous les entiers à deux chiffres de 10 jusqu’à 99 vérifiant cette propriété.
ex4. Ecrire en Pascal, un programme de résolution d’une inéquation du premier degré à une inconnue de la forme ax + b <0.
On suppose que a, b et x sont des réels.

correction

ex1.
Program ex1 ;
Uses wincrt ;
Var N,I : integer;
S : real;
Begin
Repeat
Writeln (‘Entrer un entier’);
Readln (N);
Until (N > 100);
S := 0 ;
For i := 1 to N do
Begin
S : = S + 1/ sqr (i) ;
End ;
Writeln (‘La somme est’, S : 5 :2) ;
End.

ex2.
Program ex2;
Uses wincrt ;
Var A,B : real;
Begin
Writeln (‘Entrer A’); Readln (A);
Writeln (‘Entrer B’); Readln (B);
If A = 0 then
If B =0 then
writeln (‘La solution est R’)
else
writeln (‘Ensemble vide’)
else
writeln (‘La solution est ’, (-B /A) :5 :2) ;

End.

ex3.
Program ex3;
Uses wincrt ;
Var I, D : integer;
Begin
For I:= 10 To 99 do
Begin
D := I DIV 10 ;

If (I MOD D = 0) then
Writeln (I);

End ;
End.

ex4.
Program ex4 ;
Uses wincrt ;
Var A, B : real;
Begin
Writeln (‘Entrer 2 réel’) ; Readln (A, B) ;
If (A = 0 ) then
If (B = 0) then
Writeln (‘la solution est R’)
Else
Writeln (‘Ensemble vide’)
Else
If (A >0) then
Writeln (‘Tout réel inférieur ou égale à’, - B/A : 5 : 2)
Else
Writeln (‘Tout réel Supérieur ou égale à’, - B/A :5 :2) ;
End.