i3lamya

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

Le Deal du moment :
Manga Chainsaw Man : où acheter le Tome 17 ...
Voir le deal
19.99 €

2 participants

    les tri_insertion_recursif:yahya abdkarim

    avatar
    yahya abdkarim
    Débutant
    Débutant


    Nombre de messages : 3
    Age : 34
    Localisation : errf
    Emploi : dr
    Date d'inscription : 15/12/2008

    les tri_insertion_recursif:yahya abdkarim Empty les tri_insertion_recursif:yahya abdkarim

    Message par yahya abdkarim Dim 15 Fév - 13:01

    program ex;
    uses wincrt;
    type
    tab=array [1..100] of integer;
    var t:tab;
    n,i,temp,p,deb,fin:integer;
    procedure saisie(var n:integer);
    begin
    repeat
    writeln('donner n');
    readln(n)
    until (n in [1..100]);
    end;
    procedure remplir(var t:tab;n:integer);
    begin
    for i:=1 to n do
    begin
    writeln('donner l"élement des tableau');
    readln(t[i]);
    end;
    end;
    procedure decaler(var t:tab; deb:integer;var fin:integer);
    begin
    fin:=deb;
    while(fin>=1) and (t[fin]>temp) do
    begin
    t[fin+1]:=t[fin];
    fin:=fin-1;
    end;
    end;
    procedure tri_insertion(var t:tab;n,i:integer);
    begin
    if i<= n then
    begin
    if t[i-1]>t[i] then
    begin
    temp:=t[i] ;
    decaler(t,i-1,p);
    t[p+1]:=temp;
    end;
    tri_insertion(t,n,i+1);
    end;
    end;
    procedure affiche(var t:tab;n:integer);
    begin
    for i:=1 to n do
    writeln('les contenu des tableau: ',t[i]);
    end;
    begin
    saisie(n);
    remplir(t,n);
    decaler(t,deb,fin);
    tri_insertion(t,n,2);
    affiche(t,n);
    end.
    Admin
    Admin
    Admin
    Admin


    Nombre de messages : 346
    Age : 49
    Localisation : Mahdia
    Emploi : Professeur
    Date d'inscription : 13/02/2008

    les tri_insertion_recursif:yahya abdkarim Empty Re: les tri_insertion_recursif:yahya abdkarim

    Message par Admin Lun 23 Fév - 15:29

    Merci pour le partage yahya abdkarim.
    Very Happy

      La date/heure actuelle est Jeu 28 Mar - 16:28

      Ne ratez plus aucun deal !
      Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
      IgnorerAutoriser