Correction Examen Final 2013 2014 .pdf


Nom original: Correction_Examen_Final_2013-2014.pdf
Titre: Microsoft Word - Correction_Examen_Final_2013-2014.doc
Auteur: Administrateur

Ce document au format PDF 1.6 a été généré par Microsoft Word - Correction_Examen_Final_2013-2014.doc / ScanSoft PDF Create! 6, et a été envoyé sur fichier-pdf.fr le 27/05/2014 à 19:28, depuis l'adresse IP 197.203.x.x. La présente page de téléchargement du fichier a été vue 1033 fois.
Taille du document: 154 Ko (3 pages).
Confidentialité: fichier public


Aperçu du document


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

1

2013 ~ 2014

Date : 27 Mai 2014
Durée : 01H 30mn

LMD SM (S2)

Correction Examen Final
Matière : Informatique 2

Exercice 1 : (7,5 points)
Le programme Pascal qui permet de calculer la valeur de l’opération suivante :
 M y i  y 1
si y  0

S   i  0 y 1

11 2  6   y ! si y  0
Sachant que y et M sont donnés (y 

program es;
uses wincrt;
var M,y,i,fact,puis:integer;
S:real;

é
r
o

Begin
write('M= ');readln(M);
write('y= ');readln(y);

0,25 pt

0,25 pt

2
S

0,25 pt

e
r


LM

D

SM

(

0,25 pt
0,25 pt

ab

él

r
a
p

S

t
e
uj

writeln('S=
End.

',S);

M

1,5 pt

0,25 pt

0,25 pt

if y>0 then 0,25 pt
Begin
If y<>1 then 0,25 pt
Begin
S:=0; 0,25 pt
puis:=1; 0,25 pt
for i:=0 to M do 0,25 pt
Begin
if i>0 then puis:=puis*y 0,25
0,25 pt
else puis:=1;
S:=S+(puis+y-1)/(y-1); 0,25 pt
end;
end;
end
Else 0,25 pt
Begin
S:=0; 0,25 pt
Fact:=1; 0,25 pt
For i:=0 to abs(y) do 0,5 pt
Begin
If i=0 then fact:=1 0,25 pt
Else fact:=fact*i; 0,25 pt
S:=S+fact; 0,25 pt
end;
end;

)

r

et Mℕ).

n
e
B

m
h
da

e
n
a

pt

0,25 pt

Correction Examen Final – "Informatique 2" (1ére LMD SM Semestre 2)

2013/2014

1/3

Exercice 2: (4,5 points)
Programme Pascal suivant qui permet, à partir de la saisie d’un vecteur V(A) (d’éléments réels),
d’afficher le maximum et la position de ce maximum dans ce vecteur.

Program exercice2;
Uses wincrt;
type vecteur = array[0..50] of real;

0,5 pt

Var i,A,position : integer; 0,25 pt
0,25 pt

Max : real;

V : vecteur; 0,25 pt
0,5 pt

0,5 pt

procedure lecture(var B:vecteur ; M:integer);
var i : integer; 0,25 pt
begin

é
r
o

for i:=1 to M do
readln(B[i]);
end;

Begin

t
e
uj

é

r
a
p

M

b
a
l

Write('Donnez le nombre de lignes: '); readln(A);
lecture(V,A);
Max:=V[0];

0,5 pt

2
S

For i:=1 to A do

(

If V[i]>Max Then
Begin

)

0,25 pt

S

r

n
e
B

m
h
da

e
n
a

0,25 pt

0,5 pt

M
S
Position:=i;
End;
D
M
Maximum est V(',position,')=',Max:9:3);
LWriteln('Le
Max:=V[i];

0,25 pt

0,25 pt

eEnd.
r


Correction Examen Final – "Informatique 2" (1ére LMD SM Semestre 2)

2013/2014

2/3

Exercice 3 : (03 points)
Les valeurs des expressions arithmétiques :
1) A:=(round(5.25)+1)/int((17)mod(5))-2+sqrt(121)*abs(-2)/10+1;

A

5 1
2
 2  11  1 = 4.2
2
10

1 pt

2) B:=int(5.25)+sqr(2)/sqrt(4)-(15)div(3)+frac(114.5)/0.5;

B5 

2

2

4

5

0 .5
=3
0 .5

1 pt

m
h
da

e
n
a

3) C:=trunc(4.25)/2-1+sqrt(81)/3+2/round(1.90)+(8)div(2)-1/int(2.25);

4
81 2
1
C  1
 4
= 8.5
2
3
2
2

1 pt

Exercice 4: (05 points)
Le résultat du programme ci-dessous pour l’exécution suivante :
Program exercice4;
uses wincrt;
var mot1,mot2,texte,x:string[20];
A,B:integer;

t
e
uj

write('Donnez mot1: '); readln(mot1);
write('Donnez mot2: '); readln(mot2);
writeln(texte);

)

x:=Copy(texte,10,3);

2
S

writeln(x);
Delete(texte,14,2);
writeln(texte);

SM

(

S

M

Partie Exécution

b
a
l

Donnez mot1: PremièreLMD

BEGIN

texte:=Concat(mot1,'',mot2);

é
r
o

r
a
p

r

n
e
B

é

Donnez mot2: SM
PremièreLMDSM
LMD

1 pt

PremièreLMD

1 pt

PremièreLMDS2
1510

1 pt

1 pt

1 pt

Insert(‘S2’,texte,14);
writeln(texte);

D

A:=Length(texte);

LM

B:=Pos(‘LMD’,texte);
Writeln(A,'',B);

e
r


END.

Correction Examen Final – "Informatique 2" (1ére LMD SM Semestre 2)

2013/2014

3/3


Aperçu du document Correction_Examen_Final_2013-2014.pdf - page 1/3

Aperçu du document Correction_Examen_Final_2013-2014.pdf - page 2/3

Aperçu du document Correction_Examen_Final_2013-2014.pdf - page 3/3




Télécharger le fichier (PDF)




Sur le même sujet..





Ce fichier a été mis en ligne par un utilisateur du site. Identifiant unique du document: 00244887.
⚠️  Signaler un contenu illicite
Pour plus d'informations sur notre politique de lutte contre la diffusion illicite de contenus protégés par droit d'auteur, consultez notre page dédiée.