[Archivo] Matemáticas puras, física, química, etc.: problemas de entrenamiento cerebral no relacionados con el comercio de ninguna manera - página 312

[Vladimir Gomonov]

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

Al menos vamos a 7x7 :)

[Sceptic Philozoff]

Richie, ¿dónde estás? ¿Dibujarás un cuadrado de siete por siete de forma que cualquier número de su interior supere a los números de al menos cinco cuadrados adyacentes? Podríamos emparejarnos con Wasik.
Oh, creo que me equivoqué de 5 en 5: todavía no tengo ese ejemplo.

[Sceptic Philozoff]

Solución al problema 343:

No tiene nada de instructivo. De ahí, por cierto, se deduce que es poco probable que exista un contraejemplo de 5 por 5 :) Ni siquiera de 4 en 4 funcionará... ¿Y qué tiene que ver una hoja de papel interminable? ¿Un dato deliberadamente redundante introducido a propósito?

Siguiente (espero que la clase esté clara):

Aparentemente, "uno de los más pesados" debe entenderse sin ambigüedades: si hay varios más pesados y el peso de cada uno es el mismo, elegimos cualquiera.

[Alexey Subbotin]

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

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

Sí, no es bueno. Es una pena el tiempo perdido :(

[richie]

Lo siento, estoy muy ocupado hoy y mañana.
Matemáticas, para que cualquier número del interior supere los números de al menos 5 celdas vecinas - no podía imaginar eso.
-
Aquí hay una curiosa literatura para "corromper" a los niños:
//vse-knigi.su/auth/4652
//letitbit.net/download/8997.8966b0876903/Oster-ZadachnikPoMatematike.rar.html
-
Compañeros moderadores, arreglad los enlaces de una vez.

[Sceptic Philozoff]

Está bien, Richie, intentaremos arreglárnoslas sin ti. Avísanos cuando estés libre.
Hay otro con pesas:

P.D. Se supone que los pesos sólo pueden colocarse en un platillo de la balanza. El otro tiene un peso.
Una solución es obvia: 1, 2, 4, 8, 16, 32.

[richie]

Este es un programa divertido para encontrar opciones:
Supongamos que tenemos cuatro pesos, por ejemplo:
-
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:

-
Elija cualquier opción, digamos 1:
Así que tenemos 3 pesos de 1 kg y uno de 3 kg .
-
1. 1. Taza 1 =0 kg, taza 2 =0 kg;
2. En la taza 1 ponemos 3 kg de peso;
3. En la taza 2 ponemos 1 kg de peso;
4. En la taza 2 ponemos 1 kg de peso;
5. En la taza 2 ponemos 1 kg de peso;
-
El resultado es 3 kg en cada taza . Una opción está probada.
-
Por supuesto, entiendo que se necesita una fórmula, pero ahora no hay tiempo.
Evidentemente, se trata de una progresión en la que cada término sucesivo es igual a la suma de los anteriores:
1, 2, 3, 6, 12, etc.

[richie]

Aquí está el programa para la segunda tarea, lo siento por el mal código, simplemente no hay tiempo:
-
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
Para MassaGiri5 = 1 a 32
Para MassaGiri6 = 1 a 32
Si MassaGiri1 + MassaGiri2 + MassaGiri3 + MassaGiri4 + MassaGiri5 + MassaGiri6 = 63 Entonces
Si MassaGiri1 < MassaGiri2 Entonces
Si MassaGiri2 < MassaGiri3 Entonces
Si MassaGiri3 < MassaGiri4 MassaGiri4 Entonces
Si MassaGiri4 < MassaGiri5 Entonces
Si MassaGiri5 < MassaGiri6 Entonces
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
-
Imprime un archivo de números consecutivos cuya suma es 63. El número de opciones es grande, el programa se cuelga durante un tiempo.
Aunque no está muy claro qué significa "consecutivo".
Aquí está el comienzo del archivo (los espacios se sustituyen por guiones):
-
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
......

Hasta mañana.

[richie]

Aquí hay 4086 combinaciones (tienes que guardar el archivo primero, para que esté todo en una línea):

[Sceptic Philozoff]

Richie, por qué no te cuidas, trabajas tanto, por Dios, escribes programas todo el tiempo entre trabajos... Es un dolor de cabeza, ¿no? No puedes hacer eso. Mientras tanto, nos tomaremos un descanso del ritmo frenético que llevas.