FORUM MP | Algorithmes : algorithmes en pascal

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

algorithmes en pascal
	Forum : ALGORITHMES Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ ALGORITHMES
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

FORUM ALGORITHMES
	Page précedente	Page suivante

melissa22
Nouveau membre

Inscrit : 16/02/2008
Messages : 5

#149133 Posté le 16/02/08 à 18:11

Bonjour,
je veux faire un programme en langage pascal qui permet de trier un tableau
ce tri doit se faire en deux etapes la premiere de faire le tri des valeurs paires par insertion et les valeurs impaires restent dans leurs positions (on doit utiliser un seul tableau qui est le tableau initial) puis une deuxième étape tri par fusion qui permet de faire le tri du tableau entier ici on a le droit d\'utiliser un 2 tableau
svp aidez moi j\'ai passé une semaine et j\'ai pas réussi a le faire juste j\'ai fait ca mais il donne pas le tri par insertion dans tout les cas par exemple si les valeurs entrées 8 1 4 6 il ne marche pas
Program tri;
var n ,i,a,b,temp,j: integer;

Const k = 20000;
var T :array[1..k]of integer;
begin
writeln( \'rentrer la valeur de n \');
readln(n);
a:=1;
for i:=1 to n do
begin
writeln(\'entrer la\',i,\':\') ;
readln(T[i]);
end;

for i:=1 to n-1 do
begin
if T[i]<=T[i+1] then
inc(a);
end;
if (a=1)then
writeln (\'la série est triée dans un ordre décroissant\')else
if (a=n) then
writeln (\'la série est triée dans un ordre croissant\')else
writeln(\'la série est aléatoire\');
readln;
b:=1;
for i:=2 to n do

if odd(T[i])=false then

begin

temp:=T[i];
j:=i;
while j-b>=1 do
if odd(T[j-b])=true then
b:=b+1
else
begin
if T[j-b]>T[j] then
T[j]:=T[j-b];
T[j-b]:=temp;
j:=j-b;
b:=1;
end;
readln;
end;
writeln(\'les chiffres paires sont triés:\');
for i:=1 to n do
write(T[i],\' \');
readln;

end.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

litle_titeuf
Membre actif
Chef de projet(s) :
- Genetique algor.

Inscrit : 11/05/2006
Messages : 131

#151139 Posté le 26/03/08 à 00:45

Je pense que je répond un peut tard mais bon.. ça me semble réalisable avec un petit trie a bulle avec une sélection sur les individu a trier..
__________________________

HAUT DE PAGE

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.