Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Beyin Fırtınası (http://www.excel.web.tr/forumdisplay.php?f=142)
-   -   pers kralı ve bilgin satranç programı (http://www.excel.web.tr/showthread.php?t=149548)

lunas 16-06-2015 00:58

pers kralı ve bilgin satranç programı
 
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 15-07-2015 10:33

Kod:


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 15-07-2015 10:38

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 15-07-2015 14:33

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

Tevfik_Kursun 15-07-2015 22:42

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 27-08-2015 09:57

soruya bayıldım.

YUSUF44 30-10-2015 16:50

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 07-12-2015 17:11

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


Saat 02:11

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.