Page 1 of 1

Hack de calculette

PostPosted: 05 May 2014, 16:45
by pigman
Code: Select all
EffEcr
Lbl 0
Input " " , A
entAleat(-1,1) → B
Disp A+B
Goto 0 


Court mais efficace :)
Signalez moi les bugs please

Re: Hack de calculette

PostPosted: 05 May 2014, 17:00
by Adriweb
Même chose avec une boucle et qu'une variable

Code: Select all
ClrHome                      (EffEcr)
While 1
  Input "",A
  Disp A+randInt(-1,1        (entAlea)
End



Bref, une petite farce bien connue ;)