Çözüldü Ardışık Sayılar - Programlama

Konusu 'Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK' forumundadır ve Honore tarafından 29 Kasım 2024 21:32 başlatılmıştır.

Yüklüyor...
  1. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    9.822
    Beğenileri:
    657
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/zark_s10.png
    https://www.facebook.com/photo/?fbid=10229449129626372&set=g.289690338076153&locale=tr_TR

    Harekete başlamadan önce Meral: 24, Suat: 8, Çınar: 16, Toplam = 48 ≡ 6(Mod 7)
    48'den geriye gidilerek 7 ile tam bölünen ilk sayı 42 olup sonraki adımlar sırasıyla;
    Meral: 23, Suat: 7, Çınar: 15, Toplam = 45 ≡ 3(Mod 7)
    Meral: 22, Suat: 6, Çınar: 14, Toplam = 42 ≡ 0(Mod 7) =====> Koşulun Sağlandığı Birinci Durum
    Meral'deki 22 sayısı Suat'a,
    Suat'taki 6 sayısı Çınar'a,
    Çınar'daki 14 sayısı da Meral'e gidecek şekilde sayılar yer değiştirdiğinde ise,
    Meral: 14, Suat: 22, Çınar: 6, Toplam = 42 ≡ 0(Mod 7) =====> Koşulun Sağlandığı İkinci Durum.

    Doğru Yanıt: E (22).

    Dönüş Tablosu:
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/zark10.png

    Not: Yeni nesil matematik öğretmenlerinin, bilgisayar programlamayı öğrenmelerinden vazgeçtim, bazi azıcık Excel yazılımını kullanmayı bilmeleri zorunlu olmalı.

    Bilgisayar Programlamayla İlgilenen Öğrenciler İçin Fortran Çözümü:
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/merals10.png

    Program:
    Kod:
    program Meral_Suat_Cinar
    implicit none
    integer :: Meral=24,Suat=8,Cinar=16,Toplam=0
    
    write(6,10)"        Meral--------Suat--------Cinar-------Kosul Saglanma Sayisi"
    
    do
         print*,Meral,Suat,Cinar,"     ",Toplam
       
         if (Meral==1) then
             Meral = 24
          else  
             Meral = Meral - 1
          endif
       
         if (Suat==1) then
             Suat = 24
          else  
             Suat = Suat - 1
          endif
       
         if (Cinar==1) then
             Cinar = 24
          else  
             Cinar = Cinar - 1
          endif
    
          if (MOD(Meral+Suat+Cinar,7)==0) then
              Toplam=Toplam+1
              if (Toplam==2) then
                 print*,Meral,Suat,Cinar,"     ",Toplam; exit
              endif
          endif
    
    enddo
    
    10 format(a)
    
    end
     
    : Fortran

  2. Benzer Konular: Ardışık Sayılar
    Forum Başlık Tarih
    Polinomlar, Permütasyon, Kombinasyon, Olasılık ve Binom Açılımı Ardışık Sayılarda Toplam - Polinomlarda Bölme ve Kalan 21 Haziran 2024
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Çift Ardışık Sayılar - İki Bilinmeyenli Denklem 10 Aralık 2023
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Ardışık Tek Sayılar - Basamak Analizi 14 Aralık 2021
    Matematik - Geometri Pozitif Ardışık Sayılar 5 Mart 2021
    Matematik - Geometri Ardışık Sayı Toplamları - Üstel Sayılar 12 Aralık 2019

Sayfayı Paylaş