rem ----- Deviner un nombre entre 1 et 1000 ----- rem ***** par Flow60 ***** rem sans GOTO c'est promis ;-) rejoue$="O" while (rejoue$="O" or rejoue$="o") secret=int(ran(1001)) score=1 print"***********************" print"* Le chiffre secret *" print"***********************" print" " print"Vous devez deviner un nombre entre 0 et 1000" print" Quel est votre reponse? " input choix while (choix<>secret) if (choix>secret) then print"Trop grand":print"Votre reponse : ":input choix:score=score+1 else print"Trop petit":print"Votre reponse : ":input choix:score=score+1 endif wend print"Bravo! C'est gagne. vous avez trouve en "+str$(score)+" coups" print"Voulez-vous rejouer? (O/N)" input rejoue$ wend