exercice suivant

Tables de décision

Question posée au contrôle continu du 16 juin 1997

Avec les déclarations suivantes définissant des tables de décision, écrivez une procédure "Extension" qui convertisse une table de décision condensée (paramètre d'entrée) en table étendue (paramètre de sortie):

const MaxNbCond = ...;
      MaxNbRegles = ...;
      MaxNbActions = ...;

type Conditions =(Vrai, Faux, Indetermine);

     TableDecision = record
         NbConditions: 1..MaxNbCond;
         NbRegles: 1..MaxNbRegles;
         ValCond: array[1..MaxNbRegles,
                        1..MaxNbCond]
                  of Conditions;
         NbActions: 1..MaxNbActions;
         Agir: array[1..MaxNbRegles,
                     1..MaxNbActions]
               of boolean;
         TxtConditions:array[1..MaxNbCond]
                       of string[30];
         TxtActions:array[1..MaxNbActions]
                    of string[30];
         end; { TableDecision }

procedure Extension(Entree: TableDecision;
                    var Sortie: TableDecision);

Note: Pour simplifier l'écriture, vous pourrez supposer que l'affectation d'enregistrements ou de tableaux est autorisée en Pascal.

Solution

exercice suivant

Site Hosting: Bronco