Discussion :

[feynman]

Bonjour,
je suis un débutant en Fortran, j'essaye d'écrire un programme pour créer un tableau A tel que A(i)= i+2. Je suis sûr qu'on doit mettre une boucle de type do enddo mais je n'ai pas su quoi mettre dans cette boucle. Pouvez-vous me compléter mon programme ci-dessous ? Merci pour votre aide

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
program tableau 
implicit none
integer I
 
print* ,'entrer le nombre n:'
read*,n
REAL:: A(n) 
integer n
 
 
      do i=1,n
 
      enddo 
 
end

[cyrius24]

TOUJOURS LES DECLARATIONS EN PREMIER (rien avant)

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
program test 
implicit none
 
integer :: n,i
real,dimension(:),allocatable :: A
 
write(*,*) 'entrer le nombre n:'
read(*,*) n
 
allocate(A(n))
 
do i=1,n
A(i)=i+2.
end do 
 
end program test

[cyrius24]

c'est dimension( : )

[feynman]

TOUJOURS LES DECLARATIONS EN PREMIER (rien avant)

program test
implicit none

integer :: n,i
real,dimension(,allocatable :: A

write(*,*) 'entrer le nombre n:'
read(*,*) n

allocate(A(n))

do i=1,n
A(i)=i+2.
end do

end program test

Merci pour votre reponse, j ai esseye' le programme , mais il m a donne' que le nombre n, je veux faire apparaitre le tableau A, alors comment faire?

[Sylvain Bergeron]

Pour afficher le tableau A:

Code :

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

1
2
 
write(*,*)A

Ça affiche le tableau sur une ligne. Mais ce n'est pas très lisible, surtout si n est grand. Il est préférable d'afficher aussi les indices :

Code :

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

1
2
 
write(*,*) (i, A(i), i=1, n)

Ça s'affiche toujours sur une ligne, mais avec des indices. Il serait cependant préférable d'afficher un élément par ligne. Par ce faire, le plus simple est d'afficher un élément à la fois, soit 1 élément par write :

Code :

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

1
2
3
4
 
do i = 1, n
  write(*,*) i, A(i)
enddo

[feynman]

Pour afficher le tableau A:

Code :

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

1
2
 
write(*,*)A

Ça affiche le tableau sur une ligne. Mais ce n'est pas très lisible, surtout si n est grand. Il est préférable d'afficher aussi les indices :

Code :

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

1
2
 
write(*,*) (i, A(i), i=1, n)

Ça s'affiche toujours sur une ligne, mais avec des indices. Il serait cependant préférable d'afficher un élément par ligne. Par ce faire, le plus simple est d'afficher un élément à la fois, soit 1 élément par write :

Code :

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

1
2
3
4
 
do i = 1, n
  write(*,*) i, A(i)
enddo

Donc comment ca devient le program en totale si j utilise ton dernier code?

[Sylvain Bergeron]

Tu dois afficher le tableau après lui avoir assigné des valeurs.

[feynman]

C'est-à-dire comme ça :

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
program test 
implicit none
 
integer :: n,i
real,dimension(:),allocatable :: A
 
write(*,*) 'entrer le nombre n:'
read(*,*) n
 
allocate(A(n))
 
do i=1,n
A(i)=i+2.
enddo 
do i = 1, n
  write(*,*) i, A(i)
enddo
end

?
A quoi ça sert alors allocatable :: A? et est-ce qu'il y a une commande équivalente ?
Merci de nouveau

[Sylvain Bergeron]

C est a dire comme ca :
...
do i=1,n
A(i)=i+2.
enddo
do i = 1, n
write(*,*) i, A(i)
enddo
...

Tout à fait. Remarque que tu pourrais combiner les boucles comme suit :

Code :

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

1
2
3
4
5
6
...
do i = 1, n
  A(i)=i+2.
  write(*,*) i, A(i)
enddo
...

mais en pratique, dans un programme plus imposant, il faut presque toujours séparer les tâches de calculs et les tâches d'impression. La première forme est donc « meilleure ».

A quoi ca sert alors allocatable :: A? et est ce qu il y a une commande equivalente?

Ça sert à déclarer un tableau dont les dimensions ne seront déterminées qu'à l'exécution. Il n'y a pas vraiment de commande équivalente.

En F77, il n'y avait pas d'allocatable. On devait déclarer les tableaux assez grand pour supporter les plus gros cas prévus et valider si la situation était prévue:

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
20
21
program test77
implicit none
 
integer n,i,DimMaxA
parameter (DimMaxA=1000)
real A(DimMaxA)
 
write(*,*) 'entrer le nombre n:'
read(*,*) n
if (n .gt. DimMaxA) then
  write(*,*) 'n est trop grand'
  stop
endif
 
do i=1,n
A(i)=i+2.
enddo
do i = 1, n
write(*,*) i, A(i)
enddo
end