Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Vous ne pouvez pas poster de nouveaux sujets dans ce forum Verrouillé
Résultats du concours n°1
Auteur Message
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Mar 23 Mai 2006, 21:23   Citer 

Bonsoir,

Le grand vainqueur de ce premier concours est Ratuss ! Son programme est de très bonne facture et le très faible nombre de participants n'entâme en rien la qualité de ce programme, ni même mes félicitations à son égard.
Nombre de participants : 1 (et oui, le choix du vainqueur fût dur !)

@+ Le Webmaster beer.gif


Voici son programme :

http://www.badongo.com/file/3915067 (en *.82p)


Code
:Lbl D
:1 -> dim L6
:ClrHome
:0 -> E
:Menu("-----BOOM!------","NORMAL",N,"PERSONNALISE",E,"OPTIONS",O,"CREDITS",C,"QUITTER",Q
:Lbl O
:Menu("OPTIONS","VOTRE SCORE",S,"EFFACER SCORE",F,"RETOUR",D
:Lbl F
:Menu("EFFACER SCORE","NON",D,"OUI",T
:Lbl T
:0 -> L6(1
:Lbl S
:Output(4,3,"VOTRE SCORE :
:If .54278 [différent de] fPart L6(1
:1000 -> W
:Output(6,7,W
:Pause
:Goto D
:Lbl C
:Output(4,6,"RATUSS
:Output(6,5,"29/04/06
:Pause
:Goto D
:Lbl E
:1 -> E
:Lbl N
:If .54278=fPart L6(1:Then
:int (L6(1)/100 -> O
:Else
:10 -> O
:End
:If E=1
:Then
:0 -> O
:While O>99 or O<1
:ClrHome
:Disp "NOMBRES DE MINES
:Input "(1-99) : ",O
:int O -> O
:End
:End
:FnOff :AxesOff
:0 -> Xmin
:94 -> Xmax
:0 -> Xscl
:0 -> Ymin
:62 -> Ymax
:0 -> Yscl
:ClrDraw
:For( [THETA] ,1,73,6
:Line( [THETA] ,1, [THETA] ,61
:End
:For( [THETA] ,1,61,6
:Line(1, [THETA] ,73, [THETA]
:End
:Line(69,56,69,60
:Line(70,58,70,59
:Pt-On(71,58
:4 -> A:4 -> B:4 -> M:4 -> N:100O -> W
:1 -> dim L6
:13 -> dim L6
:0 -> Q
:int rand13+2 -> P
:int rand10+1 -> U
:For( [THETA] ,32,42
:Line(8, [THETA] ,66, [THETA] ,0:End
:Text(22,10,"CHARGEMENT : 0
:While Q<O
:For( [THETA] ,P,13
:For(Z,U,10
:int (rand120/O -> I
:If I=0 and ( [THETA]  [différent de] 2 or (Z [différent de] 1 and Z [différent de] 2)) and ( [THETA]  [différent de] 3 or (Z [différent de] 1 and Z [différent de] 2)) and ( [THETA]  [différent de] 12 or (Z [différent de] 9 and Z [différent de] 10)) and ( [THETA]  [différent de] 13 or (Z [différent de] 9 and Z [différent de] 10)) and .1 [différent de] fPart (round(10^(Z-1)*L6( [THETA] ),1:Then
:10^úZ+L6( [THETA]  -> L6( [THETA]
:Pt-Off(6 [THETA] -8,6Z-2
:Q+1 -> Q
:Text(22,54,int (Q/O*100
:If Q=O:Goto 1
:If getKey=45:Goto D
:End
:End
:1 -> U
:End
:2 -> P
:End
:Lbl 1
:For( [THETA] ,32,42
:Line(8, [THETA] ,66, [THETA] ,0:End
:Line(8,37,66,37
:For( [THETA] ,7,61,6
:Line( [THETA] ,32, [THETA] ,42
:End
:Text(7,75,"MINES
:Text(13,76,O
:Text(25,75,"APROX
:Text(31,75,"IMITE
:Text(49,75,"SCORE
:If E=1
:Text(55,76,"----
:
:Lbl 0
:Line(A+1,B,A-1,B
:Line(A,B-1,A,B+1
:If M [différent de] A or N [différent de] B
:Line(M+1,N,M-1,N,0
:0 -> P
:If .1=fPart (round(L6((A+8)/6)*10^((B-4)/6),1
:Then
:Text(37,76,"BOOM!
:Goto P
:End
:If A<70:Then
:If .1=fPart (round(L6((A+14)/6)*10^((B-4)/6),1
:P+1 -> P:End
:If A>4:Then
:If .1=fPart (round(L6((A+2)/6)*10^((B-4)/6),1
:P+1 -> P:End
:If B<58:Then
:If .1=fPart (round(L6((A+8)/6)*10^((B+2)/6),1
:P+1 -> P:End
:If B>4:Then
:If .1=fPart (round(L6((A+8)/6)*10^((B-10)/6),1
:P+1 -> P:End
:Text(37,76,P
:If E=0
:Text(55,76,W
:If A=70 and B=58:Goto G
:0 -> K:While K=0
:getKey -> K:End
:A -> M:B -> N
:If K=24 and A>4:Then
:A-6 -> A
:W-5 -> W
:End
:If K=26 and A<70:Then
:A+6 -> A
:W+5 -> W
:End
:If K=25 and B<58:Then
:B+6 -> B
:W+5 -> W
:End
:If K=34 and B>4:Then
:B-6 -> B
:W-5 -> W
:End
:If K=45
:Menu("QUITTER?","NON",0,"OUI",D
:Goto 0
:Lbl G
:For( [THETA] ,1,3
:Line(68+ [THETA] ,56,68+ [THETA] ,60,0
:End
:For( [THETA] ,1,6
:If A [différent de] 70:Then
:Line(M+1,B,M-1,B,0
:Line(M,B-1,M,B+1,0
:End
:Line(A+1,B,A-1,B
:Line(A,B-1,A,B+1
:If A=70:Then
:For(Z,1,5,.05
:Pt-Off(73,55+int Z
:End
:For(Z,1,500:End
:End
:For(Z,1,250:End
:A -> M:A+6 -> A
:End
:Lbl P
:If E=0
:W+.54278 -> L6(1
:Line(A-2,B-2,A+2,B+2
:Line(A+2,B-2,A-2,B+2
:For( [THETA] ,2,13
:For(Z,1,10
:If .1=fPart (round(L6( [THETA] )*10^(Z-1),1
:Then
:Line(6 [THETA] -6,6Z,6 [THETA] -10,6Z-4
:Line(6 [THETA] -6,6Z-4,6 [THETA] -10,6Z
:End:End:End
:Pause
:Goto D
:Lbl Q
:ClrHome
:ClrDraw
:FnOn
:AxesOn



----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Verrouillé





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa