Recherche exercices en Pascal

Résolu
bonjour
svp,je veux des exercices pascal à niveau plus élever puisque je suis un éleve en bac informatique.Merci

10 réponses

  1. 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....
    1. il est clair qu'il est un ex trés dif et qu'on doit y penser bcp de temps.mais la 1ere phrase d'ennoncer n'est pas clair est ce que je doit faire dans mon algo une condition pour cela ou non.merci
      1. bonjour,je fait cet exercice et j'obtenir la solution et voilà:
        program tableau;
        uses wincrt;
        type tab=array[1..100]of integer;
        var t:tab ;n,i,j:integer;
        procedure s(vart:tab;var n:integer);
        begin
        writeln('donner la taille du tab');
        readln(n);
        writeln('remplir votre tableau');
        for i:=1 to n do
        begin
        readln(t[i]);
        end;
        end;
        procedure tad(t:tab;n:integer);
        begin
        for i:=2 to n do
        begin
        if t[i]-t[i-1]>1
        then
        begin
        j:= t[i-1];
        repeat
        j:=j+1;
        write( '|',j,'|');
        until(j=t[i]-1);

        end;
        end;
        end;
        begin
        s(t,n);
        tad(t,n);
        end.
        1. bonjour,
          voila un autre probleme:
          on veut ecrire un algorithme qui permet de transposer une matrice carré.
          l'operation de transposition consiste à inverser les lignes et les colonnes
          en effectuant une symétrie par rapport à la diagonale principale de la matrice.

          exemple:
          1 2 3
          4 5 6
          7 8 9
          devient
          1 4 7
          2 5 8
          3 6 9

          merci.
          1. Voici l'algorithme:

            Algorithme ex;

            Type:n=1..100
            Variables A,B:tableau[1..100,1..100] de réels;
            i,j:entier;
            dim:n;

            Début
            ecrire('donnez la dimension du tableau');
            lire(dim);
            Pour i de 1 à dim faire
            Début
            Pour j de 1 à dim faire
            Début
            lire(T[i]);
            B <= A;
            A[i,j] <= B[j,i];
            ecrire(A[i,j]);
            fin;
            fin;
            fin.
            1. salut ..
              j'ai un petit problem .. je veux ecrire un programme qui transforme une matrice en sa transposée par rapport à la deuxième diagonale .. pouvez-vous m'aider !!