Çözüldü Tamsayılarda Bölünebilme - Programlama

Konusu 'Matematik - Geometri' forumundadır ve Honore tarafından 14 Haziran 2018 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.)
    3 veya 5'e tam olarak bölünemeyen pozitif tamsayılar küçükten büyüğe sıralanırsa 100'ncü sayı kaçtır?
    https://www.facebook.com/photo.php?fbid=1816027568706875&set=g.1091681720847192&type=1&theater&ifg=1

    Şöyle bir çözüm düşündüm;
    1 - 10 arası 5 tane
    11 - 20 arası 6 tane
    21 - 30 arası 5 tane
    ... düzeninde gittiğinden,

    16 sayı .... ilk 30 içinde
    100 sayı .... ilk 187,5 içinde

    Sonuç: 100'ncü sayı 187
    ---
    Programlamayla ilgilenen öğrenciler için bir Fortran uygulaması:
    [​IMG]
    https://image.ibb.co/cJpLvJ/3ve5_ile_bolme_Fortran.png

    Program:
    Kod:
    program Bolme
    integer::i=0,toplam=0
    
    do
      if( (mod(i,3)==0).or.(mod(i,5)==0) ) then
           i=i+1
           cycle
       else
           toplam=toplam+1
           if (toplam == 100) then
               exit
           else
               i=i+1   
           endif 
       endif 
    enddo
    
    write(6,10)'100''ncu sayi: ',i
    10 format (a,i3)
    
    end program
    On-line Fortran Compiler ile de denenebilir:
    https://www.jdoodle.com/execute-fortran-online sitesinde "Your Code ..." başlığı altındaki bölüme kod kopyalanıp en alttaki "Execute" butonuna tıklanacak.
     
    : Fortran

  2. Benzer Konular: Tamsayılarda Bölünebilme
    Forum Başlık Tarih
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Pozitif Tamsayılarda Basamak Analizi ve 3 İle Bölünebilme 28 Mart 2020
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Tamsayılarda Toplama ve Çıkarma 28 Mayıs 2021
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Bölünebilme 6 Nisan 2026
    Mantık,Kümeler,Bağıntı ve Fonksiyon,İşlem ve Moduler Aritmetik Modüler Aritmetik - Bölünebilme - Programlama 13 Şubat 2026
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Asal Çarpanlar - Bölünebilme 29 Ocak 2026

Sayfayı Paylaş