Outils pour utilisateurs

Outils du site


kda:syracuse

syracuse

(Declarer ndepart Detype “nombre”) (Declarer n Detype “nombre”) (Declarer vol Detype “nombre”) (Declarer max Detype “nombre”) (Declarer altitudevol Detype “nombre”) (Declarer testnombre Detype “booleen”) (Affectera vol 0) (Affectera max 0) (Afficher “Entrer un nombre entier :”) (Affectera ndepart (Demanderunnombre)) (Affectera n ndepart) (Afficher n) (Affectera altitudevol 0) (Affectera testnombre Faux)

(Tantque (=/ n 1)
Faire
(Si (= 0 (% n 2)) Alors (Affecter
a n (/ n 2))

   Sinon
      (Affecter_a n (+ (* n 3) 1))
  )
  (Afficher n)
  
  (Si (> n max)
    Alors 
     (Affecter_a max n)
    Sinon 
     (Affecter_a max max) 
  )
  
  (Si (Et (< n ndepart) (= testnombre Faux ) )
   Alors 
  (Affecter_a altitudevol n)
  (Affecter_a testnombre Vrai)
  )
  

(Affecter_a vol (+ vol 1))
)

(Afficher (Concatener “Temps de vol : ” (Texte vol))) (Afficher (Concatener “Altitude maximale : ” (Texte max))) (Afficher (Concatener “Temps de vol en altitude : ” (Texte altitudevol

(/MicroAlg)

kda/syracuse.txt · Dernière modification: 2017/11/14 12:04 par 195.221.62.1