Çö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:
    11.054
    Beğenileri:
    652
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    [​IMG]
    https://i.ibb.co/pQf0tr8/EBOB-EKOK.png
    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
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Ardışık Tek Sayıların Toplamı - Toplam Sembolü - Programlama Pazar 16:39
    Denklem Çözme, Eşitsizlikler, Oran-Orantı, Özdeşlikler ve Çarpanlara Ayırma Tam Sayılar Kümesinde Tek Bilinmeyenli Denklem Çözümü - Programlama 9 Nisan 2026
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK Aritmetik Ortalama - 3 Bilinmeyenli 2 Denklem - Eşitsizlik - Programlama 7 Nisan 2026
    Hareket, Hız, Yüzde, Faiz, Sayısal Yetenek Problemleri ve Genel Kavramlar Hareket ve Hız Problemi - Dairede Merkez Açı - Modüler Aritmetik - Programlama 3 Nisan 2026
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Asal Sayılar - Programlama 14 Mart 2026

Sayfayı Paylaş