3 Compléments sur les fonctions

Exercice 1
Décrire un algorithme qui permet de calculer et d'imprimer le carré maximum de 10 réels saisis au clavier (en utilisant une fonction qui retourne le maximum de 2 réels).

Algorithme
début
nombre <-lire
carrenombre <- nombre * nombre
pour i de 2 à 10 faire
nombre <- lire ()
maximum <- calculerMax2reels (nombre*nombre, maximum)
fpour
écrire (maximum)
fin

Exercice 2
Décrire un algorithme qui permet de calculer et d'imprimer la somme de 10 réels saisis au clavier, après seuillage de chacun d'eux dans les bornes d'un intervalle donné.

Algorithme
début
somme <- 0
inf <- lire ()
max <- lire ()
pour i de 1 à 10 faire
nombre <- lire
seuillerReel (inf, sup, nombre)
somme <- somme + nombre
fpour
écrire (somme)
fin

fonction seuillerReel (inf: réel, sup: x InOut : réel)
début
si x< inf
alors x <- inf
sinon si x > sup
alors x <- sup
fsi
fsi
fin


Exercice 3
Afin d'augmenter les ventes de son supermarché, le gérant a décidé de faire la promotion suivante : pour tout achat supérieur à 100 euros, il offre au client l'article le moins cher et une réduction de 10 % sur l'article le plus cher parmi ses achats.

On vous demande d'écrire un algorithme qui permet d'afficher :
- le total à payer avant les réductions,
- le prix de l'article le moins cher,
- le prix de l'article le plus cher,
- le total à payer après avoir tenu compte des réductions,
- le gain réalisé par le client grâce à ces réductions.
On lit les prix des articles, la valeur 0 marque la fin de la saisie. Vous écrirez et utiliserez deux fonctions, l'une qui retourne le minimum de 2 réels et l'autre le maximum de 2 réels.

Algorithme
début
prix <- lire ()
min <- prix
max <- prix
total <- prix
prix <- lire ()
tant que prix # 0 faire
total <- total + prix
min <- minimum (min, prix)
max <- maximum (max, prix)
prix <- lire()
ftant
si total > max et total > 100
alors reduction <- min + max*0,10
sinon reduction <- 0
fsi
écrire ("...", total)
écrire ("...", min)
écrire ("...", max)
écrire ("...", total - reduction)
écrire ("...", reduction)
fin

fonction minimum (x : réel, y : réel): réel
début
si x > y alors
res <- y
sinon
res <- x
fsi
retourne res
fin