P_32_E21-Acertar+numero+pensado+por+el+programa

=__**Acertar un número pensado por el programa**__=

El programa "piensa un número entre 1 y 100" y el usuario intenta acertarlo con 7 intentos como máximo

El numero "pensado" por el programa es un número aleatorio

code format="pascal" PROGRAM P_30_E21 ; CONST iMAX_INTENTOS = 7 ; VAR iNumPensado, iIntento, iNumero : Integer ; boAcertado                    : Boolean ; BEGIN { Obtener un numero entre 1 y 100 de manera alatoria } Randomize ; iNumPensado := Random (100) + 1 ;

Writeln ; Writeln ; Writeln ('­­ He pensado un numero entre el 1 y el 100 --') ; Writeln ; Writeln ('Te reto a que lo aciertes en ', iMAX_INTENTOS, ' intentos como maximo') ; Writeln ;

iIntento  := 0     ; boAcertado := FALSE ;

REPEAT iIntento := iIntento + 1 ;

Write ('Intento ', iIntento, ' - Que numero crees que es: ') ; ReadLn (iNumero) ;

Writeln ; IF iNumero = iNumPensado THEN boAcertado := TRUE ELSE IF iNumero > iNumPensado THEN Writeln ('                  Debe ser un numero MENOR') ELSE Writeln ('                  Debe ser un numero MAYOR') ;

UNTIL boAcertado OR (iIntento = iMAX_INTENTOS) ;

Writeln ; IF boAcertado THEN Writeln ('MUY BIEN. Has acertado en el intento ', iIntento) ELSE Writeln ('Lo siento, no has logrado acertarlo. ­­ Juega otra vez !!');

Writeln ; Writeln ; ReadLN ; END. code