Algo TD n°3

Partie III, 2

a)

Algorithme saisieReel
{Cet algorithme permet la saisie de nombres rééls}

constantes
	(MIN : réél) <- 0,5
	(MAX : réél) <- 5

variables
	nb : réél
	ok : booléen

Début

	afficher("Saisissez un nombre réél: ")
	répéter
		saisir(nb)
		ok <- (nb<MIN ou nb>MAX)
	tant que non ok
	afficher("La valeur qui a provoqué l'arrêt est ", nb)
Fin

b)

Algorithme saisieReelP
{Cet algorithme permet la saisie de nombres rééls positifs}

constantes
	(MIN : réél) <- 0,5
	(MAX : réél) <- 5

variables
	nb : réél
	ok : booléen

Début

	afficher("Saisissez un nombre réél: ")
	répéter
		saisir(nb)
		ok <- ((nb<MIN et nb>0) ou nb>MAX)
	tant que non ok
	afficher("La valeur qui a provoqué l'arrêt est ", nb)
Fin

c)

Algorithme saisieReelP
{Cet algorithme permet la saisie de nombres rééls positifs}

constantes
	(MIN : réél) <- 0,5
	(MAX : réél) <- 5

variables
	nb : réél
	cpt : entier
	ok : booléen

Début
	cpt <- 0
	afficher("Saisissez un nombre réél: ")
	répéter
		saisir(nb)
		cpt <- cpt + 1
		ok <- ((nb<MIN et nb>0) ou nb>MAX)
	tant que non ok
	afficher("La valeur qui a provoqué l'arrêt est ", nb)
	afficher(" il a fallu ", cpt, "essai(s)")
Fin

d)

Algorithme saisieReelP
{Cet algorithme permet la saisie de nombres rééls positifs}

constantes
	(MIN : réél) <- 0,5
	(MAX : réél) <- 5

variables
	nb : réél
	cpt : entier
	ok, maxessais : booléens

Début
	cpt <- 0
	afficher("Saisissez un nombre réél: ")
	répéter
		saisir(nb)
		cpt <- cpt + 1
		ok <- ((nb<MIN et nb>0) ou nb>MAX)
		maxessais <- (cpt >= 4)
	tant que non ok et non maxessais
	si (ok) alors
		afficher("La valeur qui a provoqué l'arrêt est ", nb)
		afficher(" il a fallu ", cpt, "essai(s)")
	sinon
		afficher("Les 4 saisies sont erronées")
	fsi
Fin