[Archiv!] Reine Mathematik, Physik, Chemie usw.: Gehirntrainingsprobleme, die in keiner Weise mit dem Handel zusammenhängen - Seite 312

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

Lass uns wenigstens 7x7 machen :)

 
Richie, wo bist du? Würden Sie ein sieben mal sieben großes Quadrat so zeichnen, dass jede Zahl darin die Zahlen in mindestens fünf benachbarten Quadraten übersteigt? Wir könnten uns mit Wasik zusammentun.
Oh, ich glaube, ich habe 5 mal 5 falsch verstanden: Ich habe das Beispiel noch nicht.
 
Lösung des Problems 343:

Daran ist nichts Lehrreiches. Daraus folgt übrigens, dass ein 5 mal 5 Gegenbeispiel unwahrscheinlich ist :) Nicht einmal 4 mal 4 wird funktionieren... Und was hat ein endloses Blatt Papier damit zu tun? Ein absichtlich redundantes Datum, das absichtlich eingeführt wurde?

Weiter (ich hoffe, die Klasse ist klar?):

Der Begriff "einer der Schwersten" ist eindeutig zu verstehen: Wenn es mehrere Schwerste gibt und das Gewicht aller gleich ist, wählen wir einen beliebigen.
 
Mathemat >>:
Решение задачи 343:

Ничего поучительного нет. Отсюда, кстати, следует, что контрпример 5 на 5 вряд ли существует :) Даже 4 на 4 не выйдет... И при чем тут бесконечный лист бумаги? Заведомо лишнее данное, внесенное специально?
Ja, nicht gut. Es ist eine Schande, dass so viel Zeit vergeudet wurde :(

 

Tut mir leid, ich bin heute und morgen sehr beschäftigt.
Mathematisch gesehen muss jede Zahl darin die Zahlen in mindestens 5 benachbarten Zellen übersteigen - das kann ich mir nicht vorstellen.
-
Hier finden Sie kuriose Literatur zur "Korrumpierung" von Kindern:
//vse-knigi.su/auth/4652
//letitbit.net/download/8997.8966b0876903/Oster-ZadachnikPoMatematike.rar.html
-
Genossen Moderatoren, repariert endlich die Links.

 
Das ist in Ordnung, Richie, wir werden versuchen, ohne dich auszukommen. Sagen Sie uns einfach, wann Sie Zeit haben.
Es gibt noch einen anderen mit Gewichten drin:

P.S. Wahrscheinlich wird davon ausgegangen, dass Gewichte nur auf eine Schale der Waage gelegt werden können. Der andere ist mit einem Gewicht versehen.
Eine Lösung ist offensichtlich: 1, 2, 4, 8, 16, 32.
 

Hier ist ein lustiges Programm zum Finden von Optionen:
Nehmen wir an, wir haben zum Beispiel vier Gewichte:
-
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:

-
Wählen Sie eine beliebige Option, z. B. 1:
Wir haben also 3 Gewichte von 1 kg und eines von 3 kg
.
-
1. Becher 1 =0 kg, Becher 2 =0 kg;
2. Auf Becher 1 legen wir 3 kg Gewicht;
3. Auf Becher 2 legen wir 1 kg Gewicht;
4. Auf Becher 2 legen wir 1 kg Gewicht;
5. Auf Becher 2 legen wir 1 kg Gewicht;
-
Das Ergebnis ist 3 kg auf jedem Becher . Eine Option ist bewährt.
-
Natürlich ist mir klar, dass eine Formel erforderlich ist, aber ich habe im Moment keine Zeit.
Offensichtlich handelt es sich nur um eine Progression, bei der jeder aufeinanderfolgende Term gleich der Summe der vorherigen ist:
1, 2, 3, 6, 12 usw.

 

Hier ist das Programm für die 2. Aufgabe, sorry für den schlechten Code, ich hatte einfach keine Zeit:
-
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 To 32
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 < MassaGiri4 MassaGiri4 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

-
Druckt eine Datei mit aufeinanderfolgenden Zahlen, deren Summe 63 ist. Die Anzahl der Auswahlmöglichkeiten ist groß, das Programm bleibt eine Zeit lang hängen.
Es ist allerdings nicht ganz klar, was "fortlaufend" bedeutet.
Hier ist der Anfang der Datei (Leerzeichen durch Bindestriche ersetzt):
-
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
......

Wir sehen uns morgen.

 

Hier sind 4086 Kombinationen (Sie müssen die Datei zuerst speichern, damit alles in einer Zeile steht):

Dateien:
richi.txt  68 kb
 
Richie, warum kümmerst du dich nicht um dich selbst, du arbeitest so hart, bei Gott, du schreibst die ganze Zeit Programme zwischen den Jobs... Es ist eine Qual, nicht wahr? Das können Sie nicht tun. In der Zwischenzeit machen wir eine Pause von dem hektischen Tempo, das Sie vorgeben.
Grund der Beschwerde: