Çözüldü EBOB - EKOK - Programlama

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

Yüklüyor...
  1. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    5.284
    Beğenileri:
    638
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    [​IMG]
    https://i.ibb.co/pQf0tr8/EBOB-EKOK.png
    https://scontent.fayt2-1.fna.fbcdn....=7286322301a2896f7a767daefd698685&oe=5FD9B324
    https://www.facebook.com/photo?fbid=2903666859857342&set=gm.4111829865499014

    [ EKOK(A, B) ]·[ EBOB(A, B) ] = A·B olduğundan { 6·[ EBOB(A, B) ] }^2 = A·B yazılıp;
    [ (√(A·B) ] / 6 = EBOB(A, B) eşitliğine göre ve A ve B iki basamaklı doğal sayılar olmak şartıyla A·B çarpımının da karekökü alınabilen bir doğal sayı olabilmesi için En Büyük(A + B) sayısını vermek üzere A = 99 = 9·11 seçilirse B = 4·11 = 44 olacağından;
    En Büyük(A + B) = 99 + 44 = 143 bulunur.

    Bilgisayar Programlamayla İlgilenen Öğrenciler İçin Fortran Uygulaması
    [​IMG]
    https://i.ibb.co/wMdYyDD/EBOB-EKOK-Fortran.png

    Program
    Kod:
    program LCMGCD2
    implicit none
    integer :: lcm,gcd,Ax,Bx,boyut=1,AartiB(20)=0
    
    do Ax=10,99
      do Bx=10,99
         if (lcm(Ax,Bx)==36*gcd(Ax,Bx)) then
             write(6,10) Ax,' ',Bx,' ',Ax+Bx
             AartiB(boyut)=Ax+Bx
             boyut=boyut+1
          endif
      enddo
    enddo 
    
    print*,""
    write(6,15)"Maksimum(A + B) = ",maxval(AartiB)
    
    10 format (3(i3,a)) 
    15 format (a,i3,/)
    
    end program
    
    !Modified version of https://rosettacode.org/wiki/Least_common_multiple#Fortran
    integer function lcm(a,b)
    integer:: a,b,gcd
    lcm = a*b / gcd(a,b)
    end function lcm
    
    !https://rosettacode.org/wiki/Greatest_common_divisor#Iterative_Euclid_algorithm_3
    function gcd(v,t)
    integer :: gcd
    integer, intent(in) :: v, t
    integer :: c, b, a
    b = t
    a = v
    do
      c = mod(a, b)
      if (c == 0) exit
         a = b
         b = c
    end do
    
      gcd = b ! abs(b)
    
    end function gcd
     
    : Fortran

  2. Benzer Konular: Programlama
    Forum Başlık Tarih
    Akademik Soru Çözümleri ve Kaynakları Doğrusal Programlama - Yöneylem Araştırması (Operations Research) 2 Ocak 2021
    Hatalı veya Tekrarlanmış Sorular Permütasyon (Seçenekler Yanlış) - Programlama 22 Kasım 2020
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK EBOB - EKOK - Programlama 17 Kasım 2020
    Hatalı veya Tekrarlanmış Sorular Tamsayılar - Doğal Sayılar - Bölünebilme - Programlama (Seçenekler Yanlış) 10 Kasım 2020
    Matematik - Geometri Bölünebilme - Modüler Aritmetik - Programlama 7 Kasım 2020

Sayfayı Paylaş