programme ConversionPouces
données
  NbPouces, ValeurCM sont des réels

début
  afficher "Programme de conversion de POUCES vers CENTIMETRES"
  afficher "Jean HENRI       version 0.0        septembre 2003"

  afficher "Saisir la valeur en pouce : "
  saisir NbPouces

  ValeurCM <-- NbPouces * 2.54

  afficher "Cela donne : ", valeurCM, " cm"
fin

Variante avec l'utilisation d'une fonction de conversion

fonction PouceVersCenti (entrée : ValeurP est un réel) retourne un réel
début
  retourner (ValeurP * 2.54)
fin

Tests de validation de la fonction

ValeurP	PouceVersCenti
10	25,4
-10	-25,4

programme ConversionPouces
données
  NbPouces, ValeurCM sont des réels

début
  afficher "Programme de conversion de POUCES vers CENTIMETRES"
  afficher "Jean HENRI       version 0.1        septembre 2003"

  afficher "Saisir la valeur en pouce : "
  saisir NbPouces

  ValeurCM <-- PoucesVersCenti (NbPouces)

  afficher "Cela donne : ", valeurCM, " cm"
fin

Autre variante du programme avec la fonction de conversion

programme ConversionPouces
début
  afficher "Programme de conversion de POUCES vers CENTIMETRES"
  afficher "Jean HENRI       version 0.2        septembre 2003"

  afficher "Saisir la valeur en pouce : "
  saisir NbPouces

  afficher "Cela donne : ", PoucesVersCenti (NbPouces), " cm"
fin