1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| if p_cour^.nbre_E[1] in ensemble_op
then
begin
RETRAIT_VD_FA(p_deb_FA,p_fin_FA,pnouveau);//retrait de la VD de la FA
CREATION_VD_3CHPS(p_point_opt);//creation d'une VD à 3 champs vide
p_point_opt^.nbre_E:=pnouveau^.nbre_E;//on récupère l'information
dispose(pnouveau);
if (p_point_opt^.nbre_E[1]='+') or (p_point_opt^.nbre_E[1]='-')
then //l'opérateur est + ou -
priorite_nouv:=1
else//l'opérateur est * ou /
priorite_nouv:=2;
if (p_pile_opt=NIL) or (priorite_nouv>=priorite_ancien)
then
begin
priorite_ancien:=priorite_nouv;
AJOUT_PILE(p_pile_opt,p_point_opt);
end
else
begin... |
Partager