Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
REBOND
alexvire le 30/06/2010 à 18:57
Salut, j'ai fais un programme où une balle rebondit sur le sol de l'écran. (Comme une balle rebondissante.)
Je tenais à le poster ici avant de le mettre sur mon site au cas où vous auriez des améliorations à y apporter.
Code
StoreGDB 0
ClrDraw
AxesOff
FnOff
While 1
0{->}Xmin
9.4{->}Xmax
0{->}Ymin
6.2{->}Ymax
0{->}A
1{->}B
0{->}C
randInt(4,8{->}D
0{->}E
0{->}F
Repeat D<.5
If getKey
Goto 0
{-}C²+D{->}G
Pt-Off(E,F,2
Pt-On(C,G,2
C{->}E
G{->}F
If C<Xmin or C>Xmax
{-}B{->}B
C+.1B{->}C
If G>0
0{->}A
If G<0 and not(A
Then
1{->}A
Xmin-C-B{V(}abs(C{->}Xmin
Xmax-C-B{V(}abs(C{->}Xmax
{-}C{->}C
D-.3D{->}D
End
End
End
Lbl 0
ClrHome
Output(4,6,"ALEXIS
RecallGDB 0
DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar GDelVar YDelVar GDB0
Output(1,1,"
Akmdad le 30/06/2010 à 20:13
merci.Akmdad le 30/06/2010 à 20:25
c'est quoi [V(]?linkakro le 01/07/2010 à 00:56
Cela doit être une racine carrée, pour la formule avec les trajectoires paraboliques.alexvire le 01/07/2010 à 09:13
Exact. Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
