TP3correction .pdf



Nom original: TP3correction.pdf
Auteur: user

Ce document au format PDF 1.5 a été généré par Microsoft® Office Word 2007, et a été envoyé sur fichier-pdf.fr le 29/01/2017 à 21:10, depuis l'adresse IP 105.111.x.x. La présente page de téléchargement du fichier a été vue 559 fois.
Taille du document: 241 Ko (7 pages).
Confidentialité: fichier public




Télécharger le fichier (PDF)










Aperçu du document


Université A. Mira.
Faculté De Sciences Exactes.

Correction Du TP3

Enseignante : Choubane.F

Département M /MI
2015/2016

Exercice2 :(La boucle While ..Do)
program exo2;
uses wincrt;
Var x, y, i:integer;
Begin
writeln(' Lisez Moi La valeur de x et y');
read(x,y);
writeln(' Couple N=1 est ( ' , x , ' , ', y, ')');
i:=2;
while(x<>0) or (y<>0) do
begin
read(x,y);
writeln(' Couple N= ', i, ' est ( ' , x , ' , ', y, ')');
i:=i+1;
end;
end.

1

Exercice2 :( La boucle Repeat..until)
program exo2;
uses wincrt;
var x,y,i:integer;
begin
writeln(' Lisez Moi La valeur de x et y');
read(x,y);
writeln(' Couple N=1 est ( ' , x , ' , ', y, ')');
repeat
read(x,y);
writeln(' Couple N= ', i, ' est ( ' , x , ' , ', y, ')');
until ( ( x=0) and (y=0));
end.
Exercice3 : partie A
program exo3;
uses wincrt;
var s,nb,val,n:integer;
begin
writeln(' Lisez moi le nombre de valeur ');
read(n);
while(n<=0)do
begin
writeln(' relisez moi le nombre de valeur ');
read(n);

2

end;
s:=0;
nb:=0;
for i:=1 to n do
begin
write(' valeur=');

3

read(val);
if (val>=0) then
begin
s:=s+val;
nb:=nb+1;
end;
end;
if( nb>=1) then
writeln(' La somme des valeurs positives sont ', s, ' et leur nombre
est ', nb)
else
writeln(' Pas de valeurs positives');
end.
Exercice3 : partie B
program exo3;
uses wincrt;
var s,nb,val,n:integer;
begin
writeln(' Lisez moi le nombre de valeur ');

read(n);
while(n<=0)do
begin
writeln(' relisez moi le nombre de valeur ');
read(n);
end;

4

s:=0;
nb:=0;
for i:=n downto 1 do
begin
write(' valeur=');
read(val);
if (val>=0) then
begin
s:=s+val;
nb:=nb+1;
end;
end;
if( nb>=1) then
writeln(' La somme des valeur positives sont ', s, ' et leur nombre
est ', nb)
else
writeln(' Pas de valeurs positives');
end.

Exercice4 :(Facultatif)
program exo4;
uses wincrt;
var J1Entier, J2Entier: integer;
begin
writeln (' Lisez moi l'' entier donnée par le joueur 1');
read(J1Entier);
read(J2Entier);
c:=1;
while( J1Entier<>J2Entier) do
begin
writeln(' Vous Avez Echouez à deviner l''entier du premier
joueur1');
read(J2Entier);
c:=c+1;
end;
writeln(' Le joueur 2 a fait ', c , ' tentatives à fin qu''il puisse
deviner l''entier du premier joueur qui est ', J1Entier);
end.
Exercice5 :(Facultatif)
program EXO5;
uses wincrt;
var n, coef, i,s,sc:integer;
note,moy:real;
begin

5

writeln(' Donnez moi la taille des notes ');
read(n);
while(n<=0) do
begain
writeln(' Relisez moi la taille des notes');
read(n);
end;
S:=0;
SC:=0;
for i:=1 to n do
begin
writeln('lisez moi la note', i);
read(note);
while(note<0) or (note>20) do
begin
writeln(' Relisez Moi la note elle doit être entre 0 et 20');
read(note);
end;
writeln('Lisez moi le coefficient de la note', i);
read(coef);
while(coef<=0) do
begin
writeln('Relisez moi le coefficient de la note', i, ' il doit être
strictement positive');
read(coef);

6

end;
S:=S+note*coef;
SC:=SC+coef;
end;
moy:=s/Sc;
if (moy<10) then
writeln(' l'' étudiant est ajourné et a pour moyenne ', moy)
else
writeln('l''étudiant est admis et a pour moyenne', moy);
end.

7



Documents similaires


groupe a6
tp3correction
tp7
tp7
groupe b3
testealgo1


Sur le même sujet..