[Fortran 77] Liste de noms (characters)

Bonjour à tous,

voici une question surement très bête mais sur laquelle je bute. :?

J'illustre mon problème par un exemple. Je demande à un client combien de parfums, il veut pour sa glace. Il veut N parfums. N varie selon le client.

Je veux donc créer une liste avec les N parfums que le client va me demander.

Code:

---

1 2 3 4

do i=1,N print *,'Quel est votre parfum numéro ',i read *, ????? end

---

Que dois-je mettre après mon read ?

Ou plus simplement, comment définit-on une liste de noms (characters) dont le nombre d'éléments varie (c'est une fonction de N).

En espérant avoir été assez clair...

Cordialement,

RM

salut,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

character(len=256), allocatable :: parfum(:) integer :: i, n   write(*,*) 'nombre de parfums maxi ?' read(*,*) n allocate (parfums(n)) do i=1,n write(*,*) 'quel est ton parfum n°',i repeat(' ',len(parfums(i)) read(*,*) parfums(i) enddo   deallocate (parfums)

---

c'est dans ce goût là (ou parfum ...)

Si tu tiens à te limiter à F77, tu ne peux pas utiliser les allocatables. Tu devras donc déclarer Parfums à la longueur maximale que tu voudras supporter...

je te conseil tout d'abord d'utiliser (comme afrancisco) les read(*,*) et write(*,*) plutôt que print *, et read *, car tu peux avec les write et read complet choisir et le fichier de destination/source et le format voulu (pratique quandd on fait du 77 un peu trop fixe.... comme tu n'a pas le droit à l'alocatable, tu doit définir un nombre max de parfums pour la glace (par exemple 255 (ça fait déjà pas mal)) donc tu définit un truc genre:

Code:

---

1 2 3

parameter MaxParfum=255 character*25 LstParfum dimension LstParfum(MaxParfum)

---

(il me semble qu'en 77 t'as pas le droit au len=25, mais à vérifié) du coup tu définit un parfin de fin genre 'fin' puis:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

600 write(6,'(a40,$)')'combien de parfum voulez-vous (Max=255)? ' read(5,i3) NbParfum if ((NbParfum<MaxParfum).and.(NbParfum>0))then do i=1,NbParfum write(6,'(a21,i3,a2,$)')'quel est le parfum n°',i,'? ' read(5,'a25') LstParfum(i) !tu peux placer une gestion des erreurs avec.... endif else write(6,'a26')'nombre de parfum incorrect' goto 600 endif

---

voilà, je te conseil également de bien gérer les erreurs genre, si l'utilisateur saisi un chiffre à la place du texte ou ce genre de connerie... le fait de mettre des formats dans les read et write impose à l'ordi d'interprété les champ saisis comme des caractère ou des entier ...etc... du coup tu as moins ce genre d'erreur, mais la conversion caractère => entier est pas top....