Jeux de Basket et de Batons
Programme BASKET721 pas
BASKET
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | "BASKET" " CASIO" Disp " " Deg Mcl "NOMBRE DE JOUEURS:" ?->Z 85->O Lbl 0 Z=G=>0->G Isz G Range 1,95,0,0,62,0 Plot 0,22:Plot 0,40:Line Plot 0,31:Plot 89,30:Line Plot 95,0:Line Plot 75,25:Plot 76,21:Line Plot 80,21:Plot 82,25:Line Plot 87,25:Line Plot 90,0:Line Plot 85,23:Plot 85,40:Line Plot 85,31:Plot 89,30:Line Int 73Ran#+2->S Int 60Ran#+2->T Plot S-1,T+1:Plot S+1,T-1:Line Plot S+1, T+1:Plot S-1,T-1:Line "Joueur":G Disp " " "ANGLE:"?->A "FORCE :"?->U " ":" ":" ":" ":" ":" ":" ":" ":" ":" " U/10->U Ucos A->V Usin A->W Lbl 1 W-.1->W S+V->S T+W->T Plot S,T TT>23=>S>75=>SGoto 3 S>84=>ST>24=>T-V->V T-W->W TT>23=>SS>81=>-W->W S>95=>Goto 2 SGoto 2 Goto 1 Lbl 2 "OUT" Goto 5 Lbl 3 WGoto 4 "HUM..." Goto 5 Lbl 4 "BRAVO" Goto 8 Lbl 7 Isz C[G] "SUR" C[G] Disp C[Z]=10=>Goto 9 Goto 0 Lbl 8 G=1=>J+1->J Disp G=2=>K+1->K Disp G=3=>L+1->L Disp Lbl 5 "SCORE" G=1=>J Disp G=2=>K Disp G==>L Disp Goto 7 Lbl 9 "SCORE FINAL : " "JOUEUR 1": J Disp Z=1=>Prog G "JOUEUR 2": K Disp Z=2=>Prog G "JOUEUR 3": L Disp Prog G |
Programme “BATONS”
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | "BATONS" " PAR REMI P." " " 21->Z Lbl A "IL RESTE ":Z Disp "RETIRE "?->W W>3=>Goto A WGoto A W>Z=>Goto A Z-W->Z Z=0=>Goto B Z=1=>Goto C 1->W Frac ((Z-2)/4)=0=>1->W Frac ((Z-3)/4)==>2->W Frac ((Z-4)/4)=0=>3->W Z-W->Z Goto A Lbl B:"Perdu":Goto Z Lbl C:"Gagne":Goto Z Lbl Z: "Ok" |
