Mathemat>>: Richie, я могу привести пример на листе бумаги пять на пять, который не удовлетворяет требованиям задачи. Наверно, можно и для любого конечного, но тут помозговать надо.
Mathemat>>: Решение задачи 343: Ничего поучительного нет. Отсюда, кстати, следует, что контрпример 5 на 5 вряд ли существует :) Даже 4 на 4 не выйдет... И при чем тут бесконечный лист бумаги? Заведомо лишнее данное, внесенное специально?
選択肢を見つけるための面白いプログラムを紹介します。 例えば、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 など。
これが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, я могу привести пример на листе бумаги пять на пять, который не удовлетворяет требованиям задачи. Наверно, можно и для любого конечного, но тут помозговать надо.
せめて7x7にしようよ :)
あ、5×5を間違えたかな:その例はまだないんです。
何の参考にもならない。したがって、ところで、5×5の反例は存在しそうにないということになる :)4×4でもダメなのか...。それと、果てしなく続く紙がどう関係するのか?故意に冗長なデータを導入したのか?
次ページ(クラスはクリアしているかな?)
どうやら、「最も重いものの一つ」というのは、「最も重いものがいくつかあって、それぞれの重さが同じであれば、どれかを選ぶ」という曖昧な理解でいいようだ。
Решение задачи 343:
Ничего поучительного нет. Отсюда, кстати, следует, что контрпример 5 на 5 вряд ли существует :) Даже 4 на 4 не выйдет... И при чем тут бесконечный лист бумаги? Заведомо лишнее данное, внесенное специально?
すみません、今日と明日はとても忙しいんです。
数学的に、中の数字が 少なくとも5つ隣のセルの数字を超えるというのは、想像できませんでした。
-
子供を「堕落させる」ための不思議な文献を紹介します。
//vse-knigi.su/auth/4652
//letitbit.net/download/8997.8966b0876903/Oster-ZadachnikPoMatematike.rar.html
-
モデレーターの同志たちよ、ついにリンクを修正してくれ。
もうひとつ、重りが入っているものがあるんです。
P.S. スケールの1つのカップにしか重りを乗せられないことが前提になっているのでしょう。もうひとつは重りをつけています。
1、2、4、8、16、32というのは、ひとつの解答として明らかです。
選択肢を見つけるための面白いプログラムを紹介します。

例えば、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 など。
これが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
......
また明日、お会いしましょう。
以下は4086通りの組み合わせです(最初にファイルを保存する必要があるので、1行にまとめてあります)。