TRI BULLE activite .pdf


Nom original: TRI_BULLE_activite.pdf
Titre: TRI_BULLE_activite
Auteur: hp

Ce document au format PDF 1.4 a été généré par PDFCreator Version 1.5.0 / GPL Ghostscript 9.05, et a été envoyé sur fichier-pdf.fr le 31/03/2018 à 18:19, depuis l'adresse IP 41.224.x.x. La présente page de téléchargement du fichier a été vue 241 fois.
Taille du document: 114 Ko (2 pages).
Confidentialité: fichier public


Aperçu du document


MINISTERE EDUCATION TUNISIENNE
--- --------------------------------------------------------

Correction Exercice 02: TRI à bulles
(décroissant)

Epreuve :
Informatique
Section :
Sciences Expérimentales
Durée : 1 heure
Coefficient :
1
Classe : 4 sciences Expérimentales 2

Ecrire un programme pascal qui permet :
1. Le choix de la taille N d'un tableau à savoir que N est un entier parfait et ne dépasse pas 100
2. Le remplissage d'un tableau A de N entiers strictement positif
3. Affiche le tableau crée avant et après son tri en ordre décroissant en utilisant le tri à bulles
Remarque : un entier parfait est égal à la somme de ses diviseurs propres avec un diviseur est un diviseur

autre que lui-même
Programme pascal : Tri à bulles en ordre décroissant
program TriBulle_Decroissant ;
uses wincrt ;
type tab = array[1..100]of integer ;
{----- Procédure choixN permet le choix aléatoire d'un entier n ----- }
procedure choixN(var n : integer);
function parfait(x : integer):boolean;
var i,s : integer;
begin
s := 1;
for i := 2 to x div 2 do
if x mod i = 0 then s := s + i;
if s = x then parfait := true else parfait := false;
end;
begin
randomize ;
repeat
n := random(101);
until (parfait(n) = true) and (n<100);
end;
{----- Procédure remplissage permet le remplissage d'un tableau t de n entiers strictement positif ----- }
procedure remplissage(var t : tab ; n : integer);
var i : integer;
begin
for i:= 1 to n do
repeat
begin
write('t[',i,'] = ');
readln(t[i]);
end;
until t[i]>0;
end;
{----- Procédure affichage permet l'affichage des n éléments d'un tableau t puis retourne à la ligne ----- }
procedure affichage(t : tab ; n : integer);
var i : integer;
begin
for i:= 1 to n do
write(t[i], ' ');
writeln('');
end;
Proposé le Samedi 31 Mars 2018 2018

Année scolaire : 2017 - 2018

{----- Procédure triBulles permet le tri par le principe du tri à bulle d'un tableau t ayant n entiers en ordre
décroissant aléatoire
----- }
procedure triBulles (var t : tab ; n : integer);
var
i: integer;
echange : boolean;
procedure permut(var x , y : integer);
var z:integer;
begin
z:=x;
x:=y;
y:=z;
end;
begin
repeat
begin
echange := false;
for i := 1 to n-1 do
if t[i]<t[i+1] then
begin
permut(t[i], t[i+1]);
echange :=true;
end;
n := n - 1 ;
end;
until( n = 1) or (not(echange)) ;
end;
{--------------------------------------------------- Programme principal ----------------------------------------------- ----- }
var
A : tab;
n :integer;
begin
choixN(n);
writeln(' n = ',n);
remplissage(A,n);
writeln(' -------------- T avant le tri -------------- ');
affichage(A,n);
triBulles(A,n);
writeln(' -------------- T apres le tri -------------- ');
affichage(A,n);
end.

Proposé le Samedi 31 Mars 2018 2018

Année scolaire : 2017 - 2018


TRI_BULLE_activite.pdf - page 1/2
TRI_BULLE_activite.pdf - page 2/2


Télécharger le fichier (PDF)

TRI_BULLE_activite.pdf (PDF, 114 Ko)

Télécharger
Formats alternatifs: ZIP







Documents similaires


tri bulle activite
proposition correction bac2013 09h30
proposition correction bac2011 14h30
sousprogrammes utiles
sousprogrammes utiles
tp3correction

Sur le même sujet..