Discussion :

[zerbault]

Bonjour,
j'ai écrit dans un fichier texte appellé a.txt des valeurs :

12 21 4 2

avec une tabulation entre 2 valeurs.
je voudrais lire ces valeurs une par une, stocker la valeur dans une variable et ecrire cette valeur*2 dans un autre fichier texte.

Mon probleme est de lire les valeurs dans le fichier texte

voilà, pourriez-vous m'aider?

Merci

[zerbault]

j'arrive à lire la premiere valeur, mais je sais pas comment lire la 2eme, 3eme,...

Code :

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

1
2
3
4
5
6
7
8
9
program read_any_data 
implicit none 
 
real i
open(10,file='a.txt',status='old')
 
read(10,*)i 
write(*,*)i 
end

[DaZumba]

Tu as bien commence, il suffit de faire:

Code :

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

1
2
3
4
 
real a, b, c, d
...
read(10,*) a, b, c, d

ou, pour mettre dans un tableau

Code :

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

1
2
3
4
5
 
real a(4)
integer i
...
read(10,*) (a(i), i=1, 4)

Remarque qu'utiliser "i" pour une variable de type real, c'est un peu surprenant pour la plupart des codeurs. A eviter donc.