Programando desde 0: 08- Números aleatorios -- Repetición condicional con WHILE...DO.

[danteolivetti]

Muy bien fantástico!!!, duda resuelta, ya modifiqué los ejercicios. ahora haré el juego que pusiste, mientras, puedes volver a subirlo?, o postear el código, puesto que en el enlace ya no está, te lo agradecería mucho.
Que estes muy bien, un saludo y mis felicitaciones.

[danteolivetti]

Bueno Vlady_18, ya terminé el jueguito de adivinador!!...Me siento muy bien je,je,je. Solo hay unos pequeños detallitos yo diria que son dos.Te paso el código para que le heches un vistazo y me digas por favor cómo resolverlos. Te posteo también una imágen que muestra los detalles.Y otra cosa el programa tarda un en ejecutarse al rededor de 3min. ¿Es normal? Gracias.

PROGRAM AdivinadorEj2;

CONST
   max_intentos=15;
   tope=100;

VAR
   intento_actual, intento_para_adivinar: integer;
   num_a_adivinar, num_leido: integer;
   adivinado: boolean;

BEGIN
   randomize;
   num_a_adivinar:= random(tope) + 1;

   adivinado:= FALSE;

   intento_actual:= 0;

   intento_para_adivinar:= 16;

   writeln('Ingresa números para intentar adivinar: ');
   writeln;

   WHILE (NOT adivinado) and (intento_actual ');
         readln(num_leido);

          IF num_leidonum_a_adivinar then
             begin
          writeln('Lo siento, no has acertado.');
          writeln('El número que debes adivinar es menor.');
          writeln;
             end;


            adivinado:=  num_leido = num_a_adivinar;
      end;

       IF adivinado THEN
          writeln('***Muy bien!!! ***Has adivinado!!!')
       ELSE
          writeln('Lamentablemente has perdido. El número era ',num_a_adivinar);
END.

NOTA: El IF que esta dentro del WHILE lo intente cambiar por un CASE pero no me salio o no supe como hacerlo.

[Vlady_18]

Amigo, no entiendo eso de "los detalles". El programa funciona bien, al poner 1 está bien que te diga que no haz acertado y que el número es mayor ya que se trataba del 15.

¿Qué es lo que no te convence?

[danteolivetti]

Bueno, en realidad lo que no me convence, es que no sea mmm, digamos, identico al ejemplo que pusiste, es decir, que no tiene la misma apariencia, solo eso. Y si el programa funciona del todo bien.
Gracias por tomarte el tiempo de contestarme.

[Vlady_18]

Ah, pues la única diferencia que aprecio por ahí es un salto de línea que separa una respuesta de otra. Es un excelente ejercicio que revises tu código a ver dónde te falta un WriteLn por ahí para que quede la salida idéntica.

Sugerencia: Usa el depurador.

[danteolivetti]

Resuelto y corregido. Error de sintaxis. XD Gracias.

[Vlady_18]

Una cosa amigo. Si el programa compila no tienes un error de sintáxis. Cuando no funciona como queremos pero compila bien, significa que hay un error lógico en alguna instrucción.

Saludos.