La chaîne de production de programmes - Architecture des Machines et des Systemes Informatiques - page 48

module interface
programme principal;
début
chaîne de caractères réponse, cote_livre, mot_clé;
liste liste_livre;
tant que (réponse < > 3)
faire
poser_question (" que voulez-vous faire ?
chercher un livre ? 1
réserver un livre ? 2
quitter ? 3");
lire_réponse (réponse);
cas (réponse) :
1: poser_question ("donnez un mot-clé :");
lire_réponse (mot_clé);
chercher_livre (liste_livre, mot_clé);
afficher (liste_livre);
2: poser_question ("donnez la cote du livre :");
lire_réponse (cote_livre);
réserver_livre (cote_livre);
3 : rien;
fin cas;
fin tant que;
fin
procédure lire_réponse (out chaîne : chaîne de caractères);
début
code qui lit une chaîne de caractères au clavier
appelle une fonction lit_clavier de la bibliothèque du langage
fin
procédure poser_question (in chaîne : chaîne de caractères);
début
code qui écrit une chaîne de caractères sur l'écran
appelle une fonction affiche_écran de la bibliothèque du langage
fin
fin module;
module recherche;
export chercher_livre, réserver_livre;
procédure chercher_livre (out liste liste_livre, in chaîne de caractères
mot_clé);
début
code qui effectue une recherche dans le catalogue de la bibliothèque
appelle une fonction lire_fichier de la bibliothèque du langage
fin;