Logicielle d'auto-interogation |
8/8 |
12/12/2008 à 16:30 |
tien je suis de bonne humeur je te donne l'algo en version easy impérative de base (on pourais aussi mettre des couples de string dans la matrice pour avoir un couple question/reponse ou mieu faire une version objets mais bon ça devient un peu plus abstrait):
Constante
Nmax = /* ce que tu veux > 0 */ 42
Type
Tarray Nmax chaine
Tmatrix Nmax Tarray
Algorithme procedurue toto
Variable
entier i, j
Tmatrix o
booleen b
chaine s
Debut
/*init array*/
pour i = 1 jusqu'a Nmax faire
pour j = 1 jusqu'a Nmax faire
o[i][j] < -- ""
finpour
fin pour
/*main*/
lire (s)
si s = "fin" alors
b < -- faux
ecrire("bye")
sinon
b < -- vrai
finsi
tant que b faire
lire (i)
lire (j)
si s = "insert" alors
lire s
o[i][j] < -- s /*rajouter test sur i et j dans les bornes */
fin si
si s = "lire" alors
ecrire(o[i][j]) /*rajouter test sur i et j dans les bornes*/
fin si
si s = "test" alors
lire s
tant que s pas_egal_à o[i][j] alors /*rajouter test sur i et j dans les bornes */
ecrire("retry")
lire s
fin tantque
ecrire ("clap")
finsi
lire s
si s = "fin" alors
b < -- false
ecrire ("bye")
fin si
fin tant que
fin algorithme procedure toto
/* appel */
toto ()
/* blabla*/
/* ... */
/* bye */
sachant que lire lit une string et la stocke dans la variable passée en paramètres et écrire affiche.
au erreurs près... (j'ai pas cherché à optimiser ou à faire un code jolie, c'est trop simple pour...)
Ps : j'ai pas oser mettre la version fonctionnelle en Lisp
PPs : ça ce fait bien en javascript aussi si tu veux le mettre sur une page web
PPPs : c'est trop moche l'algo pas indenté... et les forums qui ne permettent pas d'en écrire