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. 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 !!
    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. 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. 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. 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, 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....