Discussion :

[salmasal]

Bonjour à tous,

J'ai écris un simple programme qui fait le tri et je ne sais pas ce que j'ai fait de faux .
J'ai mis le tri en commentaires, parce que dejà dès le début du programme je n'arrive pas à afficher les valeurs dans le fichier... Pourriez-vous m'aider svp?
Voici mon programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
         integer :: n =20
 
	  double precision, dimension(2000) :: X
          double precision, dimension(2000) :: Y  
 
 
   open(16,file='test1.dat',status='unknown',access='append')
   open(17,file='test2.dat',status='unknown')
   open(15,file='test3.txt',status='unknown')
 
	  do i=1,n
             read(16,'(f11.3,es10.3,a3,a3)',end=100)X(i),Y(i)
          end do
 
 100      continue
 
          do i=1,n
          write(17,*)X(i),Y(i)
	  enddo
 
 !         do k=1,n
 !             do h=k+1, n+1
!	      write(*,*)'k',k
!	      write(*,*)'h',h
!                   if(X(h) .gt. X(h+1)) then
!                   col_1=X(h)
!                   X(h)=X(h+1)
 !                  X(h+1)=col_1
!                   col_2=Y(h)
!		    Y(h)=Y(h+1)
!		    Y(h+1)=col_2		    
 !                  endif
 !             enddo
 !        enddo
 
!     	do i = 1, n
! 	     write(15,*)X(i),Y(i)        
!	end do 
 
	close(15)
	close(16)
	end program

[Sylvain Bergeron]

Ton fichier de données en entrée est le fichier 16, mais tu ouvres ce fichier avec l'option « append ». Cette dernière sert à ouvrir un fichier en écriture pour ajouter des nouvelles lignes à la fin.

[salmasal]

Bonjour Sylvain,

merci beaucoup pour votre réponse

Au fait je copie des fichiers qui existe déjà dans mon répertoire dans le 16 et je fais read pour utiliser les données là dessus. Je fais Append pour copier tous les fichiers dans écraser les valeurs.

Mais même quand j'enlève le Append pour tester, les valeurs ne s'affichent pas (

[Sylvain Bergeron]

La boucle de lecture ne te permet pas de savoir combien de données ton programme a lues.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
     n = 20
     ...
     do i=1,n
          read(16,'(f11.3,es10.3,a3,a3)',end=100)X(i),Y(i)
     enddo
 
100  continue

Cette boucle arrête après 20 itérations, ou si la fin du fichier est atteinte, mais tu ne le sais pas. Tu devrais ajouter un compteur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
     n = 20
     ...
     NbLu = 0
     do i=1,n
          read(16,'(f11.3,es10.3,a3,a3)',end=100)X(i),Y(i)
          NbLu = NbLu + 1
     enddo
100  continue
     write(*,*)'Nombre de données lues:',NbLu
     ...

[salmasal]

c'est bon c résolu ... au fait c'était à l'ouverture du fichier
Sylvain vs aviez raison

merci bcp à vs deux

La boucle de lecture ne te permet pas de savoir combien de données ton programme a lues.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
     n = 20
     ...
     do i=1,n
          read(16,'(f11.3,es10.3,a3,a3)',end=100)X(i),Y(i)
     enddo
 
100  continue

Cette boucle arrête après 20 itérations, ou si la fin du fichier est atteinte, mais tu ne le sais pas. Tu devrais ajouter un compteur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
     n = 20
     ...
     NbLu = 0
     do i=1,n
          read(16,'(f11.3,es10.3,a3,a3)',end=100)X(i),Y(i)
          NbLu = NbLu + 1
     enddo
100  continue
     write(*,*)'Nombre de données lues:',NbLu
     ...