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 ...
Sujets du 26 mai 2010 = Pratique
 
 
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 -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 27 Juil - 12:37 (2010)    Sujet du message: Sujets du 26 mai 2010 = Pratique Répondre en citant

PublicitéSupprimer les publicités ?


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 27 Juil - 12:38 (2010)    Sujet du message: Sujets du 26 mai 2010 = Pratique Répondre en citant

correction

program ex;
uses wincrt;
type tab=array[1..100] of integer;
var t:tab;
    n,e:integer;



procedure saisie(var t:tab;var n,e:integer);
var i:integer;
begin


     repeat
           write('N=  ');
           readln(n);
     until(n in [4..10]);

     write('T[1]=  ');
     readln(t[1]);

     for i:=2 to n do
     begin
          repeat
                write('T[',i,']=  ');
                readln(t[i]);
          until(t[i]>t[i-1]);
     end;

     write('Une valeur pour E = ');
     readln(e);


end;

procedure insertion(var t:tab;var n:integer;e:integer);
var i:integer;
begin
     i:=n+1;

     while(i>1) and (t[i-1]>e) do
     begin
          t[i]:=t[i-1];
          i:=i-1;
     end;

     t[i]:=e;
     n:=n+1;
     
end;

procedure insertionv2(var t:tab;var n:integer;e:integer);
var j,i:integer;
    k:integer;
    temp:tab;
begin

     i:=1;
     k:=0;

     writeln(i);

     while(i<=n) and (t[i]<e) do
     begin
          k:=k+1;
          temp[k]:=t[i];
          i:=i+1;
     end;

     k:=k+1;
     temp[k]:=e;

 
     for j:=i to n do
     begin         
         k:=k+1;
         temp[k]:=t[j];
     end;

    
    
     for i:=1 to k do
         t[i]:=temp[i];

     n:=k;

end;

procedure affichage(t:tab;n:integer);
var i:integer;
begin

     for i:=1 to n do
         write(t[i],'  ');


end;


begin

     saisie(t,n,e);
     insertionv2(t,n,e);
     affichage(t,n);
end.


 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 25 Aoû - 17:53 (2010)    Sujet du message: Sujets du 26 mai 2010 = Pratique Répondre en citant

Okay Okay Okay Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:02 (2016)    Sujet du message: Sujets du 26 mai 2010 = Pratique

 
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 -> (¯`·._.·[Devoirs et séries']·._.·´¯) 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