Çözüldü Çarpma ile Sayma

Konusu 'Hareket,Yüzde,Faiz,Sayısal Yetenek Problemleri ve Genel Kavramlar' forumundadır ve R04X tarafından 22 Ekim 2018 başlatılmıştır.

Yüklüyor...
  1. R04X

    R04X Yeni Üye

    Mesajlar:
    1
    Beğenileri:
    0
    Cinsiyet:
    Bay
    A={1,2,3,4,5} kumesinin elemanlari ile yazilabilen tum dogal sayilar kucukten buyuge siralandiginda 1441 sayisi kacinci sirada yer alir ?(aciklayabilirmisiniz cevabi ltfn)
    A)243 B)244 C)245 D)246 E)247
     
    : Fortran

  2. Benzer Konular: Çarpma Sayma
    Forum Başlık Tarih
    Matematik - Geometri Sayma İlkeleri - Çarpma İle Sayma (2 Soru) 17 Mayıs 2017
    Matematik - Geometri Kombinasyon - Çarpma İle Sayma 15 Mayıs 2017
    Matematik - Geometri Kombinasyon - Permütasyon - Çarpma İle Sayma 14 Mayıs 2017
    Matematik - Geometri Sayma İlkeleri - Çarpma İle Sayma 1 Nisan 2017
    Polinomlar, Permütasyon, Kombinasyon, Olasılık ve Binom Açılımı Sayma İlkeleri - Çarpma İle Sayma 21 Şubat 2017

  3. Honore

    Honore Yönetici

    Mesajlar:
    2.656
    Beğenileri:
    354
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    Tek rakamlı sayılar: 5 tane

    İki rakamlı sayılar: 11 - 15, 21 - 25, ..., 51 - 55 olmak üzere 5·5 = 25 tane

    Üç rakamlı sayılar: 111 - 115, 121 - 125, ..., 151 - 155 olmak üzere 5·25 = 125 tane

    1355 ve daha küçük dört rakamlı sayılar:
    binler hanesi 1
    yüzler hanesi 1, 2, 3 rakamlarından biri,
    onlar hanesi 1, 2, 3, 4, 5 rakamlarından biri,
    birler hanesi 1, 2, 3, 4, 5 rakamlarından biri
    olmak üzere 1·3·5·5 = 75 tane

    1411 - 1435 arası dört rakamlı sayılar:
    binler hanesi 1
    yüzler hanesi 4
    onlar hanesi 1, 2, 3 rakamlarından biri
    birler hanesi 1, 2, 3, 4, 5 rakamlarından biri
    olmak üzere 1·1·3·5 = 15 tane

    Alt toplam: 5 + 25 + 125 + 75 + 15 = 245 tane

    1441 sayısı da eklenirse 245 + 1 = 246'ncı sayı 1441 olur.

    Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması:
    [​IMG]
    https://image.ibb.co/nOqkvq/sayilar.png

    Program:
    Kod:
    program saymak
    integer :: i,sira=0
    
    open (unit = 1, file = "sayilar.txt")
    
    do i=1,1441
    
       select case(i)
           case (1:5)
              sira=sira+1
              print*,sira,i
              write(1,10) sira,'  ',i
        end select    
    
       select case(i)
           case (11:55)
              if ( (mod(i,10)>5).or.(mod(i,10)==0).or.(i/10>5) ) then
                  cycle
               else 
                  sira=sira+1
                  print*,sira,i
                  write(1,10) sira,'  ',i
               endif  
        end select    
    
        select case(i)
          case (111:555)
              if ( (mod(i,10)>5).or.(mod(i,10)==0).or.(mod(i/10,10)>5).or. &
                   (mod(i/10,10)==0)   )   then
                  cycle
               else 
                  sira=sira+1
                  print*,sira,i
                  write(1,10) sira,'  ',i
               endif  
        end select    
    
        select case(i)
          case (1111:1441)
              if ( (mod(i,10)>5).or.(mod(i,10)==0).or.(mod(i/10,10)>5).or. &
                   (mod(i/10,10)==0).or.(mod(i/100,10)>5).or.              &
                   (mod(i/100,10)==0) )   then
                  cycle
               else 
                  sira=sira+1
                  print*,sira,i
                  write(1,10) sira,'  ',i
               endif  
        end select
    
    enddo
    
    write(6,20)'1441 sayisi ',sira,'. siradadir.'
    write(6,30)'Tum liste icin sayilar.txt dosyasina bakiniz.'
    
    close(1)
    
    10 format (i3,a,i4)
    20 format(a,i3,a,/)
    30 format(a,/)
    
    end program
    Not: Programın çıktısı ektedir.

    Ekli Dosyalar:

    Son düzenleme: 24 Ekim 2018

Sayfayı Paylaş