pers kralı ve bilgin satranç programı

[lunas]

merhaba öncelikle daha önce hiç bi forumda konu acmadım yanlıs yerde başlık açtıysam özür dilerim.
Şu sorumu vba olarak yazabilir misiniz acaba?
Bugün satranç diye bildiğimiz oyunu kurgulayan bilgin, oyunu Pers Kralı’na sunduğunda çok memnun olan
kral, “Dile benden, ne dilersen” demiş. Bilgin kendisine uzatılan hazine dairesinin anahtarını elinin tersiyle itip,
kraldan satranç tahtasının sol alt köşesindeki kareye bir buğday tanesi koymasını ve sonra her kareye bir
önceki karenin iki katı buğday tanesi koymasını ve bu şekilde 64. kareye kadar gitmesini istemiş. “Bana bu
kadar buğday verseniz yeter.” demiş. Zenginliğinden gurur duyan kral, tebessümle, bilginin alçak
gönüllülüğünü övüp, vezirine “Dileği, yerine getirin” diye emir vermiş.
Bilginin istediği buğday tanelerinin sayısını ve ağırğılığı hesaplayıp forma yazdıran bir Vb kodu geliştiriniz
(1000 buğday tanesi 30 gr. Gelmektedir)

 

[Huseyinkis]

Sub Santranç()

Buğday = 1

For i = 2 To 64
Buğday = Buğday * 2
Next i

MsgBox Format(Int(Buğday), "##,###.00") & " Adet Buğday"

MsgBox Format(Int((Buğday / 1000) * 30), "##,###.00") & " Gram"

End Sub

 

[mrwarrior]

Direct macro yerine matematiksel formül ile kaçıncı karedeki buğday kilosunu istiyorsan

İstenen kare A1 olmak üzere

o karedeki buğday kilosu (2^(A1-1)/1000)*30
o kareye kadar harcanan buğday (2^A1-1)/1000*30

 

[cayaso]

Son karedeki buğdayın ağırlığını merak ediyorum. Acaba Suriye'yi doyururmu?

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Araya girdim, kusura bakmayın lütfen.
Şaka yaptığınızı sanıyorum. 64. karedeki buğday, 1.383.505.805.528 kişinin her birine 200 kg buğday demektir. Gerisini siz tahayyül ediniz.
Saygılarımla

 

[Eyupcan Tasar]

soruya bayıldım.

 

[YUSUF44]

FAO istatistiklerine göre 2013 yılında tüm dünyada toplam 218.460.701 hektar alanda toplam 713.182.914 ton buğday üretilmiştir. Verilen soruda 64. karede 276 milyar 701 milyon küsür ton buğday, satranç tahtasının tamamında ise 553 milyar 402 milyon küsür ton buğday olacağı (verilen bin dane ağırlığına göre) hesaplanıyor. Bu durumda sadece 64. karedeki buğday için 388, tamamı için ise 776 yıl tüm dünya buğday üretiminin kullanılması gerekecektir:

http://faostat.fao.org/

 

[cengiz7434]

Bu sorunun aynısını C dilinde yazabilir misiniz?

 

[DMR 7]

Bu da benden olsun.