Posez votre question Signaler

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

coucou_hb21 34Messages postés lundi 8 octobre 2007Date d'inscription 21 janvier 2008Dernière intervention - Dernière réponse le 31 janv. 2008 à 12:54
[ bac sciences de l'informatique ] algorithme
Lire la suite 
Réponse
+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.

Annonces
 
moins plus
Réponse
+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 2008Dernière intervention - 15 déc. 2007 à 22:47
rejoin moi sur msn
coucou_hb20@hotmail.com
dsl pour le retard
a++++++
Annonces
 
moins plus
Réponse
+19
moins plus
des exercices de tous les chapitres sur:
www.salhi-sami.fr.gd

Réponse
+11
moins plus
je suis en bac info je veux des exercices sur la recursivité ou tri ou les fichiers

Réponse
+9
moins plus
?????????

C'est un jeu ?

Bon.
Alors je continue ....



[chaussure cuir de buffle] talon



C'est bon ?

Réponse
+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.

Réponse
+5
moins plus
ca existe le bac informatique o_O

trop tard je suis en BTS info XD

Réponse
+5
moins plus
Pascal - Tri par insertion - Récursivité-
Voir Astuces Pascal

Réponse
+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 2008Dernière intervention - 15 déc. 2007 à 22:48
si a moi soyer le bienvenu
a+
Réponse
+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

Réponse
+4
moins plus
vistez le forum bac informatique :

kachbouri.clicforum.com

Réponse
+3
moins plus
salut
je suis bacinfo
si qlqun veut échanger les devoirs avec moi je suis prés
contacter moi '''''bassemhaker@gmail.com'''

Réponse
+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 2007Dernière intervention - 30 déc. 2007 à 18:05
au maroc j'ai un bac economique et je fai le developement informatik algorithme vb6
Réponse
+3
moins plus
hi moi en bac info

Réponse
+3
moins plus
donne ton email

Réponse
+3
moins plus
Site web du bac science de l'informatique '' http://www.eductiontunisien.co.cc ".

Réponse
+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

Ce document intitulé «  bac sciences de l'informatique : algorithme  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

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

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.