|
| [ Envoyer un message ] | [ Forum ti83 ] | [ F.A.Q. ] |
| (2 visiteurs) |
| Forum Ti83 | Modification: 5/9/2005 Création: 3/3/2001 |
|
|---|---|---|
Un forum sur la calculette ti83 qui permet de programmer des jeux et de faire un peu tout ce que vous voulez ! |
||
:LBL 1
:1000->M
:CLRHOME
:CLRDRAW
:DISP "","",""," CAR RACE"
:PAUSE
:LBL 2
:CLRHOME
:DISP "MONEY:"
:DISP M
:IF M",B
:IF B>M
:GOTO 2
:IF B",T
:IF T>3
:GOTO 2
:CLRHOME
:CLRDRAW
:DISPGRAPH
:1->XMIN
:50->XMAX
:0->XSCL
:1->YMIN
:50->YMAX
:0->YSCL
:5->A
:5->C
:5->E
:LBL 3
:LINE(0,40,A,40)
:LINE(0,30,C,30)
:LINE(0,20,E,20)
:RANDINT(0,4)->X
:A+X->A
:RANDINT(0,4)->Y
:C+Y->C
:RANDINT(0,4)->Z
:E+Z->E
:IF A>50
:GOTO 4
:IF C>50
:GOTO 5
:IF E>50
:GOTO 6
:GOTO 3
:LBL 4
:1->W
:CLRHOME
:DISP "WINNER:"
:PAUSE
:DISP " FIAT UNO TURBO"
:PAUSE
:GOTO 7
:LBL 5
:2->W
:CLRHOME
:DISP "WINNER:"
:PAUSE
:DISP "VW GOL GTI 16V"
:PAUSE
:GOTO 7
:LBL 6
:3->W
:CLRHOME
:DISP "WINNER:"
:PAUSE
:DISP "CITROEN SAXO CUP"
:PAUSE
:GOTO 7
:LBL 7
:CLRHOME
:IF W=T
:GOTO 8
:IF W=\=T ( =\= is the "not equal" sign)
:GOTO 9
:LBL 8
:DISP "","",""," YOU WIN!"
:PAUSE
:B+M->M
:GOTO 2
:LBL 9
:DISP "","",""," YOU LOOSE!"
:PAUSE
:M-B->M
:GOTO 2
:LBL L
:CLRHOME
:DISP "","",""," YOU ARE BROKE!"
:PAUSE
:CLRHOME
:STOP
voici mon jeux mais vous pouvez le mettre en francais