Çözüldü EKOK - Programlama

https://i.ibb.co/Rz4p1Nz/yaris.png
https://i72.servimg.com/u/f72/19/97/10/39/yaris10.png
https://www.facebook.com/photo/?fbid=373944904548553&set=gm.2501351546669040
(Sorunun gönderildiği Facebook grubu 25 Eylül 2022 tarihinde "Private" duruma getirildiği için aslını ve varsa diğer çözümleri ancak üyeleri görebilir.)

Bekleme süresinden bağımsız olarak yarışmacıların ilk kez yan yana geldikleri uzunluk; EKOK(6, 8, 10) = 120 metre
260 = 2·120 + 20 olduğundan 2·120 = 240. metreden itibaren yarış sanki yeni başlamış gibi olur;
Yarış Süresi: (260 / 10)·2 - 1 = 51 Dakika

A---------B-------C
246-----248----250
252-----256----250
258-----256----260

C - B = 260 - 256 = 4 metre.

Yarışın Gidişi

https://i.ibb.co/wpg1KLX/Yaris-Tablo.png
https://i72.servimg.com/u/f72/19/97/10/39/yaris_12.png

Bilgisayar Programlamayla İlgilenen Öğrenciler İçin Fortran Uygulaması:

https://i.ibb.co/VSs9Ln8/Yaris-Fortran.png

Program:

Kod:

program yaris
implicit none

integer :: A=6,B=8,C=10,bekleyen,t

t=( 260 / MAX(A,B,C) )*2 - 1

do

  bekleyen = MAX(A,B,C)

  if (bekleyen == A) then
     B = B + 8; C = C + 10
  endif

  if (bekleyen == B) then
     A = A + 6; C = C + 10
  endif

  if (bekleyen == C) then
     A = A + 6; B = B + 8
  endif

  if ((bekleyen == A).and.(bekleyen == B)) then
     C = C + 10
  endif

  if ((bekleyen == A).and.(bekleyen == C)) then
     B = B + 8
  endif

  if ((bekleyen == B).and.(bekleyen == C)) then
     A = A + 6
  endif

  if ((bekleyen == A).and.(bekleyen == B).and.(bekleyen == C)) then
     A = A + 6; B = A + 8; C = C + 10
  endif

    if ((A == 260).or.(B == 260).or.(C==260)) then
     write(6,10)"A = ",A," metre";print*,""
     write(6,10)"B = ",B," metre";print*,""
     write(6,10)"C = ",C," metre";print*,""
     write(6, 10)"1. ve 3. Olanlar Arasindaki Fark = ",                &
                 MAX(A,B,C)-MIN(A,B,C)," metre";print*,""
     exit
  endif

enddo

write(6, 10)"Yaris Suresi = ",t," dakika"

10 format(2(a,i3))

end program