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

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:

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ü:

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