Çözüldü Basamak Analizi - Programlama

Konusu 'Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK' forumundadır ve Honore tarafından 17 Aralık 2022 başlatılmıştır.

Yüklüyor...
  1. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    10.203
    Beğenileri:
    655
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/abcd10.png
    https://www.facebook.com/photo/?fbid=1590101234770572&set=gm.1935936493465184&idorvanity=756598921398953
    (Daha sonra silinmiş.)

    Yukarıdaki çözümü beğenmedim çünkü uydurma.

    A, B, C, D = {1, 2,..., 9} olup en küçük sayı 1000 + 100 + 1 - 10·C = 1101 - 10·C = f(ABCD)
    C = 1 ⇒ f(ABCD) = 1101 - 10 = 1091 ⇒ g(ABCD) = 1 + 1 + 1 + 1 = 4 ⇒ g[ f(ABCD) ] = 1 + 0 + 9 + 1 = 11 ≠ 4 + 3
    C = 2 ⇒ f(ABCD) = 1101 - 20 = 1081 ⇒ g(ABCD) = 1 + 1 + 2 + 1 = 5 ⇒ g[ f(ABCD) ] = 1 + 0 + 8 + 1 = 10 ≠ 5 + 3
    C = 3 ⇒ f(ABCD) = 1101 - 30 = 1071 ⇒ g(ABCD) = 1 + 1 + 3 + 1 = 6 ⇒ g[ f(ABCD) ] = 1 + 0 + 7 + 1 = 9 = 6 + 3.

    Bilgisayar Programlamayla İlgilenen Öğrenciler İçin Fortran Çözümü:
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/abcd_f10.png

    Program:
    Kod:
    PROGRAM f_g_ABCD
    IMPLICIT NONE
    integer::A,B,C,D,A1,B1,C1,D1,A2,B2,C2,D2,ABCD,f_ABCD,g_ABCD,g_f_ABCD
    
    ilk: do A=1,9
      do B=1,9
        do C=1,9
          do D=1,9
     
             ABCD = 1000*A + 100*B - 10*C + D
     
             D1 = MOD(ABCD,10)
             C1 = MOD(ABCD/10,10)
             B1 = MOD(ABCD/100,10)
             A1 = MOD(ABCD/1000,10)
        
             g_ABCD = A1 + B1 + C1 + D1
    
             f_ABCD = 1000*A1 + 100*B1 - 10*C1 + D1
        
             D2 = MOD(f_ABCD,10)
             C2 = MOD(f_ABCD/10,10)
             B2 = MOD(f_ABCD/100,10)
             A2 = MOD(f_ABCD/1000,10)
        
             g_f_ABCD = A2 + B2 + C2 + D2
        
             if (g_f_ABCD == (g_ABCD + 3)) then
                print*,C1
                exit ilk
             endif
     
          enddo
        enddo
      enddo
    enddo ilk
    
    END PROGRAM
     
    : Fortran

  2. Benzer Konular: Basamak Analizi
    Forum Başlık Tarih
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK Doğal Sayılarda Basamak Analizi - Programlama 24 Ocak 2025
    Hatalı - Tekrarlanmış Sorular veya Çözümler (Faulty - Repeated Questions or Solutions) Toplamada Basamak Analizi (Baskı kontrol edilmeden piyasaya sürülmüş!) 12 Ekim 2024
    Hatalı - Tekrarlanmış Sorular veya Çözümler (Faulty - Repeated Questions or Solutions) Basamak Analizi - Programlama (Seçenekler Hatalı) 4 Eylül 2024
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK İki Basamaklı Pozitif Doğal Sayılarda Basamak Analizi 31 Aralık 2023
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Doğal Sayılar ve Basamak Analizi 22 Kasım 2023

Sayfayı Paylaş