[存档！]纯数学、物理学、化学等：与贸易没有任何关系的大脑训练问题 - 页 322

新评论
 
MetaDriver >>:

Я и на васике могу в четыре-пять строк уложиться

:)

我愿意。但如果能看到......那就很有意思了。

 
admin писал(а)>>

不可能...
下面是perl算法的样子。


for(111..999){
split(//,$_);
my($sum,$mul)=(0,1);
for(@_){$sum+=$_;$mul*=$_;}
print("$_\n") if($sum*12==$mul);
}


我认识BASIC大约有18年了。但你写的东西我根本无法理解。我不懂Perl。一般来说，在BASIC中，如果你能把几乎所有的东西都隐藏在一个模块中，那就更容易了，就像这样。
-
Private Sub Command1_Click()
 Me.PrintList(MathMod.OTNProSum(1,1e5))
结束子程序

 
MetaDriver писал(а)>>

他只是一个程序员....>>一般般。

我要说的还不止这些。他根本就不是一个程序员。

 
admin >>:

Верю. Но интересно было бы взглянуть...

看一看...
;)
附加的文件：
fivestring.rar  8 kb
  
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
而这实际上就是计数算法。"纯算法 "适合于三行，如果你不计算标题和结束的End函数的话:)
  
在Ruby上（有一个正常的bigint）用于任何大小的n。:)
n=6;
(10**(n-1)...10**n-1).each{|i|
sum=0;mul=1
(1..n).each{|s|
d=i%10**s/10**(s-1)
sum+=d; mul*=d
}
if mul/sum=12
print i, "\n"
end
}
 
MetaDriver >>:
А это, собсно, алгоритм счёта. "Чиста алгоритм" уместился в трёх строках, ежли не считать заголовок и закрывающий End функции :)

酷!

 
Richie，你能在你的Wasik上检查一下，在第322页上给出的 "30是三个立方体的总和 "的等式：https://c.mql4.com/forum/2010/04/cohen.GIF，是否完全正确？
里奇，在这种情况下，"完全 "是指绝对精确，误差为零：它是《二方程》一书中关于整数的等式。
 
Mathemat писал(а)>>
Richie，但你可以在你的Wasik上检查一下，如果在第322页上给出的 "30为三个立方体之和 "的等式：https://c.mql4.com/forum/2010/04/cohen.GIF?
里奇，在这种情况下，"完全 "是指绝对精确，误差为零：它是《二方程》一书中关于整数的等式。



不幸的是，对于像Double 和Long 这样的标准数据类型，没有任何效果。现在我很后悔，毕业后我毁掉了VB的函数库，这些函数允许我通过在VB中创建自己的数据类型来对非常大和非常小的数字进行精确计算。
-
我在VB中用Double 类型试了一下--结果是胡说八道，在Excel中则是零。
该库的工作原理很简单--数字被存储为String 类型的字符串。在这些字符串被转换为Byte 格式后，对其进行了操作。如果我们有更多的时间，我们可以再写。
-
也许有一些其他--棘手的证明方法？

 
Mathemat писал(а)>>
Richie，但你可以在你的Wasik上检查一下，如果在第322页上给出的 "30为三个立方体之和 "的等式：https://c.mql4.com/forum/2010/04/cohen.GIF?
里奇，在这种情况下，"完全 "是指绝对精确，误差为零：它是《二方程》一书中关于整数的等式。


你可以在Windows计算器中进行数学计算。
1...315316317318319320321322323324325326327328329...628
新评论