Examen de Septembre 2001-LMA

Exercice 1.

Etant donnée une lettre LETTRE et une chaîne de caractère CHAINE, écrire une fonction qui retourne le nombre de fois où LETTRE apparaît dans CHAINE.

Exercice 2.

Effectuer les 'print' suivants :

       x = (/ 1.1, 2.2, 3.3, 4.4 , 5.5 /)
       A(:,1) = (/1.1, 2.2, 3.3 /)
       A(:,2) = (/4.4 , 5.5, 6.6 /)

       print*,'size(A,1) = ', size(A,1) 

       p => x(2:3)
       p = (/ 7.7, 8.8 /)
       print*,'px = ', p  ; print*,'x =',x

       p => A(:,2)
       p = (/ -7., -8., -9. /)

       print*,((' A(',i,',',j,') = ', A(i,j), j = 1,2),i=1,3)

       print*,'A = ', A

Exercice 3.

On considère la structure suivante :

        TYPE adresse
           CHARACTER(LEN = 30)     :: Nom, Ville
           INTEGER                 :: Code
        END TYPE adresse

        TYPE(adresse), DIMENSION(:), ALLOCATABLE :: Tab

1. Donnez la nature de ces objets :

            Tab,  Tab(i),  Tab(i)%Nom,  Tab(i)%Code
          

2. On suppose que les adresses des individus sont stockées dans un fichier nommé DATA.IN sous la forme suivante

           Michel
           Gradignan
           33170
           James
           Bordeaux
           33000
           Pierre
           Talence
           33405
   

   Ecrire une fonction qui retourne le nombre d'adresses présentes dans DATA.IN et écrire une subroutine permettant d'allouer le tableau Tab et de le remplir à partir du fichier DATA.IN.

3. Ecrire une subroutine TRI(Tab) qui permet de trier en ordre croissant les adresses selon leur Code,

4. Ecrire une subroutine IMPRIME(Tab) permettant de créer un fichier nommé DATA.OUT et d'y imprimer le tableau trié Tab.

5. On suppose que le tableau Tab est trié. Ecrire une subroutine permettant d'inserer une nouvelle adresse et de la classer selon son code dans le tableau Tab. On pourra utiliser un tableau temporaire TEMP.