1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
| Programme individu()
Var poids entier ;
Var rapport :entier ;
Var taille :entier ;
Début
Affiche(« Saisir poids en kilos) ;
Affiche(« Saisir taille en cm) ;
Procédure Lire( entier poids, entier taille) ;
Tant que entier poids ==0 ou entier taille==0{
Affiche(« Attention vous avez saisi une valeur nulle veuillez
Redéfinir les valeurs de poids et taille »
Affiche(« Saisir poids en kilos) ;
Affiche(« Saisir taille en cm) ;
)
Affiche(Le poids est de poids et la taille est de taille} ;
Fonction Rapport PT(entier poids, entier taille) {
Entier rapport = poids/taille ;
Return rapport ;
}
Fin
Programme menu()
Var consommation ,kmparcourus,temps,vhm:entier ;
Var choix :char ;
Début
Affiche(« Choisir option, D,C,V ou Q ») ;
Lire choix ;
Tant que choix différent de D,C,V,Q
Affiche(« veuillez faire un choix autorisé, d,c,v ou Q) » ;
FinTantQue ;
Fin
Programme tableau()
Var tableaupair,tableau[1,max] :entier
Var tableau impair tableau [1
nmax] :entier
Var x :entier
Var pair booleen
Début
Affiche(« Saisir une valeur ») ;
Lire.x
Affiche (« Ajouter une valeur ») ;
Lire.x
Tant que x different de null
Affiche (« Ajouter une valeur ») ;
Lire.x ;
Fin TantQue
Fonction parite( entier x){
Pour %x==0 est vrai ajouter dans tableau pair
si faux ajouter dans tableau impair ;
}
affiche tableaupair ;
affiche tableau impair ;
Fin
Programme puissance()
Début
Var i : entier ;
Fonction puissance(entier i ){
Entier i=0 ;
Tantque i>=1
F=2*F(i-1)
}
Fin Tant Que
Fin |
Partager