EKOK - Programlama

Konusu 'Hatalı - Tekrarlanmış Sorular veya Çözümler (Faulty - Repeated Questions or Solutions)' forumundadır ve mutku tarafından 14 Eylül 2010 başlatılmıştır.

Yüklüyor...
  1. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    10.729
    Beğenileri:
    652
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    Soru bu haliyle yani şıkları olmadan hatalı çünkü ilk 100 doğal sayıda 12 tane var.
    Bilgisayar programlamayla (kodlama) ilgilenen öğrenciler için Fortran çözümü:
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/dogal_10.png

    Program:
    Kod:
    ! İlk 100 doğal sayı içinde birbirinden farklı ikisinin EKOK'u,
    ! küçük sayının 8 ve büyük sayının 5 katı ise bu iki doğal sayının toplamı
    ! kaç olabilir?
    program dogal_sayilar
    integer :: kucuk, buyuk, EKOK, lcm, No=1
    
    write(6, 15)"Ilk 100 dogal sayida 12 tane olabilir."
    write(6, 16) "Sira No    EKOK    Kucuk Sayi      Buyuk Sayi      Toplam"
    write(6, 16) "---------------------------------------------------------"
    
    do kucuk = 1, 100
       do buyuk = 1, 100
          if (kucuk >= buyuk) cycle
          EKOK = lcm(kucuk, buyuk)
          if ((EKOK == 8*kucuk).and.(EKOK == 5*buyuk)) then
             write(6, 20) "   ",No,"    ",EKOK,"        ",kucuk,"             ",buyuk,&
                          "         ",kucuk+buyuk
             No = No + 1
          endif           
       enddo
    enddo
    
    15 format(a,/)
    16 format(a)
    20 format(a,i2,a,i5,a,i3,a,i3,a,i5)
    
    end
    
    !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
    integer function gcd(v,t)
    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
Benzer Konular: Programlama
Forum Başlık Tarih
Mantık,Kümeler,Bağıntı ve Fonksiyon,İşlem ve Moduler Aritmetik Üstel Sayılar - Modüler Aritmetik - Bölme, Bölüm ve Kalan - Programlama 9 Ekim 2025
Limit ve Süreklilik,Türev,İntegral Belirli İntegralden Riemann Seri Toplamına Geçiş - Toplam Sembolü - Sonsuzda Limit - Programlama 2 Ekim 2025
Matematik - Geometri Tam Sayılarda Eşitlik - Programlama (LGS Düzeyi) 2 Ekim 2025
Matematik - Geometri Rakamlar ve Basamak Analizi - Programlama (LGS Düzeyi) 30 Eylül 2025
Polinomlar, Permütasyon, Kombinasyon, Olasılık ve Binom Açılımı İkinci Derece Polinom - Tam Sayılarda Bölünebilme - Programlama 26 Eylül 2025

Sayfayı Paylaş