HP Prime for All
English
Русский
HP Apps : Numbers
| Name | Numbers |
| Description | Number guessing game. |
| Author | Mickaël Nicotera |
Source code (download):
Source code formatted by website engine
pom()
BEGIN LOCAL P, N, Q;
MSGBOX("Jeu du nombre mystère : Plus ou moins ?");
1000▶P;
RANDINT(1000)▶N;
MSGBOX("Trouvez le nombre mystère entre 0 et 1000 !");
WHILE P > 0 DO INPUT(Q, "Entrez un nombre", "Nbre mystère = ");
IF Q == N THEN MSGBOX("Nombre mystère trouvé ! Points = "+P);
BREAK;
ELSE
P−1▶P;
IF Q > N THEN MSGBOX("C'est moins.");
ELSE
MSGBOX("C'est plus.");
END;
END;
END;
END;