Zeno Paradoxu ve Plank uzunluğu..

Question

S.a. Herkese iyi akşamlar diliyorum.

Herhangi bir uzunluğu her defasında 2 ye bölerek (Çıkan Sonuç 2 ye bölünecek; Örneğin 5/2=2,5 -- 2,5/2 şeklinde gidecek) Plank uzunluğu olan 1,61622837 * 10 üzeri - 35 den küçük veya eşit olunca durmasını istediğimiz bir döngüye ihtiyacım var..

Oğlum Fen Lisesinde ve bir proje için kullanacaklarmış. Benden algoritma istedi, ama benim matematiğim buna yetmedi...

 

Şimdiden çok çok teşekkür ederim..

Answer 1

While ( 

   // degiskenler
   [ 
      ~sayi = 10500 ;
      ~sonuc = ~sayi;
      ~bolen = 2 ; 
      ~min = SetPrecision ( 1,61622837 * 10^-35 ; 400 ) ;
      ~iterasyon = 0  
   ] ;

   // loop kalma koşulu
   ~sonuc > ~min ; 

   // döngü
   [ 
     ~sonuc = SetPrecision ( ~sonuc / ~bolen ; 400 ) ;
     ~iterasyon = ~iterasyon + 1
   ] ; 

   ~sayi & " sayısı¶" & ~iterasyon & " kez¶" & ~bolen & " sayısına bölünerek¶" & ~sonuc & " sayısına ulaşıldı"

)

Fatih Hocam'ın dosyasını da ekliyorum; 

http://filemakerturk.com/?qa=blob&qa_blobid=6775069795944205384