Discussion :

[nebilabd]

Bonjour j'ai un problème avec le stockage morse , j'aimerai le faire à l'aide de ce programme :

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
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
program morse
implicit none
integer, parameter :: nn=10, n=nn*nn,pmax=n+4*nn*(nn-1)
integer :: k,j,i,p,ii,jj
real*8,dimension(1:pmax) :: A
integer,dimension(1:pmax) :: indi, indj
!stockage morse
p=0
 do k=1,n
       p=p+1
       indi(p)=k           
       indj(p)=k
	   A(p)=4
 end do
 ! 
 do ii=1,nn-1
       do jj=1,nn
	        p=p+1
			i=ii+(jj-1)*nn
			j=ii+1+((jj-1)*nn)
			A(p)=-1
			indi(p)=i
			indj(p)=j
			p=p+1
			A(p)=-1
			indi(p)=j
			indj(p)=i
	    end do
end do
!
do ii=1,nn
     do jj=1,nn-1
	 i=ii+(jj-1)*nn
	 j=ii+(jj*nn)
	 p=p+1
	 A(p)=-1
	 indi(p)=i
	 indj(p)=j
	 p=p+1
	 A(p)=-1
	 indi(p)=j
	 indj(p)=i
	 end do
end do
write (*,*) A
 
end program morse

Merci de m'aider à le faire

[nebilabd]

j'ai essayé avec ce bout de code mais sa a pas marché :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
do ii=1,nn
    if(indi(ii).eq.indj(ii))
		atab(ii)=4.
 
	if (indi(ii).eq.(indj(ii)-1))
	    atab(ii)=-1.
 
	if (indi(ii).eq.(indj(ii)+1))
	    atab(ii)=-1.
	end if
end do
write(*,*) atab

[Ehouarn]

Bonjour,

Quelques explications sur ce que tu comptes faire (personnellement je ne sais pas ce qu'est le "stockage morse", et la lecture de ton code non commenté n'aide pas vraiment) et ce qui "ne fonctionne pas" seraient bienvenus...