|
PROCEDURE Term(VAR at: Attribute) : BOOLEAN; (* Term = Factor { ("*" | "/") Factor } . *) VAR leftop, rightop: Attribute; opsy: Symbol; BEGIN IF ~Factor(leftop) THEN RETURN FALSE END; WHILE (sy = multiplySY) OR (sy = divideSY) DO opsy := sy; GetSy; (* skip operator *) IF ~Factor(rightop) THEN RETURN FALSE END; CreateBinaryOp(leftop, opsy, leftop, rightop); END; at := leftop; RETURN TRUE END Term; |
Mit dem Konstruktoren CreateConstant,
CreateBinaryOp und CreateUnaryOp wird sukzessive
der Formelbaum aufgebaut.
|
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |