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