TP5Correction .pdf



Nom original: TP5Correction.pdfAuteur: 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 18/02/2017 à 22:57, depuis l'adresse IP 105.103.x.x. La présente page de téléchargement du fichier a été vue 714 fois.
Taille du document: 170 Ko (13 pages).
Confidentialité: fichier public


Aperçu du document


Université A. Mira.
Département M/MI.
Faculté Science Exacte.
Enseignante Et Auteure : Choubane Faiza.

Exercice n°=1 :
Partie 1 :
program exo1;
uses wincrt;
var i,n,x,min:integer;
T:array[1..50]of integer;
begin
writeln(' Donnez moi la taille du tableau T');
read(n);
while ( (n<=0) or (n>50) ) do
begin
writeln(' Redonnez moi la taille du tableau T');
read(n);
end;
writeln(' La lecture du tableau T');
for i:=1 to n do
begin
write('T[',i,']=');

1

read(T[i]);
end;
writeln(' L''affichage du tableau T');
for i:=1 to n do
writeln('T[',i,']=', T[i]);
writeln(' La recherche du minimum dans le tableau T');
min:=T[1];
for i:=1 to n do
if (T[i]<=min) then
min:=T[i];
writeln(' Le minimum du tableau T est:',min);
writeln(' Lisez moi la valeur de x');
read(x);
writeln('le nouveau tableau après sa multiplication par ', x,' est');
for i:=1 to n do
writeln('T[',i,']=',T[i]*x);
end.

Partie 2 :
program exo1;
uses wincrt;
type tab=array[1..50]of integer;
var i,n,x1:integer;T:tab;

2

procedure lecture(var A:tab; m:integer);
begin
writeln(' La lecture du tableau T');
for i:=1 to m do
begin
write('T[',i,']=');
read(A[i]);
end;
end;
procedure Affichage(var A:tab; m:integer);
begin
writeln(' L''affichage du tableau T');
for i:=1 to n do
writeln('T[',i,']=', A[i]);
end;
function min(A:tab;n:integer):integer;
var min1:integer;
begin
min1:=A[1];
for i:=1 to n do
if (A[i]<=min1) then
min1:=A[i];
min:=min1;

3

end;
procedure Affichage_nouveau(var A:tab;x, m:integer);
begin
writeln('le nouveau tableau après sa multiplication par ', x,' est');
for i:=1 to n do
writeln('T[',i,']=',A[i]*x);
end;
begin
writeln(' Donnez moi la taille du tableau T');
read(n);
while ( (n<=0) or (n>50) ) do
begin
writeln(' Redonnez moi la taille du tableau T');
read(n);
end;
lecture(T,n);
Affichage(T,n);
writeln(' Le minimum du tableau T est:',min(T,n));
writeln(' Lisez moi la valeur de x');
read(x1);
Affichage_nouveau(T,x1,n);
end.

4

Exercice n°=2 :
program exo2;
uses wincrt;
var i,j,n:integer;
A:array[1..10,1..10]of integer;
begin
writeln(' Lisez moi la taille de la matrice A');
read(n);
while (n<=0) or (n>10) do
begin
writeln('Relisez moi la taille de n');
read(n);
end;
writeln('La construction du triangle de Pascal');
for i:=1 to n do
for j:=1 to i do
if (i=j) or (j=1) then
A[i,j]:=1
else
A[i,j]:=A[i-1,j]+A[i-1,j-1];
writeln('Le triangle de Pascal est ');
for i:=1 to n do
begin

5

for j:=1 to i do
begin
write(A[i,j]);
end;
writeln( ' ');
end;
end.
Exercise n°=3 :
partie 1:
program Exo3;
uses wincrt;
var A,B,C:array[1..50]of integer;
i,j,n,m,x1,x2,x3:integer;
begin
writeln('Lisez moi la taille du tableau A');
read(n);
while((n<=0) or (n>50))do
begin
writeln('Relisez moi la taille du tableau A');
read(n);
end;
writeln('Lisez moi la taille du tableau B');
read(m);
while((m<=0) or (m>50))do

6

begin
writeln('Relisez moi la taille du tableau B');
read(m);
end;
writeln('La lecture du tableau A');
for i:=1 to n do
begin
write('A[',i,']=');
read(A[i]);
end;
writeln('La lecture du tableau B');
for i:=1 to m do
begin
write('B[',i,']=');
read(B[i]);
end;
writeln('L''affichage du tableau A');
for i:=1 to n do
writeln('A[',i,']=',A[i]);
writeln('L''affichage du tableau B');
for i:=1 to m do
writeln('B[',i,']=',B[i]);
writeln('Le Trie du tableau A dans l''ordre croissant');

