[Matematica pura, fisica, chimica, ecc.: problemi di allenamento del cervello non legati in alcun modo al commercio - pagina 312

[Vladimir Gomonov]

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

Facciamo almeno 7x7 :)

[Sceptic Philozoff]

Richie, dove sei? Disegnerai un quadrato di sette per sette in modo che qualsiasi numero all'interno superi i numeri in almeno cinque quadrati adiacenti? Potremmo fare coppia con Wasik.
Oh, credo di aver sbagliato 5 per 5: non ho ancora quell'esempio.

[Sceptic Philozoff]

Soluzione al problema 343:

Non c'è niente di istruttivo. Quindi, a proposito, ne consegue che è improbabile che esista un controesempio 5 per 5 :) Nemmeno 4 per 4 funzionerà... E cosa c'entra un foglio di carta infinito? Un dato volutamente ridondante introdotto di proposito?

Ilprossimo (spero che la classe sia chiara?):

Apparentemente, "uno dei più pesanti" dovrebbe essere inteso senza ambiguità: se ci sono diversi più pesanti e il peso di ciascuno è lo stesso, scegliamo uno qualsiasi.

[Alexey Subbotin]

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

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

Sì, non va bene, è un peccato per il tempo sprecato :(

[richie]

Mi dispiace, molto occupato oggi e domani.
Matematicamente, per qualsiasi numero all'interno di superare i numeri in almeno 5 celle vicine - non poteva immaginare questo.
-
Ecco una curiosa letteratura per "corrompere" i bambini:
//vse-knigi.su/auth/4652
//letitbit.net/download/8997.8966b0876903/Oster-ZadachnikPoMatematike.rar.html
-
Compagni moderatori, sistemate finalmente i link.

[Sceptic Philozoff]

Va bene, Richie, cercheremo di cavarcela senza di te. Facci sapere quando sei libero.
Ce n'è un altro con dei pesi dentro:

P.S. Probabilmente si presume che i pesi possano essere messi solo su una tazza della bilancia. L'altro ha un peso sopra.
Una soluzione è ovvia: 1, 2, 4, 8, 16, 32.

[richie]

Ecco un programma divertente per trovare le opzioni:
Supponiamo di avere quattro pesi, per esempio:
-
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:

-
Scegliere una qualsiasi opzione, diciamo 1:
Quindi abbiamo 3 pesi da 1 kg e uno da 3 kg .
-
1. 1. Tazza 1 =0 kg, tazza 2 =0 kg;
2. Sulla tazza 1 mettiamo 3 kg di peso;
3. Sulla tazza 2 mettiamo 1 kg di peso;
4. Sulla tazza 2 mettiamo 1 kg di peso;
5. Sulla tazza 2 mettiamo 1 kg di peso;
-
Il risultato è 3 kg su ogni tazza . Un'opzione è provata.
-
Naturalmente capisco che una formula è necessaria, ma non c'è tempo in questo momento.
Ovviamente è solo una progressione dove ogni termine successivo è uguale alla somma dei precedenti:
1, 2, 3, 6, 12 ecc.

[richie]

Ecco il programma per il 2° compito, scusate per il cattivo codice, solo che non ho tempo:
-
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
Per MassaGiri5 = 1 a 32
Per MassaGiri6 = 1 a 32
Se MassaGiri1 + MassaGiri2 + MassaGiri3 + MassaGiri4 + MassaGiri5 + MassaGiri6 = 63 Allora
Se MassaGiri1 < MassaGiri2 Allora
Se MassaGiri2 < MassaGiri3 Allora
Se MassaGiri3 < MassaGiri4 MassaGiri4 Allora
Se MassaGiri4 < MassaGiri5 Allora
Se MassaGiri5 < MassaGiri6 Allora
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
-
Stampa un file di numeri consecutivi la cui somma è 63. Il numero di scelte è grande, il programma si blocca per un po'.
Anche se non è del tutto chiaro cosa significhi "consecutivo".
Ecco l'inizio del file (spazi sostituiti da trattini):
-
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
......

A domani.

[richie]

Qui ci sono 4086 combinazioni (il file deve essere salvato prima, quindi è tutto su una riga):

[Sceptic Philozoff]

Richie, perché non ti prendi cura di te stesso, lavori così tanto, per Dio, scrivi programmi tutto il tempo tra un lavoro e l'altro... È una spina nel fianco, vero? Non si può fare. Nel frattempo ci prendiamo una pausa dal ritmo frenetico che stai impostando.