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

[Vladimir Gomonov]

Mathemat >>:
Richie, я могу привести пример на листе бумаги пять на пять, который не удовлетворяет требованиям задачи. Наверно, можно и для любого конечного, но тут помозговать надо.

至少让我们去7x7 :)

[Sceptic Philozoff]

Richie，你在哪里？你会不会画一个七乘七的正方形，使里面的任何数字至少超过相邻五个方格的数字？我们可以和Wasik配对。
哦，我想我把5乘5弄错了：我还没有那个例子。

[Sceptic Philozoff]

343号问题的解决方案。

这没有任何指导意义。因此，顺便说一下，5乘5的反例是不可能存在的:)甚至4乘4也不行......而一望无际的纸张与此有什么关系？故意引入的冗余数据？

下一步（我希望班上的同学都清楚？）

显然，"最重的一个 "应该被毫不含糊地理解：如果有几个最重的，而且每个的重量都一样，我们选择任何一个。

[Alexey Subbotin]

Mathemat >>:
Решение задачи 343:

Ничего поучительного нет. Отсюда, кстати, следует, что контрпример 5 на 5 вряд ли существует :) Даже 4 на 4 не выйдет... И при чем тут бесконечный лист бумаги? Заведомо лишнее данное, внесенное специально?

是的，不好，浪费的时间太可惜了 :(

[richie]

对不起，今天和明天非常忙。
数学上，里面的任何 数字都要超过至少5个相邻单元的数字--无法想象。
-
这里有一些关于 "腐蚀 "孩子的奇特文献。
//vse-knigi.su/auth/4652
//letitbit.net/download/8997.8966b0876903/Oster-ZadachnikPoMatematike.rar.html
-
版主同志们，终于修好了链接。

[Sceptic Philozoff]

没关系，Richie，没有你我们也会努力去做。只要告诉我们你什么时候有空。
还有一个是有重量的。

P.S. 可能有人认为，重量只能放在天平的一个杯子上。另一个上面有一个重量。
一个解决方案是显而易见的：1、2、4、8、16、32。

[richie]

这里有一个寻找选项的有趣程序。
假设我们有四个权重，例如。
-
Dim MassaGiri1 As Long
Dim MassaGiri2 As Long
Dim MassaGiri3 As Long
Dim MassaGiri4 As Long
Private Sub Command1_Click()
For MassaGiri1 = 1 To 5
For MassaGiri2 = 1 To 5
For MassaGiri3 = 1 To 5
For MassaGiri4 = 1 To 5
If MassaGiri1 + MassaGiri2 + MassaGiri3 + MassaGiri4 = 2 * 3 Then
Print MassaGiri1,MassaGiri2, MassaGiri3, MassaGiri4
End If
Next MassaGiri4
Next MassaGiri3
Next MassaGiri2
Next MassaGiri1
End Sub
-
Run:

-
选择任何选项，比方说1：
所以我们有3个1公斤的重量和一个3公斤的 重量。
-
1.杯子1=0公斤，杯子2=0公斤；
2.在杯子1上放3公斤重量；
3.在杯子2上放1公斤重量；
4.在杯子2上放1公斤重量；
5.在杯子2上放1公斤重量；
-
结果是每个杯子放3公斤 。有一种选择是被证明的。
-
我当然明白，需要一个公式，但现在没有时间。
很明显，这只是一个级数，每一个连续的项都等于前一个项的总和：
1，2，3，6，12等等。

[richie]

这是第二个任务的程序，对不起，代码不好，只是没有时间。
-
Dim MassaGiri1 As Long
Dim MassaGiri2 As Long
Dim MassaGiri3 As Long
Dim MassaGiri4 As Long
Dim MassaGiri5 As Long
Dim MassaGiri6 As Long
Dim FileNo As Integer
Dim FileName As String
Dim Stroka As String
-
Private Sub Command1_Click()
FileName = "c:{Richi.txt"
FileNo = FreeFile
Open FileName For Output As FileNo
For MassaGiri1 = 1 To 32
For MassaGiri2 = 1 To 32
For MassaGiri3 = 1 To 32
For MassaGiri4 = 1 To32
For MassaGiri5 = 1 To 32
For MassaGiri6 = 1 To 32
If MassaGiri1 + MassaGiri2 + MassaGiri3 + MassaGiri4 + MassaGiri5 + MassaGiri6 = 63 Then
If MassaGiri1 <如果MassaGiri2<MassaGiri3，那么
如果MassaGiri3<MassaGiri4， 那么

如果MassaGiri4<MassaGiri5，那么
如果MassaGiri5<MassaGiri6，那么
Stroka = Str(MassaGiri1) & Str(MassaGiri2) & Str(MassaGiri3) & Str(MassaGiri4) & Str(MassaGiri5) &Str(MassaGiri6)
Print #FileNo, Stroka
End If
End If
End If
End If
End If
End If
Next MassaGiri6
Next MassaGiri5
Next MassaGiri4
Next MassaGiri3
Next MassaGiri2
Next MassaGiri1
Closed FileNo
End Sub
-
打印一个连续数字的文件，其总和为63。选择的数量很多，程序会挂起一阵子。
虽然，"连续 "的意思不是很清楚。
这里是文件的开头（空格用连字符代替）。
-
1-2-3-4-21-32
1-2-3-4-22-31
1-2-3-4-23-30
1-2-3-4-24-29
1-2-3-4-25-28
1-2-3-4-26-27
1-2-3-5-20-32
1-2-3-5-21-31
1-2-3-5-22-30
1-2-3-5-23-29
1-2-3-5-24-28
1-2-3-5-25-27
1-2-3-6-19-32
1-2-3-6-20-31
1-2-3-6-21-30
1-2-3-6-22-29
1-2-3-6-23-28
1-2-3-6-24-27
1-2-3-6-25-26
1-2-3-7-18-32
1-2-3-7-19-31
1-2-3-7-20-30
1-2-3-7-21-29
1-2-3-7-22-28
1-2-3-7-23-27
1-2-3-7-24-26
1-2-3-8-17-32
1-2-3-8-18-31
1-2-3-8-19-30
1-2-3-8-20-29
1-2-3-8-21-28
1-2-3-8-22-27
1-2-3-8-23-26
1-2-3-8-24-25
1-2-3-9-16-32
1-2-3-9-17-31
1-2-3-9-18-30
1-2-3-9-19-29
1-2-3-9-20-28
1-2-3-9-21-27
1-2-3-9-22-26
1-2-3-9-23-25
1-2-3-10-15-32
1-2-3-10-16-31
1-2-3-10-17-30
1-2-3-10-18-29
1-2-3-10-19-28
1-2-3-10-20-27
......

明天见。

[richie]

这里有4086种组合（你必须先保存文件，所以都在一行）。

[Sceptic Philozoff]

里奇，你为什么不照顾好自己，你工作那么辛苦，天啊，你在工作间隙一直在写程序......这是个很麻烦的问题，不是吗？你不能这样做。与此同时，我们将从你设定的狂热节奏中休息一下。