Basamak Analizi - Programlama (Seçenekler Hatalı)

https://i72.servimg.com/u/f72/19/97/10/39/basama22.png
https://www.facebook.com/photo/?fbi...m.2204400286605139&idorvanity=289690338076153
(Soruyu yollayan kişi, "Cevap üzerindeki olmayabilir" notunu eklemiş.)

a, d, x ∈ {1, ..., 9} ve b, c, e, f, y, z ∈ {0, ... 9} olmak üzere;
100·a + 10·b + c = (100·4 + 10·2 + 1) + (100·d + 10·e + f) + (100·x + 10·y + z)
100·a + 10·b + c = 100·(4 + d + x) + 10·(2 + e + y) + (1 + f + z)
a = 4 + d + x....(I)
b = 2 + e + y....(II)
c = 1 + f + z....(III)
(I)'de minimum a sayısı için ancak d = 1 ve x = 2 alınabileceğinden a = 4 + 1 + 2 = 7,
(II)'de minimum b sayısı için ancak e = 0 ve y = 3 alınabileceğinden b = 2 + 0 + 34 = 5,
b = 5 olmasına rağmen (III)'te minimum c sayısı için f = 5 ve z = 8 alınırsa c = 1 + 5 + 8 => 13 - 10 = 3 ve c = 1 + 3 = 4 olup çıkartılan 10 sayısı b'ye 1 eklenerek b = 5 + 1 = 6 olur ve şartlara göre aranan en küçük abc sayısı 764 bulunur.

Bilgisayar Programlamayla İlgilenen Öğrenciler İçin Fortran Uygulaması:

https://i72.servimg.com/u/f72/19/97/10/39/basama23.png

Program:

Kod:

program hello
integer a,b,c,d,e,f,x,y,z

ilk: do a = 1,9
  do b=0,9
    do c = 0,9
      do d = 1,9
        do e = 0,9
          do f = 0,9
            do x = 1,9
              do y = 0,9
                do z = 0, 9
if ( (a==b).or.(a==c).or.(a==d).or.(a==e).or.(a==f).or.(a==x).or. &
     (a==y).or.(a==z).or. &
  
     (b==c).or.(b==d).or.(b==e).or.(b==f).or.(b==x).or. &
     (b==y).or.(b==z).or. &
  
     (c==d).or.(c==e).or.(c==f).or.(c==x).or. &
     (c==y).or.(c==z).or. &
  
     (d==e).or.(d==f).or.(d==x).or.(d==y).or.(d==z).or. &
  
     (e==f).or.(e==x).or.(e==y).or.(e==z).or. &
  
     (f==x).or.(f==y).or.(f==z).or. &
  
     (x==y).or.(x==z).or. &
  
     (y==z) ) then
              cycle
     else
    
     if ((100*a+10*b+c-100*d-10*e-f-100*x-10*y-z)==421) then
        print*,""
        write(6,10) "    abc Sayisi = ",a,b,c
        write(6,10) "    def Sayisi = ",d,e,f
        write(6,10) "    xyz Sayisi = ",x,y,z
        exit ilk
     else
        cycle
     endif
    
endif    
    
enddo;enddo;enddo;enddo;enddo;enddo;enddo;enddo;enddo ilk

10 format (a,3(i1),/)

end program Hello