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

Aller en bas

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

Message  Admin le Dim 17 Avr - 16:51

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.


Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum