Çözüldü EBOB - EKOK - Programlama

Konusu 'Matematik - Geometri' forumundadır ve TalhaEnes tarafından 4 Eylül 2015 başlatılmıştır.

Yüklüyor...
  1. TalhaEnes

    TalhaEnes Yeni Üye

    Mesajlar:
    2
    Beğenileri:
    0
    Cinsiyet:
    Bay
    obeb(a,b) = 4 ve okek(a,b) = 420 ise a+b toplamı en az kaçtır?
    Son düzenleyen: Moderatör: 29 Eylül 2023
    TalhaEnes, 4 Eylül 2015
    #1
     
    : Fortran

    2. Benzer Konular: Programlama
    Forum Başlık Tarih
    Zor Sorular (Akademik Problemler Hariç) Dokuz Bilinmeyenli Lineer Denklem - Programlama (Kısa çözüm varsa çok sevinirim.) 14 Ağustos 2026
    Limit ve Süreklilik,Türev,İntegral Üstel Fonksiyonlu Denklem-Türev-Ara Değer (Intermediate Value) Teoremi-Programlama 24 Temmuz 2026
    Hatalı - Tekrarlanmış Sorular veya Çözümler (Faulty - Repeated Questions or Solutions) Polinom Sayısı - Programlama 21 Temmuz 2026
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK Basamak Analizi - Eşitsizlik - Programlama 11 Temmuz 2026
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK Pozitif Tam Sayılar - Programlama 6 Temmuz 2026

  2. ekoert06

    ekoert06 Yeni Üye

    Mesajlar:
    7
    Beğenileri:
    9
    Cinsiyet:
    Bay
    420 = 3x4x5x7
    a = 4x7=28
    b = 4x3x5 = 60
    a+b =28 + 60 = 88
    ekoert06, 5 Eylül 2015
    #2
    Honore bunu beğendi.
  3. murat_16

    murat_16 Yeni Üye

    Mesajlar:
    355
    Beğenileri:
    127
    Başka bir yol
    a=4k,b=4m kve m aralaında asal
    okek(a,b) = 420
    4.k.m=420
    k.m=105
    k=7,m=15 alırsak
    a=28,b=60
    a+b=88
    murat_16, 15 Eylül 2015
    #3
    Honore bunu beğendi.
  4. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    11.376
    Beğenileri:
    652
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    Bilgisayar programlama (kodlama) ile ilgilenen öğrenciler için Fortran çözümü:
    [​IMG]
    https://i.ibb.co/sv0FTsNn/ab-Fortran.png

    Program:
    Kod:
    ! obeb(a,b) = 4 ve okek(a,b) = 420 ise a+b toplamı en az kaçtır?
program EBOB_ve_EKOK

integer :: a, b, lcm, gcd, i = 0
integer, allocatable :: a_arti_b(:)

do a = 1, 420; do b = 1, 420

  if ((GCD(a, b) == 4).and.(LCM(a, b) == 420)) then
     i = i + 1
  endif
 
enddo; enddo

allocate (a_arti_b(i)); i = 1

do a = 1, 420; do b = 1, 420

  if ((GCD(a, b) == 4).and.(LCM(a, b) == 420)) then
      a_arti_b(i) = a+ b; i = i + 1
  endif
 
enddo; enddo

print*, MINVAL(a_arti_b)

deallocate (a_arti_b)

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
 
end function gcd
    Honore, 19 Şubat 2026
    #4

Sayfayı Paylaş