Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Beyin Fırtınası
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Beyin Fırtınası Bu başlıkta, ilginç olduğunu düşündüğünüz sorularınızı, bir problem şeklinde sorabilir, alternatif olduğunu düşündüğünüz çözümlerinizi paylaşabilirsiniz. (Bu başlıkta yeni konu açılması onaya bağlıdır.)
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 16-06-2015, 00:58   #1
lunas
 
Giriş: 25/05/2015
Şehir: İstanbul
Mesaj: 1
Excel Vers. ve Dili:
2010
Varsayılan 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)
lunas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2015, 10:33   #2
Huseyinkis
 
Huseyinkis kullanıcısının avatarı
 
Giriş: 23/09/2004
Şehir: İstanbul
Mesaj: 1,748
Excel Vers. ve Dili:
Excel 2010 TR
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
///Ya severek "Acı Çekmesini" biliceksin yada Sevmeyeceksin hep "Acı Çekeceksin"///
Huseyinkis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2015, 10:38   #3
mrwarrior
Altın Üye
 
Giriş: 26/01/2013
Şehir: Balıkesir
Mesaj: 132
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

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
mrwarrior Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2015, 14:33   #4
cayaso
 
Giriş: 10/06/2011
Mesaj: 172
Excel Vers. ve Dili:
2003 Türkçe
Varsayılan

Son karedeki buğdayın ağırlığını merak ediyorum. Acaba Suriye'yi doyururmu?
cayaso Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2015, 22:42   #5
Tevfik_Kursun
Altın Üye
 
Giriş: 30/07/2012
Şehir: Antakya
Mesaj: 1,194
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

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
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-08-2015, 09:57   #6
Eyupcan Tasar
 
Eyupcan Tasar kullanıcısının avatarı
 
Giriş: 15/05/2015
Şehir: istanbul
Mesaj: 76
Excel Vers. ve Dili:
2013 türkçe
Varsayılan

soruya bayıldım.
Eyupcan Tasar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-10-2015, 16:50   #7
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,691
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

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/
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2015, 17:11   #8
cengiz7434
 
Giriş: 07/12/2015
Şehir: istanbul
Mesaj: 2
Excel Vers. ve Dili:
2010
Varsayılan

Bu sorunun aynısını C dilinde yazabilir misiniz?
cengiz7434 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-01-2018, 13:40   #9
DMR 7
 
Giriş: 14/09/2017
Şehir: Ankara
Mesaj: 89
Excel Vers. ve Dili:
2010 / Tr
Varsayılan

Bu da benden olsun.

DMR 7 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 06:50


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden