Discussion :

[judejuda]

"Bonjour"
Quand une balle rebondit elle rebondit à la moitié de sa hauteur.
Ecrire un programme qui affiche dans la fenêtre d'exécution le nombre de rebonds effectués avant l'arrêt de la balle de 2cm de rayon, quand elle est lâchée d'une hauteur de 1.5m ( il y a arrêt de la balle quand le rebond théorique est inférieur au rayon de la balle). On prévoiera la possibilité de recommencer l'expérience autant de fois que l'on veux avec des balle différentes et même de ne pas réaliser du tout.

Merci de m'aider car j'ai quelque difficultés.

[philben]

Voilà, n'hésites pas si tu as besoin encore d'aide, on est là pour vous soulager des exos qui sont seulement compris et résolus par les plus motivés.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Function Rebonds(ByVal HauteurEnMetre As Double, ByVal RayonEnCm As Double)
   Const cMaxLargeur As Integer = 75, FacteurReductionRebond As Double = 0.5  '= hauteur divisée par deux
   Dim NbRebonds As Long, HauteurEnCm As Double, HauteurInitialeEnCm As Double
   If HauteurEnMetre > 0 And RayonEnCm > 0 Then
      HauteurInitialeEnCm = HauteurEnMetre * 100
      HauteurEnCm = HauteurInitialeEnCm
      While HauteurEnCm >= RayonEnCm
         Debug.Print "|" & String(Int(HauteurEnCm * cMaxLargeur / HauteurInitialeEnCm), "*") & " " & Format(HauteurEnCm, "0.0## cm")
         NbRebonds = NbRebonds + 1
         HauteurEnCm = HauteurEnCm * FacteurReductionRebond
      Wend
      Debug.Print vbCrLf & "-> Nombre de rebonds (h:" & HauteurEnMetre & "m - r:" & RayonEnCm & "cm) = " & NbRebonds
   Else
      Debug.Print "Données erronées...", "Hauteur = " & HauteurEnMetre, "Rayon = " & RayonEnCm
   End If
End Function

Bonne continuation,

Philippe