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
[ bac sciences de l'informatique ] algorithme
Afficher la suite 
Utile
+33
moins plus
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
Utile
+22
moins plus
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
moins plus
des exercices de tous les chapitres sur:
www.salhi-sami.fr.gd
Utile
+11
moins plus
je suis en bac info je veux des exercices sur la recursivité ou tri ou les fichiers
Utile
+9
moins plus
?????????

C'est un jeu ?

Bon.
Alors je continue ....



[chaussure cuir de buffle] talon



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

trop tard je suis en BTS info XD
Utile
+5
moins plus
Pascal - Tri par insertion - Récursivité-
Voir Astuces Pascal
Utile
+4
moins plus
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
moins plus
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
moins plus
vistez le forum bac informatique :

kachbouri.clicforum.com
Utile
+3
moins plus
salut
je suis bacinfo
si qlqun veut échanger les devoirs avec moi je suis prés
contacter moi '''''bassemhaker@gmail.com'''
Utile
+3
moins plus
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
moins plus
hi moi en bac info
Utile
+3
moins plus
donne ton email
Utile
+3
moins plus
Site web du bac science de l'informatique '' http://www.eductiontunisien.co.cc ".
Utile
+2
moins plus
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 !