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

coucou_hb21 34 Messages postés lundi 8 octobre 2007Date d'inscription 21 janvier 2008 Dernière intervention - 4 nov. 2007 à 18:13 - Dernière réponse :  azouzi
- 31 janv. 2008 à 12:54
[ bac sciences de l'informatique ] algorithme
Afficher la suite 

20 réponses

+33
Utile
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é ?  
+22
Utile
1
j'ai besoin des exercices sur les algorithmes recursive
coucou_hb21 34 Messages 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++++++
+19
Utile
des exercices de tous les chapitres sur:
www.salhi-sami.fr.gd
+11
Utile
je suis en bac info je veux des exercices sur la recursivité ou tri ou les fichiers
BmV 70437 Messages postés samedi 24 août 2002Date d'inscriptionModérateurStatut 13 décembre 2017 Dernière intervention - 4 nov. 2007 à 18:18
+9
Utile
?????????

C'est un jeu ?

Bon.
Alors je continue ....



[chaussure cuir de buffle] talon



C'est bon ?
coucou_hb21 34 Messages postés lundi 8 octobre 2007Date d'inscription 21 janvier 2008 Dernière intervention - 5 nov. 2007 à 18:29
+9
Utile
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.
Lapinkiller 692 Messages postés samedi 15 avril 2006Date d'inscription 30 août 2010 Dernière intervention - 30 déc. 2007 à 18:27
+5
Utile
ca existe le bac informatique o_O

trop tard je suis en BTS info XD
ZOUARI 60 Messages postés lundi 26 avril 2004Date d'inscriptionContributeurStatut 14 mai 2011 Dernière intervention - 15 janv. 2008 à 12:32
+5
Utile
Pascal - Tri par insertion - Récursivité-
Voir Astuces Pascal
+4
Utile
1
je suis bac info je veux être en contact avec toi
voila mon email
rekikibrahim@hotmail.com
coucou_hb21 34 Messages 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+
+4
Utile
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
+4
Utile
vistez le forum bac informatique :

kachbouri.clicforum.com
bassem the hacker - 26 déc. 2007 à 12:32
+3
Utile
salut
je suis bacinfo
si qlqun veut échanger les devoirs avec moi je suis prés
contacter moi '''''bassemhaker@gmail.com'''
+3
Utile
1
moi aussi j ss en bac info jevoulai savoir ca exsite ds quls pays a pars la tunisie?
merci
alaoui-achraf 8 Messages 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
+3
Utile
Site web du bac science de l'informatique '' http://www.eductiontunisien.co.cc ".
simomido- 20 Messages postés lundi 3 décembre 2007Date d'inscription 17 septembre 2009 Dernière intervention - 15 déc. 2007 à 23:27
+2
Utile
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