Discussion :

[breizh297]

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

[genteur slayer]

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 :

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

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)

[breizh297]

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

[genteur slayer]

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

Code :

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

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 :

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

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

[breizh297]

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

Code :

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

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

[breizh297]

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

Code :

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

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 ?