Signaler

Bac sciences de l'informatique : algorithme [Fermé]

Posez votre question coucou_hb21 34Messages postés lundi 8 octobre 2007Date d'inscription 21 janvier 2008 Dernière intervention - Dernière réponse le 31 janv. 2008 à 12:54 par azouzi
[ bac sciences de l'informatique ] algorithme
Utile
+33
plus moins
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.
Cette réponse vous a-t-elle aidé ?  
Utile
+22
plus moins
j'ai besoin des exercices sur les algorithmes recursive
coucou_hb21 34Messages postés lundi 8 octobre 2007Date d'inscription 21 janvier 2008 Dernière intervention - 15 déc. 2007 à 22:47
rejoin moi sur msn
coucou_hb20@hotmail.com
dsl pour le retard
a++++++
Utile
+19
plus moins
des exercices de tous les chapitres sur:
www.salhi-sami.fr.gd
Utile
+11
plus moins
je suis en bac info je veux des exercices sur la recursivité ou tri ou les fichiers
Utile
+9
plus moins
?????????

C'est un jeu ?

Bon.
Alors je continue ....



[chaussure cuir de buffle] talon



C'est bon ?
Utile
+9
plus moins
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.
Utile
+5
plus moins
ca existe le bac informatique o_O

trop tard je suis en BTS info XD
Utile
+5
plus moins
Pascal - Tri par insertion - Récursivité-
Voir Astuces Pascal
Utile
+4
plus moins
je suis bac info je veux être en contact avec toi
voila mon email
rekikibrahim@hotmail.com
coucou_hb21 34Messages postés lundi 8 octobre 2007Date d'inscription 21 janvier 2008 Dernière intervention - 15 déc. 2007 à 22:48
si a moi soyer le bienvenu
a+
Utile
+4
plus moins
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
Utile
+4
plus moins
vistez le forum bac informatique :

kachbouri.clicforum.com
Utile
+3
plus moins
salut
je suis bacinfo
si qlqun veut échanger les devoirs avec moi je suis prés
contacter moi '''''bassemhaker@gmail.com'''
Utile
+3
plus moins
moi aussi j ss en bac info jevoulai savoir ca exsite ds quls pays a pars la tunisie?
merci
alaoui-achraf 8Messages postés dimanche 30 décembre 2007Date d'inscription 30 décembre 2007 Dernière intervention - 30 déc. 2007 à 18:05
au maroc j'ai un bac economique et je fai le developement informatik algorithme vb6
Utile
+3
plus moins
hi moi en bac info
Utile
+3
plus moins
donne ton email
Utile
+3
plus moins
Site web du bac science de l'informatique '' http://www.eductiontunisien.co.cc ".
Utile
+2
plus moins
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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !