Portail
Rechercher
Connexion
Chatbox externe
Derniers sujets
Partenaires
| TI-Planet | Espace-TI : Forum |
|
|
|
Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)
Les posteurs les plus actifs du mois
| Aucun utilisateur |
Joyeux noel 2015 !!!
+2
Mingerton
m@thieu41
6 participants
Page 1 sur 1
Joyeux noel 2015 !!!
par m@thieu41 Jeu 24 Déc 2015 - 17:32
Bonjour tout le monde ! 
De bonnes fêtes à tous !
J'ai réalisé ce programme à partir de ce que j'avais déjà fait à d'autres occasions
Voici le code :
Ho ho ho !!
De bonnes fêtes à tous !
J'ai réalisé ce programme à partir de ce que j'avais déjà fait à d'autres occasions
Voici le code :
- Code:
ClrHome
ClrDraw
"JOYEUX NOEL!!! →Str0
sub(Ans,9,7→Str1
sub(Str0,1,7→Str2
getKey
6rand
If Ans<1
Goto 1
If Ans<2
Goto 2
If Ans<3
Goto 3
If Ans<4
Goto 4
If Ans<5
Goto 5
1→A
1→D
Repeat getKey
min(8,max(1,A+D→A
ClrHome
For(θ,1,8
A
If fPart(.5θ
9-Ans
Output(Ans,2θ,sub(Str1+" ",θ,1
End
If A=1 or A=8
⁻D→D
End
Goto 0
Lbl 5
Disp Str0
15→dim(L₁
Fill(1,L₁
Repeat Ans
randInt(1,15
Ans-(Ans=8→N
L₁(N→A
1-2(8=A→D
Repeat Ans or A=1 or A=8
Output(A,N,"
D+A→A
Output(Ans,N,sub(Str0,N,1
Ans→L₁(N
getKey→K
End
End
Goto 0
Lbl 4
Output(1,1,Str1
Repeat getKey
Output(randInt(1,8),randInt(1,16),Str0
End
Goto 0
Lbl 3
Repeat getKey
Text(randInt(0,57),randInt(0,68),Str0
End
Goto 0
Lbl 2
5→A
4→B
Repeat getKey
B→F
A→E
min(8,max(1,A+randInt(⁻1,1→A
min(10,max(1,B+randInt(⁻1,1→B
Output(E,F,"
Output(A,B,sub(Str0,1+8int(2rand),8
20!
End
Goto 0
Lbl 1
{1,1,1,1,1,1,5,10,1,⁻1,1,1→L₁
Repeat getKey
For(θ,0,1
6θ→B
For(A,1,2
L₁(B+A→L₁(B+4+A
End
max(1,min(8,L₁(B+1)+L₁(B+3→L₁(B+1
If Ans=1 or Ans=8
⁻L₁(B+3→L₁(B+3
max(1,min(10,L₁(B+2)+L₁(B+4)→L₁(B+2
Output(L₁(B+5),L₁(B+6),"
Output(L₁(B+1),Ans,sub(Str0,1+8θ,8
If Ans=1 or Ans=10
⁻L₁(B+4→L₁(B+4
End
End
Lbl 0
ClrHome
ClrDraw
Ho ho ho !!
m@thieu41- ----------------------
- Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :- TI-82 Stats.fr
. :
Mingerton- ----------------------
- Messages : 251
Points Concours : 103
Productivité : 5
Date d'inscription : 10/10/2013
Localisation : Comté de Kerry, Irlande
Re: Joyeux noel 2015 !!!
par Ti64CLi++ Sam 26 Déc 2015 - 17:12
Joyeux Noël à tout le monde (en retard, je sais 
)
)
Ti64CLi++- Connaisseur
- Messages : 102
Points Concours : 1
Productivité : 1
Date d'inscription : 16/07/2015
Localisation : Valence
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. :
-
STV- Intéressé
- Messages : 29
Points Concours : 90
Productivité : 0
Date d'inscription : 08/09/2015
Localisation : 92, France
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. :
Wistaro- Passioné
- Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. : -
Re: Joyeux noel 2015 !!!
par clem130 Mar 5 Jan 2016 - 10:01
Joyeux Noël (très en retard je sais) et Bonne année 2016
Sinon très bon programme m@thieu41
Sinon très bon programme m@thieu41
clem130- Nouveau Venu
- Messages : 1
Points Concours : 0
Productivité : 0
Date d'inscription : 04/12/2015
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
» Bonne année 2018!
» Lancement du TI-Concours 2017 !
» Chaînes Youtube des membres
» cacul du taux d'intêret
» [Projet] Un mario by tout82
» Cherche documentation assembleur TI82stat
» Probleme Ti-82 Stats fr
» ROM 82 stats.fr