Fortran demande à l'utilisateur d'entrer un tableau

Version imprimable

Bonjour à toutes et à tous,

Je suis en train de faire un projet en Fortran. Il y a un moment où dans mon algorithme, j'ai besoin de demander à l'utilisateur d'entrer un tableau de valeur. C'est pour ensuite procéder à une décomposition QR. Je souhaite savoir si cela est possible. J'ai essayé de la manière suivante mais ça ne marche pas :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 program entrertableau implicit none integer :: nblig integer :: nbcol integer, dimension( : , : ), allocatable :: A write(*,"('Entrez le nbre de ligne de A :')"); read(*,*) nblig write(*,"('Entrez le nbre de colonne de A :')"); read(*,*) nbcol allocate(A(nblig,nbcol)) write(*,"('Entrez A')") A write(*,*) write(*,*) A stop 'fin' end program entrertableau
Si vous avez une indication qui me permettrait de résoudre mon problème, j'en serait très reconnaissant.

Ps: nous n'avons pas encore vu les fonctions genre OPEN ou autres permettant d'ouvrir un fichier et de lire les données se trouvant à l'intérieur

Merci d'avance,

Bien à vous.

Salut,
Voici une solution utilisant des boucles :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program entrertableau
 
implicit none
integer :: nblig
integer :: nbcol
integer :: i, j
integer, dimension( : , : ), allocatable :: A
 
write(*,"('Entrez le nbre de ligne de A :')"); read(*,*) nblig
write(*,"('Entrez le nbre de colonne de A :')"); read(*,*) nbcol
 
allocate(A(nblig,nbcol))
 
print '(a)', 'Entrez chaque coefficient de A (colonne par colonne) :'
do j = 1, nbcol
    do i = 1, nblig
        read '(i9)', A(i,j)
    enddo
enddo
 
print '(a)', 'Voici A :'
do i = 1, nblig
    do j = 1, nbcol
        print '(i9x$)', A(i,j)
    enddo
    print *
enddo
 
deallocate(A)
stop 'fin'
 
end program entrertableau

Salut,

Merci beaucoup pour ton aide, en effet j'ai utilisé une boucle. Mais j'ai oublié de désallouer mon tableau à la fin. Voilà ce que j'ai fait :

Code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
write(*,"('Entrez le nombre de points dont vous connaissez la valeur de la fonction F :')"); read(*,*) nbpoints
 
if(.not. allocated(ABSCISSES)) then
  allocate(ABSCISSES(nbpoints,1),stat=pballocation )
  if(pballocation .GT. 0) then
     stop " Erreur: probleme memoire "   
  end if
end if
 
if(.not. allocated(ORDONNEES)) then
  allocate(ORDONNEES(nbpoints,1),stat=pballocation )
  if(pballocation .GT. 0) then
     stop " Erreur: probleme memoire "   
  end if
end if
 
do i=1,nbpoints
  num=i
  write(*,"('Entrer la valeur de l''abscisse de votre point',i5,':')") num
  read(*,*) x
  ABSCISSES(i,1)=x
  write(*,"('Entrer la valeur de l''ordonnee  de votre point',i5,':')") num
  read(*,*) y      
  ORDONNEES(i,1)=y
end do
 
write(*,"('Les abscisses de vos points sont :')")
write(*,*) ABSCISSES
write(*,*)
write(*,"('Les ordonnees de vos points sont :')")
write(*,*) ORDONNEES
write(*,*)
 
 
if(.not. allocated(T)) then
  allocate(T(2,nbpoints),stat=pballocation )
  if(pballocation .GT. 0) then
     stop " Erreur: probleme memoire "   
  end if
end if
 
do i=1,nbpoints
     T(1,i)=ABSCISSES(i,1)
     T(2,i)=ORDONNEES(i,1)
end do    
 
write(*,"('Voila le tableau X contenant les coordonnees de vos differents points :')")
write(*,*)
write(*,"('T=')")
do i=1,2
   write(*,*) T(i,:)
end do

Bonne journée !

Et merci encore ;)