Il est de bon ton de se souhaiter la bonne année. Mais vous, et vous seul, pourrez faire en sorte que cette année soit bonne, meilleure que celle qui vient de s'écouler. Apprenez à ne compter que sur vous, car personne n'est plus qualifié que vous-même pour bâtir, réparer ou améliorer votre propre vie. Personne ne fera les choses à votre place. D'ailleurs, tout ce que les autres peuvent faire, c'est souhaiter que vous le fassiez. Et ne croyez pas que tout ceux qui vous entourent vous apporteront des solutions : certains font juste partie de vos problèmes. Transformez vos résolutions en actes, et dans douze mois, retournez-vous et souriez-vous fièrement : C'était long. C'était difficile. Mais ça y est : 2017 était une bonne année, merci Moi.

Réécriture d'une phrase à l'envers

Pseudo-code

AFFICHE "Entre une phrase quelconque : "
ACCEPTE Phrase
POUR Ctr = LONGUEUR (Phrase) JUSQU'A 1
AFFICHE Phrase[Ctr]
SUIVANT Ctr

Visual Basic

Sub PhraseALenvers()
  Dim Phrase As String
  Dim PhraseEnvers As String
  Phrase = "Tu l'as trop écrasé, César, ce port-salut"
  For compteur = Len(Phrase) To 1 Step -1
    PhraseEnvers = PhraseEnvers & Mid(Phrase, compteur, 1)
  Next
  MsgBox PhraseEnvers
End Sub

Améliorations :

- Laisser le choix à l'utilisateur de la phrase
- Réécrire la phrase une lettre sur 2