👤
résolu

Bonsoir,
Es que quelqu'un connaît un programme pour pierre feuille ciseaux sur calculatrice casio

Répondre :

UTOPIA01VIZ
Bonjour,

Tu met ça dans ta calculatrice.

Do
0->A~D
Int 3Ran#+1->A
ClrText
Locate 3,1,"CHOISIR UN SIGNE"
Locate 1,2,"---------------------"
Locate 1,3,"F1.PIERRE"
Locate 1,4,"F2.FEUILLE"
Locate 1,5,"F3.CISEAUX"
Do:Getkey:LpWhile Ans!=79 And Ans!=69 And Ans!=59
ClrText
Ans=79=>1->B
Ans=69=>2->B
Ans=59=>3->B
Locate 1,1,"VOUS:"
Locate 1,2,"CALTO:"
For 1->C To 2
C=1=>B->D
C=2=>A->D
D=1=>Locate 7,C,"PIERRE"
D=2=>Locate 7,C,"FEUILLE"
D=3=>Locate 7,C,"CISEAUX"
Next
B-A->C
C=-1 Or C=2=>Locate 1,3,"PERDU"
C=1 Or C=-2=>Locate 1,3,"GAGNE"
C=0=>Locate 1,3,"EGALITE"
Locate 1,5,"REJOUER ?"
Locate 1,6,"F1->OUI"
Locate 1,7,"F2->NON"
Do:Getkey->C:LpWhile C!=79 And C!=69
LpWhile C!=69
ClrText
Locate 2,4,"MERCI D'AVOIR JOUE !"
Stop
Merci d'avoir visité notre site Web, qui traite d'environ Informatique. Nous espérons que les informations partagées vous ont été utiles. N'hésitez pas à nous contacter pour toute question ou demande d'assistance. À bientôt, et pensez à ajouter ce site à vos favoris !


Viz Asking: D'autres questions