Bac sciences de l'informatique : algorithme

voila quelque méthode de trie en pascal
tri insert1Program triinsertion1;
uses wincrt;
type tab=array[1..20]of integer;
var n:integer;
t:tab;

procedure lecture(var n:integer);
begin
write('N = ');readln(n);
if not(n in[1..20]) then lecture(n);
end;
procedure remplir(k,n:integer; var t:tab);
begin
if k<=n then begin
t[k]:=random(21);
remplir(k+1,n,t);
end;
end;
procedure affiche(k,n:integer; t:tab);
begin
if k<=n then begin
write(t[k]:3);
affiche(k+1,n,t);
end;
end;
procedure tri(n:integer; var t:tab);
var j,x,i:integer;
begin
for i:=2 to n do
begin
X:=t[i];
j:=i;
while(x<t[j-1]) and (j>1) do
begin
t[j]:=t[j-1];
j:=j-1;
end;
IF j<i then t[j]:=x;
end;
end;
begin
lecture(n);
randomize;
remplir(1,n,t);
affiche(1,n,t);writeln;
tri(n,t);
affiche(1,n,t);
end.

tri insertion 2
Program triinsertion1;
uses wincrt;
type tab=array[1..20]of integer;
var n:integer;
t:tab;

procedure lecture(var n:integer);
begin
write('N = ');readln(n);
if not(n in[1..20]) then lecture(n);
end;
procedure remplir(k,n:integer; var t:tab);
begin
if k<=n then begin
t[k]:=random(21);
remplir(k+1,n,t);
end;
end;
procedure affiche(k,n:integer; t:tab);
begin
if k<=n then begin
write(t[k]:3);
affiche(k+1,n,t);
end;
end;

procedure tri(n:integer; var t:tab);
var p,x,i:integer;
procedure decaler(var t:tab; k:integer; var p:integer);
begin
p:=k;
while (p>0) and (t[p]>x) do begin
t[p+1]:=t[p]; p:=p-1;
end;
end;
begin
for i:=2 to n do
if t[i]<t[i-1] then begin
x:=t[i];
decaler(t,i-1,p);
t[p+1]:=x;
end;
end;
begin
lecture(n);
randomize;
remplir(1,n,t);
affiche(1,n,t);writeln;
tri(n,t);
affiche(1,n,t);
end.

j'ai besoin des exercices sur les algorithmes recursive

des exercices de tous les chapitres sur:
www.salhi-sami.fr.gd

je suis en bac info je veux des exercices sur la recursivité ou tri ou les fichiers

?????????

C'est un jeu ?

Bon.
Alors je continue ....

[chaussure cuir de buffle] talon


C'est bon ?

ha ha ha
non juste pour ce qu'il veut savoir quelque chose sur le programme ou explication sur l'informatique en section bac sciences de l'informatique il peut me dire .
ok
vrémment tu m'a fait rire .
merci d'avance.

ca existe le bac informatique o_O

trop tard je suis en BTS info XD

Pascal - Tri par insertion - Récursivité-
Voir Astuces Pascal

je suis bac info je veux être en contact avec toi
voila mon email
rekikibrahim@hotmail.com

slt
je veut connaitre apres le bac info quel droit je peut choisir,
programmation
j'ai 10.5 contole
17.5 synthese
19.5 pratique
tic
14.5 controle
14.25 synthese
b.d
19 controle
16 synthese

vistez le forum bac informatique :

kachbouri.clicforum.com

salut
je suis bacinfo
si qlqun veut échanger les devoirs avec moi je suis prés
contacter moi '''''bassemhaker@gmail.com'''

moi aussi j ss en bac info jevoulai savoir ca exsite ds quls pays a pars la tunisie?
merci

hi moi en bac info

donne ton email

Site web du bac science de l'informatique '' https://eductiontunisien.co.cc/ ".

moi simohamed bac ssience x chui mnt 1 er année devlopement informatique voila mon msn simomido-@hotmail.fr pour ce qui vx rejoin moi sur l msn