hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
tri insertion
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Algorithmes récurrents
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
wassim1991


Hors ligne

Inscrit le: 16 Fév 2010
Messages: 2
Point(s): 2
Moyenne de points: 0

Posté le: Mar 16 Fév - 23:14 (2010)    Sujet du message: tri insertion Répondre en citant

PublicitéSupprimer les publicités ?
program wassim;
uses wincrt;
type tab = array [1..50] of integer;
var n,i : integer  ;
var t : tab ;
procedure saisie ( var n: integer ;var t : tab ) ;
begin
repeat
writeln ('donner le taille de tableau');
readln(n);
until n in [1..50];
for i := 1 to n do
begin
write('donner t[',i,']');
readln( t[i] );
end;
end;


procedure trier ( n: integer ; var t : tab);
var mem,j:integer;
begin
for i := 2 to n do
begin
mem:= t[i];
j:=i-1;
 while (mem<t[j]) and (j>=1) do
  begin
  t[j+1]:= t[j];
  j:=j-1;
  end;
   t[j+1]:=mem;
   end;
   end;
 
  procedure affiche ( n: integer ; t : tab );
  begin
  for i := 1 to n do
  write (t[i],'/');
  end;
begin
saisie(n,t);
trier(n,t);
affiche(n,t)
end.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 13:06 (2016)    Sujet du message: tri insertion

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Algorithmes récurrents Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation