HP Prime для всех

English  Русский 
Числа games-app screenshot}}
Название Числа
Описание Number guessing game.
Автор Mickaël Nicotera

Исходный код (скачать):

Исходный код отформатирован программными средствами сайта

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;

Комментарии