Çözüldü Sayılar (2 Soru) - Programlama

Bravo... Değili'nden... Tabiî ki; tümünden rakamları farklı olanları çıkarırsan en az ikisi aynı olanlar kalır. Ben de düşündüm bunu da, o an için idrak edemedim herhâlde bu nüansı. Aklımda çıkarma işlemini yanlış yapmışım. Olmaz diye düşündüm. Düzünden çözdüm.
Çok iyi bir çözüm oldu. Bayağı ilerletmişsiniz bu konuyu o zaman. Bu çözümden o anlaşılıyor.
Başka bir çözüm daha var.

Bütün (aşağı-yukarı) bu tür permutasyon - kombinasyon soruları değilinden de çözülebilmektedir. Bu inceliği bilmeme rağmen çözülemiyor diye hükmettim her ne hikmet ise...

Matematik, istatistik, mühendislik ve fen alanlarında bilgisayar programlamayla ilgilenen öğrenciler için 2. sorunun Fortran uygulaması:

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

Not: Programın verdiği Sayilar.txt dpsyasi ektedir.

Program:

Kod:

! A = {0, 2, 4, 7} kümesinin elemanlarıyla en az iki basamağı aynı olan
! dört basamaklı kaç farklı doğal sayı yazılabilir?
program dortbasamakli
implicit none
integer :: sayi, bir, on, yuz, bin, no = 0

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

do sayi = 2000, 7777
 
   bir = MOD(sayi, 10); on = MOD(sayi / 10, 10)
   yuz = MOD(sayi / 100, 10); bin = sayi / 1000
 
   if ( (bir /= 0).and.(bir /= 2).and.(bir /= 4).and.(bir /= 7) ) cycle
   if ( (on /= 0).and.(on /= 2).and.(on /= 4).and.(on /= 7) ) cycle
   if ( (yuz /= 0).and.(yuz /= 2).and.(yuz /= 4).and.(yuz /= 7) ) cycle
   if ( (bin /= 2).and.(bin /= 4).and.(bin /= 7) ) cycle
   if ( (bir /= on).and.(bir /= yuz).and.(bir /= bin).and. &
        (on /= yuz).and.(on /= bin).and.(yuz /= bin) ) cycle
 
   no = no + 1; write(1, 10) no,"   ",sayi

enddo

print*, no, " adet sayi var. Sayilar.txt dosyasina bakiniz."

10 format (2(i4,a))

close(1)

end