Çözüldü Permütasyon - Basamak Analizi - Programlama

Konusu 'Üniversitelerin Sayısal Bölümlerini Hedefleyen Dokuzuncu Sınıflar' forumundadır ve Honore tarafından 7 Mart 2021 başlatılmıştır.

Yüklüyor...
  1. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    6.289
    Beğenileri:
    652
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    [​IMG]
    https://i.ibb.co/TrJkZVd/sayilar-soru.png
    https://scontent.fayt2-1.fna.fbcdn....=bf2091198e9233f3fa2185e9004a9d38&oe=606ADC21
    https://www.facebook.com/photo?fbid=1405569763135583&set=pcb.4423946017620729
    https://www.facebook.com/photo?fbid=1405586443133915&set=pcb.4423946017620729 (Çözüm)

    Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması:
    [​IMG]
    https://i.ibb.co/FqfmXLn/sayilar-Fortran.png

    Program:
    Kod:
    program sayilar
    implicit none
    integer :: bir,on,yuz,bin,onbin,yuzbin,sayi,i=1
    
    open (unit = 1, file = "sayilar.txt")
    
    do sayi=123456,654321
    
    bir = MOD(sayi / 10**0,10)
    on = MOD(sayi / 10**1,10)
    yuz = MOD(sayi / 10**2,10)
    bin = MOD(sayi / 10**3,10)
    onbin = MOD(sayi / 10**4,10)
    yuzbin = MOD(sayi / 10**5,10)
    if (MOD(yuzbin,2)/=0) cycle
      
    if((bir == 0).or.(bir > 6).or.(on == 0).or.(on > 6).or.                &
       (yuz == 0).or.(yuz > 6).or.(bin == 0).or.(bin > 6).or.              &
       (onbin == 0).or.(onbin > 6).or.(yuzbin == 0).or.(yuzbin > 6)) cycle
          
    if((bir==on).or.(bir==yuz).or.(bir==bin).or.(bir==onbin).or.           &
       (bir==yuzbin).or.(on==yuz).or.(on==bin).or.(on==onbin).or.          &
       (on==yuzbin).or.(yuz==bin).or.(yuz==onbin).or.(yuz==yuzbin).or.     &
       (bin==onbin).or.(bin==yuzbin).or.(onbin==yuzbin)) cycle
          
    if (((MOD(onbin,2)/=0).and.(MOD(bin,2)/=0).and.(MOD(yuz,2)/=0)).or.    &
       ((MOD(bin,2)/=0).and.(MOD(yuz,2)/=0).and.(MOD(on,2)/=0)).or.        &
       ((MOD(yuz,2)/=0).and.(MOD(on,2)/=0).and.(MOD(bir,2)/=0))) then
       write(1,10)i,sayi
       i=i+1
    endif  
      
    enddo
    
    close(1)
    
    write(6,15)i-1," adet sayi yazilabilir. sayilar.txt dosyasina bakiniz."
    
    10 format(i3,5x,i6)
    15 format(i3,a,/)
    
    end program
    Uygun Sayıların Listesi (Ayrıca ektedir):
    1 213546
    2 213564
    3 215346
    4 215364
    5 231546
    6 231564
    7 235146
    8 235164
    9 241356
    10 241536
    11 243156
    12 243516
    13 245136
    14 245316
    15 246135
    16 246153
    17 246315
    18 246351
    19 246513
    20 246531
    21 251346
    22 251364
    23 253146
    24 253164
    25 261354
    26 261534
    27 263154
    28 263514
    29 264135
    30 264153
    31 264315
    32 264351
    33 264513
    34 264531
    35 265134
    36 265314
    37 413526
    38 413562
    39 415326
    40 415362
    41 421356
    42 421536
    43 423156
    44 423516
    45 425136
    46 425316
    47 426135
    48 426153
    49 426315
    50 426351
    51 426513
    52 426531
    53 431526
    54 431562
    55 435126
    56 435162
    57 451326
    58 451362
    59 453126
    60 453162
    61 461352
    62 461532
    63 462135
    64 462153
    65 462315
    66 462351
    67 462513
    68 462531
    69 463152
    70 463512
    71 465132
    72 465312
    73 613524
    74 613542
    75 615324
    76 615342
    77 621354
    78 621534
    79 623154
    80 623514
    81 624135
    82 624153
    83 624315
    84 624351
    85 624513
    86 624531
    87 625134
    88 625314
    89 631524
    90 631542
    91 635124
    92 635142
    93 641352
    94 641532
    95 642135
    96 642153
    97 642315
    98 642351
    99 642513
    100 642531
    101 643152
    102 643512
    103 645132
    104 645312
    105 651324
    106 651342
    107 653124
    108 653142

    Ekli Dosyalar:

     
    : Fortran

  2. Benzer Konular: Permütasyon Basamak
    Forum Başlık Tarih
    Matematik - Geometri Ters Trigonometrik Fonksiyonlar - Pisagor Teoremi - Permütasyon 3 Temmuz 2021
    Polinomlar, Permütasyon, Kombinasyon, Olasılık ve Binom Açılımı Permütasyon (TANTANA Kelimesi) 26 Aralık 2020
    Hatalı veya Tekrarlanmış Sorular Permütasyon (Seçenekler Yanlış) - Programlama 22 Kasım 2020
    Polinomlar, Permütasyon, Kombinasyon, Olasılık ve Binom Açılımı Olasılık - Kombinasyon - Permütasyon 15 Temmuz 2020
    Matematik - Geometri Sayma İlkeleri - Permütasyon - Kombinasyon (3 Soru) 19 Ekim 2019

Sayfayı Paylaş