Université Abou Bakr Belkaïd (Tlemcen)
Faculté des Sciences

2015 ~ 2016
Date : 13 Juin 2016
Durée : 01H 30mn

1ère LMD SM (S2)

Correction Examen de Rattrapage (Endettés)
Matière : "Informatique 2"

Exercice 1 : (04 points)
Ecriture des expressions mathématiques suivantes sous une forme qui respecte la syntaxe Pascal :

0
2

2

x 1  y2
 B:=sqrt(x+1)/(sqrt(sqr(abs(x))+1)+sqr(y));

Page Facebook "Sciences Tlemcen"

6
1

x 1

1) B 

x

2) v1 

2

a b



2

~
5

1
0

x2
2

x a

2

 v1:=sqrt(abs(x)/(sqr(a)-sqr(b)))-sqr(x)/(sqr(x)+a);

a  b2
3) v 2  2

z x

a  b2

D

M
S

 v2:=2*sqrt(abs(z))*x*abs(a+sqr(b))/sqrt(a+sqr(b));

a
4) v 3 

2

1
2
a b

e
r

2a

M
L

 v3:=(sqr(a)*sqrt(abs(1/(a+b)))-2)/sqrt(2*a);

è
1

Correction Rattrapage d’Informatique2 – Endettés (1ére LMD SM Semestre 2)

1 pt

1 pt

1 pt

1 pt

2015/2016

1/4

Exercice 2 : (05 points)
Ecriture de l’organigramme et le programme Pascal qui permettent de calculer la somme suivante :
x!
x x

S  0.500  0.333  0.500   

2

Organigramme : (1,75 pt)

Page Facebook "Sciences Tlemcen"

Début

0,25 pt

Lire (x)

0,25 pt

Fact  1

0,25 pt

S0

0,25 pt
0,25 pt

Pour i = 1 à x
0,25 pt

0,25 pt

Programme : (3,25 pt)

e
r

è
1

0,25 pt

SS+

Fact
2

i i

M
S

2

0
2

~
5

1
0

FactFact  i

6
1

Ecrire (‘S = ’, S)

D

M
L

Fin

Program ex2;
uses wincrt;
var x,i,Fact:integer;
S:real;

1 pt

Begin
write('x= '); readln(x);
Fact:=1; 0,25 pt
S:=0;
0,25 pt
For i:=1 to x do 0,5 pt
Begin
0,25 pt
Fact:=Fact*i;
S:=S+fact/(sqr(i)+i);
End;
writeln('S= ',S); 0,25 pt
end.

0,25 pt

0,25 pt

Correction Rattrapage d’Informatique2 – Endettés (1ére LMD SM Semestre 2)

2015/2016

2/4

Exercice 3: (06 points)
Ecriture du Programme Pascal associé à l’algorithme.

Page Facebook "Sciences Tlemcen"

0,25 pt

0,25 pt

0,25 pt

Program ex3;
uses wincrt;
var R,Req:real;
0,75 pt
Choix:char;
BEGIN
Write('Donnez la valeur de la résistance R:
Readln(R); 0,25 pt
write('Donnez votre choix: '); 0,25 pt
readln(choix); 0,25 pt
if choix='1' then 0,5 pt
begin
Req:=3*R; 0,25 pt
writeln('La valeur de Req est:',Req:9:2,'
end
else if choix='2' then 0,5 pt
begin
Req:=3/2*R; 0,25 pt
writeln('La valeur de Req est:',Req:9:2,'
end
else if choix='3' then 0,5 pt
begin
Req:=1/3*R; 0,25 pt
writeln('La valeur de Req est:',Req:9:2,'
end
else writeln('Choix incorrect'); 0,5 pt
END.

D

M
L

M
S

6
1

0
2

~
5

1
0

2

'); 0,25 pt

Ohms'); 0,25 pt

Ohms'); 0,25 pt

Ohms'); 0,25 pt

Exercice 4: (05 points)

e
r

Ecriture du programme Pascal qui permet de saisir les éléments d’un vecteur Z(N) (d’éléments

è
1

réels) et de calculer sa norme Z :

N

z 

 zi2
i 1

Correction Rattrapage d’Informatique2 – Endettés (1ére LMD SM Semestre 2)

2015/2016

3/4

Programme : (5 pt)
Program ex4;
Uses wincrt;
Var Z:Array[1..50]of Real;
I,N:integer;
Norme,somme:real;

1,5 pt

Page Facebook "Sciences Tlemcen"

Begin
Write('Donnez le nombre de lignes N : ');
readln(N);0,5 pt
For i :=1 to N do
Begin
Write('Z(',i,')= ') ; 0,75 pt
Readln(Z[i]);
End;
Somme:=0; 0,5 pt
For i:=1 to N do 0,25 pt
Somme:=Somme+sqr(Z[i]);
Norme:=sqrt(somme); 0,5

1
0

pt

Writeln('La Norme du vecteur Z est :',Norme);
End.

D

e
r

è
1

M
L

M
S

2

Correction Rattrapage d’Informatique2 – Endettés (1ére LMD SM Semestre 2)

0
2

~
5

0,5 pt

6
1

0,5 pt

2015/2016

4/4