Discussion :

[zerbault]

bonjour j'ai un programme qui fonctionnait bien et là, quand je le reéxecute, il me met en resultat des ****
c'est un programme qui fait un triangle de pascal et les variables sont : le nom du fichier de sortie et le nombre de lignes du triangle de pascal a afficher.
Pouvez-vous m'indiquer ce qu'il ne va pas:

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 Triangle
      integer :: n
      integer :: i
100        format (50I5)
          character*16 :: nom
          integer,allocatable::c(:)
          write(*,*)'entrer le nombre de lignes (20 max)'
          read(*,*)n
          write(*,*)'nom du fichier de sortie'
          read(*,*)nom
          open(11,file=nom)
          write(11,*)'Nombre de lignes :',n
          allocate (c(0:n))
      c(1) = 1
      do i = 1, n
         c(1:i) = c(1:i) + c(0:i-1)
         write(*,100)c(1:i)
                 write(11,100)c(1:i)
      enddo
          close(11)
 end

[Sylvain Bergeron]

Le problème semble simplement que c(0) n'est pas initialisé à 0. J'ai modifié comme suit

Code :

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

1
2
3
4
5
6
 
...
allocate (c(0:n))
C(:) = 0
C(1) = 1
do ...

et tout fonctionne.

[zerbault]

Merci beaucoup, en fait j'avais vu juste apres avoir posté mais j'avais pas eu le temps de mettre à jour mon message.

Merci