Patrick Corde & Anne Fouilloux

Corrigés 234
Corrigé de l’exercice 5
1 program triabulle
2 implicit none
3 integer, parameter :: croissant=1, decroissant=2, n=10
4 real, dimension(n) :: tab
5 real :: temp
6 logical :: tri_termine, expr1, expr2
7 integer :: sens, i
8
9 ! Valorisation du vecteur
10 data tab/0.76, 0.38, 0.42, 0.91, 0.25, &
11 0.13, 0.52, 0.69, 0.76, 0.98/
12 do sens=croissant, decroissant ! Sens du tri
13 do ! Tri
14 tri_termine = .true.
15 do i=2,n
16 expr1 = sens == croissant .and. tab(i-1) > tab(i)
17 expr2 = sens == decroissant .and. tab(i-1) < tab(i)
18 if (expr1 .or. expr2) then
19 tri_termine = .false.
20 temp = tab(i-1); tab(i-1) = tab(i); tab(i) = temp
21 end if
22 end do
23 if (tri_termine) exit
24 end do
25 ! Impression du vecteur trié
26 if (sens == croissant) print*, "Tri croissant "
27 if (sens == decroissant) print*, "Tri décroissant "
28 print*, tab
29 end do
30 end program triabulle
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux