Sol-ActPlusMoins

Solution possible du jeu : 1ère étape : TI CASIO Program JEU1 Program JEU1 entAléat(0,100)(Y Int (Ran( ( 100)+1(Y Disp "DONNER UN ENTIER" Disp "DONNER UN ENTIER ENTRE 0 ET Disp "ENTRE 0 ET 100" 100":?(X Input X 1(I 1(I While X(Y While X(Y If X>Y If X>Y Then "PLUS PETIT" Then ?(X Disp "PLUS PETIT" 1+I(I Else Else "PLUS GRAND" Disp "PLUS GRAND" ?(X End 1+I(I 1+I(I IfEnd Prompt X WhileEnd End "REPONSE":Y( Disp "REPONSE",Y "NB PARTIES":I( Disp "NB PARTIES",I "BRAVO"( Disp "BRAVO" 2ème étape : TI CASIO Program JEU2 Program JEU2 ClrHome 0 ) A 0 ) A 100 ) B 100 ) B While B- A > 2 While B- A > 2 Int((A+B)/2) ) C ClrHome partEnt((A+B)/2) ) C Disp C Disp "+ petit taper 1" Disp « + grand taper 2 « Disp " trouve taper 3" Input X If X = 1 then C ) B End If X = 2 then C ) A End If X = 3 then C ) A C ) B End End partEnt((A+B)/2) ) C Disp " EUREKA",C