[アーカイブ！】純粋数学、物理学、化学など：トレードとは一切関係ない脳トレ問題集 - ページ 312

[Vladimir Gomonov]

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

せめて7x7にしようよ :)

[Sceptic Philozoff]

リッチー、どこにいるんだ？7×7マスのうち、どの数字も少なくとも隣接する5マスの数字を上回るように描けるか？ワシクと組めばいいんだよ。
あ、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]

大丈夫だ、リッチー、君がいなくても何とかなるさ。空いている時間を教えてください。
もうひとつ、重りが入っているものがあるんです。

P.S. スケールの1つのカップにしか重りを乗せられないことが前提になっているのでしょう。もうひとつは重りをつけています。
1、2、4、8、16、32というのは、ひとつの解答として明らかです。

[richie]

選択肢を見つけるための面白いプログラムを紹介します。
例えば、4つのウェイトがあるとします。
-
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.MassaGiri3 = 1 To 5 For MassaGiri2 + MassaGiri3 + MassaGiri4 = 1 To 5 For MassaGiri3 + MassaGiri4 = 1 To 5 For MassaGiri3 = 1 To 5 For MassaGiri3 + MassaGiri4 = 2 * 3MassaGiri2, MassaGiri3, MassaGiri4
End If
Next MassaGiri4
Next MassaGiri3
Next MassaGiri2
Next MassaGiri1
End Sub
-
Run:

-
任意の選択肢を選んでください。仮に1としておきます。
つまり、1kgの重りが3つと、3kgの重りが1 つということです。
-
1.カップ1 =0 kg, カップ2 =0 kg;
2. カップ1に3 kgの重りをのせる;
3. カップ2に1 kgの重りをのせる;
4. カップ2に1 kgの重りをのせる;
5. カップ2に1 kgの重りをのせる;
-
結果は、それぞれのカップに3 kgずつ のせる。一つの選択肢として、実績があります。
-
もちろん数式が必要なことは理解しているが、今は時間がない。
明らかに、連続する各項が前の項の合計に等しいという進行です。
1, 2, 3, 6, 12 など。

[richie]

これが2番目のタスクのプログラムです。時間がなくて、ひどいコードですみません。
-
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.テキスト"
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 Then
If MassaGiri2 < MassaGiri3 Then
If MassaGiri3 < MassaGiri4MassaGiri4 Then
If MassaGiri4 < MassaGiri5 Then
If MassaGiri5 < MassaGiri6 Then
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
Close 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通りの組み合わせです（最初にファイルを保存する必要があるので、1行にまとめてあります）。

[Sceptic Philozoff]

リッチー、どうして自分を大事にしないんだ、君は一生懸命働いているじゃないか、まったく、仕事の合間にずっとプログラムを書いているじゃないか...。めんどくさいですよね。そんなの無理だよ。その間、私たちはあなたの必死のペースから離れることにします。