• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Satranç Tahtasındaki Sır

Katılım
7 Aralık 2015
Mesajlar
2
Excel Vers. ve Dili
2010
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ş.
1+2+4+8… şeklinde her yeni terimin bir önceki terimin iki katı olarak arttığı bir dizinin ilk 64 teriminin toplamını bulan ve ekrana yazdıran bir C programı yazınız.Programınızda while döngüsü kullanınız.
 
.

C'yi bilmem ama Excel'de:

Kod:
=POWER(2;64)-1

veya;

Kod:
=2^64-1


işinize yarar mı?


.
 
Merhaba,
Fikir vermesi saçısından:
Kod:
Sub Kod()
üs = 0
Do
    kare = 2 ^ üs
    toplam = toplam + kare
    üs = üs + 1
Loop While üs < 64
MsgBox Format(toplam, "0")
End Sub

Kod:
Sub Kod()
üs = 0
Do While üs < 64
    kare = 2 ^ üs
    toplam = toplam + kare
    üs = üs + 1
Loop
MsgBox Format(toplam, "0")
End Sub
 
Son düzenleme:
Geri
Üst