[Arşiv] Ticaretle ilgisi olmayan saf matematik, fizik, kimya vb. beyin jimnastiği bulmacaları - sayfa 322

[richie]

admin писал(а) >>

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

[richie]

MetaDriver писал(а) >>

Evet, o sadece bir programcı .... falan.

Daha fazlasını söyleyeceğim. O hiç bir programcı değil.

[Vladimir Gomonov]

admin >> :

İnanıyorum. Ama görmek ilginç olurdu...

Bak...
;)

[Vladimir Gomonov]

Private Sub FindAllButton_Click()
  For i = 111 To 999
    If (( 1 # * (i Mod 10 ) * ((i Mod 100 ) \ 10 ) * (i \ 100 )) / (i Mod 10 + (i Mod 100 ) \ 10 + i \ 100 ) = 12 ) Then Range( "c4" ).Value = i
  Next i
End Sub

Ve o, sobsno, hesabın algoritması. "Saf algoritma", üstbilgi ve işlevin kapanışı dışında üç satıra sığar :)

[Ihor]

Ruby'de (normal bir bigint vardır) herhangi bir boyut için n. :)

n=6;
(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
}

[[Silindi]]

MetaDriver >> :
А это, собсно, алгоритм счёта. "Чиста алгоритм" уместился в трёх строках, ежли не считать заголовок и закрывающий End функции :)

Harika!

[Sceptic Philozoff]

Richie ve buradan Vasik'inize dalın 322. sayfasında verilen "30'un üç küpün toplamı olarak" eşitliğinin tam olarak gözlemlenip gözlemlenmediğini 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.

[richie]

Mathemat писал(а) >>
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?

[Dmitry Fedoseev]

Mathemat писал(а) >>
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.

[richie]

Integer писал(а) >>

Windows hesap makinesinde hesaplayabilirsiniz.

Evet çalışıyor. 10947302325566084787191541568-10924622727902378924946084413-22679597663705862245457125=30
Hatta komik.