Salut
je voudrai écrire un fichier de nom, prenom, age et qui se termine par une chaine vide.
voici la syntaxe:
Je n'arrive pas à exécuter ce programme à cause de l'arret de boucle qui ne fonctionne pas. Comment saisir un chaine de caractères vides?
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 program cr_fich.f90 implicit none integer,parameter :: numfich=1 character (len=12)::nomfich caharacter(len=20)::nom, prenom integer::annee print*, annee read*, nomfich open(unit=numfich, file=nomfich, form ='unformatted', status = 'new') print*, 'nom, prenom, annee naissance pour finir)' do if (nom == '') exit write (numfich) nom, prenom, annee end do print*, 'fin creation fichier' close (numfich) end
Moi je fais ceci:
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 repert (pour le nom) dupont francois 42 '' '' 0 (nom prénom et age sont séparés par des espaces)
Partager