Mettre des données dans un tableau style excel en fortran

Bonjour à tous

Voilà, je dois faire un programme en fortran sur le principe d'une caisse enregistreuse qui doit rendre la monnaie enfin tout ça je m'en occupe pour les calculs mais je voudrais justement afficher les résultats des calculs dans un tableau pour que ce soit clair et cela, je ne gère pas sur fortran. Pouvez-vous m'aidez svp ? Merci

il suffit d'écrire dans un fichier texte. je te conseille donc d'aller regarder dans un cours de fortran la gestion des entrées-sortie, et surtout des format de sortie.
ainsi tu peux généré un fichier texte contenant lignes et colonnes que tu peux ensuite lire avec excel par exemple.
un exemple:

Code:

---

1 2 3 4 5 6

open(unit=10,file="toto",status="unknown) do i=1,15 write(10,'(20e15.7)')(a(i,j),j=1,20) end do close(10)

---

Merci. Mais en fait je ne voudrais pas le lire avec excel, il faudrait que dans le programme au moment de l'exécution apparaisse un tableau pour récapituler le nombre de pièces tout ça. J'ai vu dans les guides c'était avec la commande dimension mais pour le moment mon compileur me met qu'il y a une erreur quand j'écris avec cette commande ... Peut-être qu'il ne comprend pas cette commande j'utilise Force 3.0 donc je ne sais pas. Il y a moyen que je fasse un tableau avec les formats et et les write mais ce serait des traits discontinus genre | ou - mais bon s'il y a plus beau à faire , je prend ;)

la commande dimension sert à définir des tableaux genre:

Code:

---

1 2	real(kind=8),dimension(2,3) :: U

---

cela définit un tableau U de réels double precision a deux dimensions et de taille 2x3

maintenant, si tu veux l'afficher c'est:

Code:

---

1 2 3

do i=1,2 write(*,'(20e15.7)')(U(i,j),j=1,3) end do

---

Ca veut dire quoi kind=8 dans ton real ? Quand je met ce que tu as mis, il me met ça :

Code:

---

1 2 3 4 5 6 7

real(kind=8), dimension(2,3) :: U 1 2 Invalid kind at (2) for type at (1) -- unsupported or not permitted   real(kind=8), dimension(2,3) :: U ^ Fortran 90 feature at (^) unsupported

---

De plus, cela n'a rien à voir avec les tableaux mais genre quand je met ce code

Code:

---

1 2 3 4 5 6 7 8

do while (N.lt.0.and.N.gt.P.and.IOS.ne.-1) write(*,14) 14 format(/,1X,'Appuyer entre 0 et 9 pour saisir la commande : ',$) read(*,*,iostat=IOS) N if (N.lt.0.and.N.gt.P.and.IOS.ne.-1) then write(*,*)'Chiffre incorrecte.' end if end do

---

le programme s'exécute mais arrivé à cette boucle, il ne m'affiche pas "appuyer entre 0 et 9 ..." je ne comprend pas pourquoi ?

Citation:

---

le programme s'exécute mais arrivé à cette boucle, il ne m'affiche pas "appuyer entre 0 et 9 ..." je ne comprend pas pourquoi ?

---

S'il n'affiche pas "appuyer. .", c'est qu'il n'entre pas dans la boucle.
Ton test d'entrée est : N < 0 ET N > P ET IOS <> -1
Donc, l'une au moins des 3 conditions est fausse.

Ben oui mais tu fais comment alors pour dire au programme qu'il faut entrer un valeur entre 0 et 9 alors ?
Ou alors je veux juste dire à l'utilisateur d'appuyer sur une touche pour continuer mais pas des lettres ni des chiffres négatifs. Y'a toujours le truc suivant genre entrer un chiffre positif et la mon programme marche mais bon j'ai envie de trouver quelque chose de mieux :?

là tu lui demande d'entrer dans la boucle si N<0 ET N>p ce qui ne peut être satisfait....
ce que tu veux c'est entrer dans la boucle si tu n'a PAS 0<N<p et donc la négation de cet opération logique est: N<0 OU N>p en fortran dans le texgte cela donnerai:

Code:

---

do while (((N.lt.0).or.(N.gt.P)).and.IOS.ne.-1)

---

Tu devrais nous copier la totalité de ton programme pour que l'on puisse t'aider ;)
J'ai déjà codé un programme du même genre il y a quelques année pour une classe de terminales technologique:zoubi: