1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
PROCEDURE ChoixC(VAR L_p: Tab_13; VAR L_c: Tab_70);
CONST I1: Tab_13 = (5, 8, 11, 12, 1, 3, 4, 9, 13, 2, 6, 7, 10);
VAR i, j, k, Ncad, PrixT: Byte;
BEGIN
FOR i:= 1 TO NtotP DO
FOR j:= 0 TO 1 DO L_p[i, j]:= 0; // Mise à zéro de tous les termes
FOR i:= 1 TO NtotP DO
BEGIN
Ncad:= 0; PrixT:= 0;
REPEAT
REPEAT
k:= Random[NtotC); Inc(k);
UNTIL (L_c[k, 2]=0); // Tirage d'un objet non réservé
Inc(Ncad); Inc(PrixT, L_c[k]
UNTIL ((22<=PrixT) AND (PrixT<=28)) OR (Ncad=5);
L_c[k, 2]:= I1[i]; // Réservation du cadeau par le bénéficiaire potentiel (i)
L_P[I1[i], 1]:= PrixT; L_P[I1[i], 2]:= Ncad // Mémorisation du prix payé et du nombre de cadeaux
END;
END; |
Partager