Soru Kaos Diziliş - Programlama

Sayın Cem Hocam, ancak bilgisayara yaptırabildim ve 14833 adet farklı dizilişi olabiliyor diye buluyorum. Ekteki dosyada (hiperbol.txt) bu dizilişler var, aşağıdaki Kod bölümü de Fortran ile ilgilenenler için programın kendisi [Forumdaki Kod fonksiyonu derleyici (compiler) kadar görünüşünü güzel düzenleyemiyor ama aynen kopyalanıp çalıştırılabilir] Uygun bir zamanınız olursa kontrol edersiniz, çok selâmlar, sevgiler, hürmetler. Diğer sayın hocalarımızdan veya üyelerden de ilgilenip çözüm gönderenler olursa onlara da şimdiden çok teşekkürler.

http://i1038.photobucket.com/albums/a470/hdbalzac/Questions and-or Solutions/hiperbol_1.png

Kod:

! "HİPERBOL" kelimesinin harfleri, hiçbir harf kelimedeki aslî yerinde
! olmamak üzere kaç farklı şekilde dizilebilir?
program hiperbol
implicit none
integer:: i,k,m,n,o,p,q,r,s,toplam=0
character A(8)

A(1)='H';A(2)='I';A(3)='P';A(4)='E';A(5)='R';A(6)='B';A(7)='O';A(8)='L'

open(unit=1, file="hiperbol.txt")

do i=12345678,87654321

  k=mod(i,10**1)/10**0
  m=mod(i,10**2)/10**1
  n=mod(i,10**3)/10**2
  o=mod(i,10**4)/10**3
  p=mod(i,10**5)/10**4
  q=mod(i,10**6)/10**5
  r=mod(i,10**7)/10**6
  s=mod(i,10**8)/10**7

  if ((k.ne.8).and.(k.ne.0).and.(k.ne.9)) then
  if ((m.ne.7).and.(m.ne.0).and.(m.ne.9)) then
  if ((n.ne.6).and.(n.ne.0).and.(n.ne.9)) then
  if ((o.ne.5).and.(o.ne.0).and.(o.ne.9)) then
  if ((p.ne.4).and.(p.ne.0).and.(p.ne.9)) then
  if ((q.ne.3).and.(q.ne.0).and.(q.ne.9)) then
  if ((r.ne.2).and.(r.ne.0).and.(r.ne.9)) then
  if (s.ne.1) then

  if ( (k.ne.m).and.(k.ne.n).and.(k.ne.o).and.  &
&  (k.ne.p).and.(k.ne.q).and.(k.ne.r).and.  &
&  (k.ne.s).and.  &

&  (m.ne.n).and.(m.ne.o).and.(m.ne.p).and.  &
&  (m.ne.q).and.(m.ne.r).and.(m.ne.s).and.  &

&  (n.ne.o).and.(n.ne.p).and.(n.ne.q).and.  &
&  (n.ne.r).and.(n.ne.s).and.  &

&  (o.ne.p).and.(o.ne.q).and.(o.ne.r).and.  &
&  (o.ne.s).and.  &

&  (p.ne.q).and.(p.ne.r).and.(p.ne.s).and.  &

&  (q.ne.r).and.(q.ne.s).and.  &

&  (r.ne.s)  ) then

toplam=toplam+1
write(1,10) A(i/10**7)//A(mod(i/10**6,10))//A(mod(i/10**5,10))//  &
& A(mod(i/10**4,10))//A(mod(i/10**3,10))//A(mod(i/10**2,10))//  &
& A(mod(i/10**1,10))//A(mod(i,10))

  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif
  endif

enddo

write(1,20)'Toplam ',toplam,' adet farkli dizilis var.'
write(6,20)'Toplam ',toplam,' adet farkli dizilis var, hiperbol.txt dosyasina bakin.'
10 format(a8)
20 format(a8,i5,a)

close(1)

end