[83] Fléchettes
2 participants
Page 1 sur 1
![[83] Fléchettes Empty](https://2img.net/i/empty.gif)
[83] Fléchettes
par persalteas Lun 6 Sep - 18:55
voilà un vieux programme que je retrouve et qui vous intéressera peut-être:
un jeu de fléchetes.
un jeu de fléchetes.
- Spoiler:
- Code:
:Full
:ClrHome
:" Σx----->"→Str1
:Output(3,1,"****************"
:Output(4,1,"***FLECHETTES***"
:Output(5,1,"****************"
:For(Y,1,8)
:If Y=3:6→Y
:For(K,1,7
:Output(Y,K,Str1
:69!
:End
:End
:Pause
:‾4→A:‾6.5→B
:0→S:1→T
:1→C:1.1→D
:ClrDraw
:‾5→Ymin
:5→Ymax
:7.5→Xmax
:‾7.5→Xmin
:For(K,1,5
:Circle(0,0,K
:End
:Line(6,3,7.5,3
:Line(6,1,7.5,1
:Line(6,1,6,5
:
:Lbl 1
:Text(3,87,S
:Text(15,87,T
:
:Repeat getKey=105
:Line(‾7.5,A-C,‾6,A-C,0
:Line(B-D,‾5,B-D,‾4,0
:Line(‾7.5,A,‾6,A
:Line(B,‾5,B,‾4
:If abs(A)≥5:‾C→C
:If abs(B)≥7.5:‾D→D
:A+C→A
:B+D→B
:End
:T+1→T
:
:
:A-C→A
:B-D→B
:Line(‾7.5,A,‾6,A,0
:Line(B,‾5,B,‾4,0
:Pt-On(B,A,3
:iPart(√(A²+B²)→K
:S+(5-K)→S
:A+C→A
:B+D→B
:If T≠16:Goto 1
:Text(3,87,S
:Horizontal ‾1
:For(K,‾.8,1,0.1
:Line(Xmin,K,Xmax,K,0
:End
:Horizontal 1
:Text(28,20,"<--SCORE: ",S," -->"
:Pause
:ClrDraw
:ClrHome
:DelVar ADelVar BDelVar CDelVar DDelVar SDelVar KDelVar TDelVar XDelVar YDelVar Str1
:Output(1,1,"
Dernière édition par persalteas le Ven 31 Déc - 10:05, édité 1 fois
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|