Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Este sería el algoritmo del martingala con lo que creo que sería un diseño que podría funcionar (aunque habría que probarlo desarrollándolo en un lenguaje para comprobarlo). Con este algoritmo contaríamos el número de partidas perdidas en una variable PartidasPerdidas. El dinero perdido lo contabilizamos en la variable Pérdidas.


función obtenerNuevosParámetros() {

si apuestaGanada = verdadero Entonces
   Objetivo = Balance*0.01
   Apuesta = Objetivo*1.1   
   PartidasPerdidas = PartidasPerdidas - 1;
Fin Si

Si apuestaGanada = falso Entonces
   Balance=Balance-Apuesta;
   PartidasPerdidas = PartidasPerdidas + 1;
   Pérdidas = Pérdidas + Apuesta;
   Apuesta = (Pérdidas + ObjetivoInicial)*1.1
FinSi

}


ProgramaPrincipal

Inicio
Pérdidas = 0;
PartidasPerdidas = 0;
Balance = 1000; //Establecemos un balance inicial para comenzar la partida
finPartida = falso;
ObjetivoOriginal = Balance*0.01;
Objetivo = Balance * 0.01;
Apuesta = Objetivo*1.1;
Pérdidas = 0;

Mientras finPartida = falso Hacer

apuestaGanada = resultadoDeApostar() //Nos devuelve verdadero si ganamos o falso si perdemos

obtenerNuevosParámetros() //La función determina los nuevos parámetros para la siguiente ronda

finPartida = chequearCondicionFinPartida() //Si se cumple la condición finPartida será verdadero

finMientras

Fin

FinProgramaPrincipal

Hola y saludos desde España,  lo primero que tendría que preguntarte es con qué lenguaje estás desarrollando el programa, si es que lo has empezado a desarrollar con algún lenguaje.

Y para tratar de entender antes de nada me gustaría entender cómo se desarrollaría una partida con martingala si yo soy un jugador.

Te digo lo que he entendido. Soy un jugador y empiezo con 110 puntos (o dólares, o lo que sea). Los apuesto y gano. Entonces la banca me da lo que jugué y además 100 puntos adicionales por haber ganado. Ahora tengo 210 puntos.

¿Ahora vuelvo a aportar 110 puntos o puedo apostar otra cantidad?

Supongamos que apuesto otros 110 puntos y vuelvo a ganar. Ahora tengo 210 + 110 = 320 puntos.

Vuelvo a apostar y gano, ahora tengo 430 puntos.

Vuelvo a apostar y gano, ahora tengo 540 puntos.

Vuelvo a apostar y pierdo, he perdido 110 y vuelvo a tener 430 puntos

¿Ahora apuesto 220 para recuperar lo que perdí en la anterior tirada?

Perdona si te parecen dudas básicas...

Hola, el código está correcto y se ajusta a lo que se pedía. Como único detalle a comentar, vería más correcto que el método setCasado tuviera este código:

    public void setCasado(boolean valorCasado){casado = valorCasado;
        System.out.println("Ha cambiado el valor de estado civil del médico. Ahora casado vale "+ casado);}
Tal y como lo escribes tú: el medico ha indicado que ("+ casado +") esta casado"

sería incorrecto porque te aparecería por pantalla "el médico ha indicado que true está casado" por ejemplo, lo cual no es lógico.

Saludos.

Depende de la implementación de pila que uses. Si usas la implementación de pila del api de Java, no puedes acceder para modificar a un elemento de la pila excepto a la cima. Sí puedes, en cambio, buscar un elemento dentro de una pila y determinar su posición (pero no acceder a él).

Prueba a escribir {"1", "2", "3" } y pulsar OK

O bien Prueba a escribir {1, 2, 3 } y pulsar OK

Para poder ver en concreto dónde está el problema, adjunta los archivos con el código para poder compilarlo. Saludos.

Cada persona va aportando sus respuestas y entre los moderadores de los foros y otros usuarios vamos corrigiendo y haciendo sugerencias, por tanto no hay una recopilación de respuestas. De todas formas, si quieres abrir un hilo y crear un recopilación de respuestas ¡Adelante!

Esto supongo que puede hacerse de diversas maneras pues la programación da pie a que se puedan escribir programas de distintas maneras.

Te indico una posible solución (en este caso usando únicamente un label, Label1):

La condición para entrar al bucle puede ser la que tú has indicado: Do While Modelo(i) <> 850 , aunque también podría plantearse de otras maneras. Supongamos que usamos esta.

Antes de entrar al bucle sabemos algo: que lo primero que viene son coches de fórmula 1, por tanto antes de entrar al bucle podemos escribir Label1 = "Números de modelo de coches de fórmula 1: "

Al entrar en el bucle vamos escribiendo en el label los modelos que vengan directamente, hasta detectar el 350.

En ese momento introducimos dos saltos de línea y escribimos Label1 = Label1 & vbCrLf & vbCrLf & "Números de modelo de motocicletas: "

