Outils pour utilisateurs

Outils du site


kda:syracuse

Différences

Ci-dessous, les différences entre deux révisions de la page.

Lien vers cette vue comparative

kda:syracuse [2017/11/07 11:22]
195.221.62.1 créée
kda:syracuse [2017/11/14 12:04] (Version actuelle)
195.221.62.1
Ligne 1: Ligne 1:
 # syracuse # syracuse
- 
-(MicroAlg "​syracuse-src"​) 
- 
 (Declarer ndepart De_type "​nombre"​) (Declarer ndepart De_type "​nombre"​)
 (Declarer n De_type "​nombre"​) (Declarer n De_type "​nombre"​)
 +(Declarer vol De_type "​nombre"​)
 +(Declarer max De_type "​nombre"​)
 +(Declarer altitudevol De_type "​nombre"​)
 +(Declarer testnombre De_type "​booleen"​)
 +(Affecter_a vol 0)
 +(Affecter_a max 0)
 (Afficher "​Entrer un nombre entier :") (Afficher "​Entrer un nombre entier :")
 (Affecter_a ndepart (Demander_un_nombre)) (Affecter_a ndepart (Demander_un_nombre))
 (Affecter_a n ndepart) (Affecter_a n ndepart)
 (Afficher n) (Afficher n)
 +(Affecter_a altitudevol 0)
 +(Affecter_a testnombre Faux)
 +
            
 (Tant_que (=/ n 1) (Tant_que (=/ n 1)
            
  Faire  Faire
 +    ​
     (Si (= 0 (% n 2))      (Si (= 0 (% n 2)) 
      Alors      Alors
Ligne 19: Ligne 26:
         (Affecter_a n (+ (* n 3) 1))         (Affecter_a n (+ (* n 3) 1))
     )     )
-    (Afficher n)        +    (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) (/MicroAlg)
  
kda/syracuse.txt · Dernière modification: 2017/11/14 12:04 par 195.221.62.1