Tri d'un tableau en pascal

abir.1 -  
Bonjour,
Bonjour, j'ai un probleme tres difficile , il m'enerve , et en plus aucun de mes colegues possede une solution
svp aidez moi pour resoudre le probleme suivant:

On veut ecrire un programme qui permet de remplir un tablea T par n enties positifs triés dans l'ordre crissant,
puis d'afficher les entiers manquant entre le premier et le dernier element de ce tablea.

example: si n=7 et si T est le tableau suivant:
5 6 8 9 10 12 15
le programme affichera: les entiers manquants sont 7,11,13,14

et MERCI d'avance....

s'il vous plais en lenguage pascal 
Configuration: Windows Me!
Firefox 2.0

8 réponses

  1. abir.1 Auteur
    le tableau est supposé etre trié
    1. grad
      Est ce que le tableau est supposé etre trié ou on va se charger de le trier ?
      1. grad
        Voici le programme:

        Program ex;

        Uses wincrt;
        Var A:array[1..dim] of integer;
        dim,i,j:integer;
        B:array[1..dim-1] of integer;
        {un tableau dynamique}
        C:Array[1..dim,1,dim-1] of integer;

        Begin:
        write('Donnez le nombre de cases dans le tableau');
        read(dim);
        for i:=1 to dim-1 do
        begin
        read(A[i]);
        B[i]:=A[i+1]-A[i]-1; // on va determiner les espaces entre les cases
        for j:=1 to B[i] do
        begin
        C[i,j]:=A[i]+j; // les nombres manquant entre la case A[i] et A[i+1]
        write(C[i,j]); // afficher les résultats
        end;
        1. fatma
          solution sans matrice :

          program ex;
          uses wincrt;
          var i,j,n,x,y:integer;
          T:array[1..100] of integer;
          BEGIN
          repeat
          write('n=');readln(n);
          until (n>=2);
          j:=1;
          repeat
          readln(T[j]);
          until T[j]>=0;
          for i:=2 to n do
          begin
          repeat
          writeln('T[',i,']= ');readln(T[i]);
          until (T[i]>=0) and (T[i]>T[j]);
          j:=i;
          end;

          for i:=1 to n-1 do
          begin
          x:=T[i]; y:=T[i+1];
          while x<>y-1 do
          begin
          write(x+1,' ');
          x:=x+1;
          end;
          end;
          END.
      4. aziza
        salut, j'ai un probléme, je veux savoir comment trier un tableau par selection par la méthode recursive
        1. jameuzzzzzzzzzzzzz
          J'ai un probleme, je veux savoir comment l'ordi interprete un tableau en pascal lors d'un programme
          1. fatma
            Voici abir une solution sans tablo a 2 dimensions :
            program ex;
            uses wincrt;
            var i,j,n,x,y:integer;
            T:array[1..100] of integer;
            BEGIN
            repeat
            write('n=');readln(n);
            until (n>=2);
            j:=1;
            repeat
            readln(T[j]);
            until T[j]>=0;
            for i:=2 to n do
            begin
            repeat
            writeln('T[',i,']= ');readln(T[i]);
            until (T[i]>=0) and (T[i]>T[j]);
            j:=i;
            end;

            for i:=1 to n-1 do
            begin
            x:=T[i]; y:=T[i+1];
            while x<>y-1 do
            begin
            write(x+1,' ');
            x:=x+1;
            end;
            end;
            END.
            1. verano
              Bonjour,
              suivant la logique du programme,quelles modifications dois je apporter pour la fusion de 2 tableaux?