Solution Absente routine
remarque: routine essentiielle de gestion des echecs dans les actions
1 index
remarque : si S = 1, on teste la solution suivante
si S = 0
alors index
4
repeter
Numero de Solution
= Numero de Solution + 1
routine Solution(Numero
de Solution)
retour
jusqu'a Numero de Solution = Nombre de Solutions(X)
index 3
2 index
Objet(Nombre d'Objets d'Erreur+1) = Motif de l'Erreur
out Liste des Motifs d'Erreur, Objet(Nombre d'Objets
d'Erreur+1)
out, "Attente de Solution", Objet(Nombre
d'Objets d'Erreur+1), Routine Echouee
3 index
remarque : Creation de Nouvelles Solutions
action "ecrire", Une Solution
si Une Solution = ecrite
alors out Liste des Motifs d'Erreur, Objet(Nombre
d'Objets d'Erreur+1), Une Solution
routine Solution(Nombre de Solutions + 1)
retour Echec, index
1
4 index
remarque : teste si l'erreur est repertoriee
in Liste des Motifs d'Erreur,
Nombre d'Objets d'Erreur
X=0
Y=0
repeter
X=X+1
in Liste
des Motifs d'Erreur, Objet(X)
si
Motif de l'Erreur = Objet(X)
alors
Y = X
alors
X = Nombre d'Objets d'Erreur
jusqu'a X = Nombre d'Objets d'Erreur
si Y <> 0
alors S = 1
alors Numero de
Solution = 0
alors
index 1
index 2