21 lines
369 B
Reg
Executable File
21 lines
369 B
Reg
Executable File
REGLE QUI_VA_LE_PLUS_VITE
|
|
SI
|
|
(X1) VITESSE (Y1)
|
|
(X2) VITESSE (Y2)
|
|
(Y1) > (Y2)
|
|
ALORS
|
|
(X1) PLUSRAPIDE (X2) 'VRAI
|
|
ECRIRE (TERMINAL,(X1)" GAGNE LA COURSE DEVANT "(X2))
|
|
|
|
|
|
|
|
REGLE QUI_EST_PLUS_PRIORITAIRE
|
|
SI
|
|
(X1) PRIOR (Y1)
|
|
(X2) PRIOR (Y2)
|
|
(Y1) < (Y2)
|
|
ALORS
|
|
(X1) PLUSPRIOR (X2) 'VRAI
|
|
ECRIRE(TERMINAL,(X1) " EST PLUS PRIORITAIRE QUE " (X2))
|
|
|