7

for i:=1 to n-1 do
for j:=i+1 to n do
if (A[i] > A[j] ) then
begin
x1:=A[j];
A[j]:=A[i];
A[i]:=x1;
end;
writeln('L''affichage du tableau A aprés le trie');
for i:=1 to n do
writeln('A[',i,']=',A[i]);
writeln('Le Trie du tableau B dans l''ordre croissant');
for i:=1 to m-1 do
for j:=i+1 to m do
if (B[i] > B[j] ) then
begin
x2:=B[j];
B[j]:=B[i];
B[i]:=x2;
end;
writeln('L''affichage du tableau B aprés le trie');
for i:=1 to m do
writeln('B[',i,']=',B[i]);

8

writeln(' La fusion de deux tableaux A et B');
for i:=1 to n+m do
if( i<=n) then
C[i]:=A[i]
else
C[i]:=B[i-n];
writeln('L''affichage du tableau C aprés la fusion');
for i:=1 to n+m do
writeln('C[',i,']=',C[i]);
writeln('Le Trie du tableau C dans l''ordre croissant');
for i:=1 to n+m-1 do
for j:=i+1 to n+m do
if (C[i] >C[j] ) then
begin
x3:=C[j];
C[j]:=C[i];
C[i]:=x3;
end;
writeln('L''affichage du tableau C dans l''ordre croissant');
for i:=1 to n+m do
writeln('C[',i,']=',C[i]);
end.

9

partie 2:
program Exo3;
uses wincrt;
var A,B,C:array[1..50]of integer;
i,j,n,m,x1,x2,x3:integer;
begin
writeln('Lisez moi la taille du tableau A');
read(n);
while((n<=0) or (n>50))do
begin
writeln('Relisez moi la taille du tableau A');
read(n);
end;
writeln('Lisez moi la taille du tableau B');
read(m);
while((m<=0) or (m>50))do

begin
writeln('Relisez moi la taille du tableau B');
read(m);
end;
writeln('La lecture du tableau A');
for i:=1 to n do
begin

10

write('A[',i,']=');
read(A[i]);
end;
writeln('La lecture du tableau B');
for i:=1 to m do
begin
write('B[',i,']=');
read(B[i]);
end;
writeln('L''affichage du tableau A');
for i:=1 to n do
writeln('A[',i,']=',A[i]);
writeln('L''affichage du tableau B');
for i:=1 to m do
writeln('B[',i,']=',B[i]);
writeln('Le Trie du tableau A dans l''ordre croissant');

for i:=1 to n-1 do
for j:=i+1 to n do
if (A[i] > A[j] ) then
begin
x1:=A[j];
A[j]:=A[i];
A[i]:=x1;

11

end;
writeln('L''affichage du tableau A aprés le trie');
for i:=1 to n do
writeln('A[',i,']=',A[i]);
writeln('Le Trie du tableau B dans l''ordre Décroissant');
for i:=1 to m-1 do
for j:=i+1 to m do
if (B[i] < B[j] ) then
begin
x2:=B[j];
B[j]:=B[i];
B[i]:=x2;
end;
writeln('L''affichage du tableau B aprés le trie');
for i:=1 to m do
writeln('B[',i,']=',B[i]);
writeln(' La fusion de deux tableaux A et B');
for i:=1 to n+m do
if( i<=n) then
C[i]:=A[i]
else
C[i]:=B[i-n];
writeln('L''affichage du tableau C aprés la fusion');
for i:=1 to n+m do

12

writeln('C[',i,']=',C[i]);
writeln('Le Trie du tableau C dans l''ordre croissant');
for i:=1 to n+m-1 do
for j:=i+1 to n+m do
if (C[i] >C[j] ) then
begin
x3:=C[j];
C[j]:=C[i];
C[i]:=x3;
end;
writeln('L''affichage du tableau C dans l''ordre croissant');
for i:=1 to n+m do
writeln('C[',i,']=',C[i]);
end.

13


TP5Correction.pdf - page 1/13
 
TP5Correction.pdf - page 2/13
TP5Correction.pdf - page 3/13
TP5Correction.pdf - page 4/13
TP5Correction.pdf - page 5/13
TP5Correction.pdf - page 6/13
 




Télécharger le fichier (PDF)


TP5Correction.pdf (PDF, 170 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


tp5correction
triselection
tri bulle activite
tp3correction
fiche6 ex sous programme
manuel pascal2