[Arşiv] Ticaretle ilgisi olmayan saf matematik, fizik, kimya vb. beyin jimnastiği bulmacaları - sayfa 322
Ticaret fırsatlarını kaçırıyorsunuz:
- Ücretsiz ticaret uygulamaları
- İşlem kopyalama için 8.000'den fazla sinyal
- Finansal piyasaları keşfetmek için ekonomik haberler
Kayıt
Giriş yap
Gizlilik ve Veri Koruma Politikasını ve MQL5.com Kullanım Şartlarını kabul edersiniz
Hesabınız yoksa, lütfen kaydolun
Tanrım..
Perl'de algoritma şöyle görünür:
for(111..999){
split(//,$_);
my($sum,$mul)=(0,1);
for(@_){$sum+=$_;$mul*=$_;}
print("$_\n") if($sum*12==$mul);
}
BASIC'i 18 yıldır biliyorum. Ama ne yazdığını bile anlayamıyorum. İnci bilmiyor. Genel olarak, modülde hemen hemen her şey gizlenmişse, örneğin aşağıdaki gibi BASIC'te her şey daha da basit olacaktır:
-
Özel Alt Komut1_Click()
Me.PrintList(MathMod.OtnProSum(1,1e5))
son alt
Evet, o sadece bir programcı .... falan.
Daha fazlasını söyleyeceğim. O hiç bir programcı değil.
İnanıyorum. Ama görmek ilginç olurdu...
;)
(10**(n-1)..10**n-1).her{|i|
toplam=0;mul=1
(1..n).her{|s|
d=i%10**s/10**(s-1)
toplam+=d;mul*=d
}
mul/toplam==12 ise
yazdır i,"\n"
son
}
А это, собсно, алгоритм счёта. "Чиста алгоритм" уместился в трёх строках, ежли не считать заголовок и закрывающий End функции :)
Harika!
Richie , bu durumda, "tam olarak", sıfır hata ile kesinlikle kesindir : Bu, Diophantine denklemleri üzerine bir kitaptan tamsayılar için eşitliktir.
Richie , ancak konunun 322. sayfasında verilen "30'un üç küpün toplamı olarak" eşitliğinin tam olarak gözlemlenip gözlemlenmediğini Vasik'inizden kontrol edebilirsiniz: https://c.mql4.com/forum/2010/04 /cohen.gif ?
Richie , bu durumda, "tam olarak", sıfır hata ile kesinlikle kesindir : Bu, Diophantine denklemleri üzerine bir kitaptan tamsayılar için eşitliktir.
Ne yazık ki Double ve Long gibi standart veri türleri ile hiçbir şey işe yaramaz. Şimdi, üniversiteden mezun olduktan sonra, VB'de kendi veri türlerinizi oluşturarak, çok büyük ve çok küçük sayılarla doğru hesaplamalar yapmanızı sağlayan VB fonksiyonlarının kütüphanesini yok ettiğim için üzgünüm.
-
VB'de Double type ile denedim - çöp Excel'de tamamlandı - sıfır çıktı.
Kitaplık basitçe çalıştı - sayılar String türünde dizgiler olarak saklandı. Ve bu dizilerin karakterleri Byte formatına çevrildikten sonra işlemler gerçekleştirildi. Daha fazla zamanım olsaydı tekrar yazabilirdim.
-
Ya da belki başka bir kurnaz kanıt yolu vardır?
Richie , ancak konunun 322. sayfasında verilen "30'un üç küpün toplamı olarak" eşitliğinin tam olarak gözlemlenip gözlemlenmediğini Vasik'inizden kontrol edebilirsiniz: https://c.mql4.com/forum/2010/04 /cohen.gif ?
Richie , bu durumda, "tam olarak", sıfır hata ile kesinlikle kesindir : Bu, Diophantine denklemleri üzerine bir kitaptan tamsayılar için eşitliktir.
Windows hesap makinesinde hesaplayabilirsiniz.
Windows hesap makinesinde hesaplayabilirsiniz.
Evet çalışıyor. 10947302325566084787191541568-10924622727902378924946084413-22679597663705862245457125=30Hatta komik.