Çözüldü Sayılar (2 Soru) - Programlama

Konusu 'Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK' forumundadır ve ozgur_yoldas tarafından 25 Ağustos 2010 başlatılmıştır.

Yüklüyor...
  1. ozgur_yoldas

    ozgur_yoldas Yeni Üye

    Mesajlar:
    13
    Beğenileri:
    0
    1)
    Beş basamaklı ab128 sayısı 32 ile bölündüğünde kalan iki basamaklı farklı cd sayılarının toplamı kaçtır?

    A) 32
    B) 40
    C) 48
    D) 56
    E) 64

    2)
    ABCD Dört basamaklı sayısı 21 ile bölündüğünde bölüm 3 basamaklı bir sayı, kalan iki basamaklı KL sayısı ise KL sayılarının toplamı kaçtır?

    A) 210
    B) 205
    C) 165
    D) 155
    E) 145

    Şimdiden teşekkürler...
    Son düzenleyen: Moderatör: 25 Eylül 2025 15:40
    ozgur_yoldas, 25 Ağustos 2010
    #1
     
    : Fortran

    2. Benzer Konular: Sayılar Soru)
    Forum Başlık Tarih
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Trigonometri - Kareköklü Sayılar (2 Soru) 14 Ocak 2025
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Geometri - Orantı - Kareköklü ve Üstel Sayılar - Trigonometri (12 Soru) 24 Mart 2024
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK Asal Sayılar - Aritmetik Dizi - Programlama (8. Sınıf için ağır bir soru) 3 Eylül 2023
    Trigonometri,Karmaşık Sayılar,Logaritma,Parabol Polinomlar - Karmaşık Sayılar (2 Soru) (Matematikte İyi Niyetsizlik ve Kibir ÇOK Ayıptır!) 3 Mayıs 2023
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Faktöriyel ve Rasyonel Sayılarda Bölme - Çarpanlara Ayırma (ALES 2021, 4. Soru) 14 Mart 2022

  2. sncp142

    sncp142 Yeni Üye

    Mesajlar:
    153
    Beğenileri:
    29
    1.soru
    10000a+1000b+128=8b(mod 32)
    8b=cd dolayısıyla cd 16,24 olabilir. 32 ve 32 den sonrası olmaz çünkü bölüm kalandan büyük olur.

    2.soru
    Bence 10'dan 20'ye kadar olan bütün sayılar bunu sağlar. Çünkü 21'den küçük iki basamaklı sayıları almam lazım.
    Bunların toplamı da 165 eder.
    Son düzenleyen: Moderatör: 10 Ağustos 2017
    sncp142, 25 Ağustos 2010
    #2
    Honore bunu beğendi.
  3. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    10.502
    Beğenileri:
    652
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    Matematik, mühendislik, fizik, istatistik gibi alanlarda bilgisayar programlama (kodlama) ile ilgilenen öğrenciler için 1. sorunun Fortran çözümü:
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/cd_for10.png

    Program:
    Kod:
    ! Beş basamaklı ab128 sayısı 32 ile bölündüğünde kalan iki basamaklı
! farklı cd sayılarının toplamı kaçtır?
program bes_basamakli
integer :: a, b, ab128, cd, i = 0, j = 0, k = 0, p, temp, toplam=0
integer, allocatable :: cdx(:), res(:)

do a = 1, 9; do b = 0, 9
   ab128 = a*10**4 + b*1000 + 128
   cd = MOD(ab128, 32)
   if ((cd > 10).and.(cd < 100)) then
      i = i + 1
   endif  
enddo; enddo

allocate(cdx(i))

do a = 1, 9; do b = 0, 9
   ab128 = a*10**4 + b*1000 + 128
   cd = MOD(ab128, 32)
   if ((cd > 10).and.(cd < 100)) then
       j = j + 1; cdx(j) = cd
   endif  
enddo; enddo

allocate(res(size(cdx)))

res(1) = cdx(1)

do j=1,i
   if (any(res == cdx(j))) cycle
   k = k + 1
   res(k) = cdx(k)
enddo

print*,''
write(*,fmt='(a,i3,a,/)') 'Farkli cd kalanlarinin sayisi:',k,' adet.'

do j=1,k-1
   do p=j+1,k
      if (res(j) < res(p)) cycle
      temp=res(j)
      res(j)=res(p)
      res(p)=temp
    enddo
enddo

do j=1,k
   write(6,10)j,"    ",res(j)
   toplam = toplam + res(j)  
enddo

print*,''
write(6, 20)"Toplam cd = ",toplam

deallocate (cdx, res)

10 format(i1,a,i2)
20 format(a,i3)

end
    Honore, 25 Eylül 2025 16:24
    #3

Sayfayı Paylaş