¿Por qué? Porque sabemos que a partir del 350 lo que vienen son motocicletas.

Seguimos escribiendo todo lo que venga hasta que detectemos el 125 que sabemos que es la última motocicleta. En ese momento escribimos:

Label1 = Label1 & vbCrLf & vbCrLf & "Números de modelo de camiones: "

¿Por qué? Porque sabemos que a partir de ese momento vienen camiones.

Ahora vamos escribiendo todo lo que llega, pero tenemos el problema de que cuando se llegue a 850 no se va a entrar en el bucle ¿Qué podemos hacer entonces? Con un condicional if comprobar si una vez incrementado el valor de i nos viene 850. En ese caso, escribimos Label1 = Label1 & Modelo(i) para que se muestre ese número de modelo.

Al intentar volver al inicio del bucel y valer modelo (i ) = 850 no se entra en el bucle y se sale del programa

La idea se refleja en este código, lo importante más que el programa funcione (espero que sí) es que seas capaz de ver por qué funciona, además prueba a introducir más datos de modelo y predecir tú mismo qué supones que va a hacer el programa. Luego ejecuta el programa y comprueba que hace lo que tú has predicho, si logras esto es que estás "comprendiendo adecuadamente lo que hace el código", saludos

Option Explicit
Dim i As Integer
Dim Modelo(1 To 8) As Integer

Private Sub Form_Load()
Form1.Caption = "Modelos de vehículos"
Label1.Alignment = 2
Label1.Font = True
Modelo(1) = 350
Modelo(2) = 5000
Modelo(3) = 21
Modelo(4) = 100
Modelo(5) = 125
Modelo(6) = 750
Modelo(7) = 800
Modelo(8) = 850
Label1 = "Números de modelo de coches de fórmula 1: "
i = 1
Do While Modelo(i) <> 850
Label1 = Label1 & Modelo(i) & " - "
If Modelo(i) = 350 Then
Label1 = Label1 & vbCrLf & vbCrLf & "Números de modelo de motocicletas: "
End If
If Modelo(i) = 125 Then
Label1 = Label1 & vbCrLf & vbCrLf & "Números de modelo de camiones: "
End If
i = i + 1
If Modelo(i) = 850 Then
Label1 = Label1 & Modelo(i)
End If
Loop
End Sub

La desinstalación debe hacerse siempre desde el panel de control y nada más, el borrado manual sólo debe usarse si se sabe perfectamente lo que se está haciendo...

Con este código logro que encuentre todos los resultados, aunque me saltan algunos errores en determinados casos y además me repite los resultados no tengo del todo claro por qué pero creo que por aquí se podría ir buscando una solución

Option Explicit
Dim xlApp As Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
Dim strResults, strSearch As String
Dim encontrado As Boolean
Dim contador As Integer
Dim rngfnd As Range
Dim txtSearch As String
Dim resultadosHoja(50) As String
Dim resultadoCelda(50) As String

Private Sub Form_Load()
contador = 0
End Sub

Private Sub cmdSearch_Click()
txtSearch = Text1
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open("C:\Users\Asus\Desktop\prueba.xls")
For Each ws In ActiveWorkbook.Worksheets
Set rngfnd = ws.UsedRange.Find(What:=txtSearch, After:=ws.UsedRange.Cells(ws.UsedRange.Cells.Count), LookIn:= _
       xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
       xlNext, MatchCase:=False, SearchFormat:=False)
Do

If (rngfnd.Address <> "") Then
'MsgBox ("prueba " & rngfnd.Address)
   encontrado = True
  MsgBox ("Encontrado resultado en hoja" & ws.Name & " y celda " & rngfnd.Address & " contador = " & contador)
   resultadosHoja(contador) = "" & ws.Name
   resultadoCelda(contador) = rngfnd.Address
   Set rngfnd = ws.UsedRange.FindNext(After:=rngfnd)
   contador = contador + 1
End If
Loop While Not rngfnd Is Nothing And contador < 10
MsgBox ("Ws vale " & ws.Name & "paso al next y siguiente ws")

Next ws
contador = 0
If encontrado = False Then
   MsgBox "Texto no encontrado en el archivo Excel"
End If
End Sub
Private Sub CommandSalir_Click()
'BOTON Salir'
xlApp.Workbooks.Close
xlApp.Quit
Application.Quit
xlApp.Parent.Quit
End
End Sub

¿Qué versión de Windows estás usando y de cuántos bits (32 ó 64) es?

Puede haber algún problema de compatibilidad entre la versión de Windows y la de Java, en particular con Java 8.

Intenta instalar java 7 en lugar de java 8 (http://www.oracle.com/technetwork/java/javase/downloads/jdk7-downloads-1880260.html)

Si no te deja inténtalo con java 6 (http://www.oracle.com/technetwork/java/javase/downloads/java-archive-downloads-javase6-419409.html#jdk-6u45-oth-JPR)

No lo intentes con versiones anteriores porque son demasiado obsoletas