栈与表达式计算【信息技术】.pptVIP

表达式的计算 栈 栈是一种数据结构，其特点是后进先出 栈的定义 const MAX_ITEM = 100; type Item = Integer; Stack = record Data: array [1..MAX_ITEM] of Item; p: Integer; end; 栈的操作 Push: 往栈里加入一个元素 Pop: 从栈里取出一个元素 Top: 返回栈顶的元素 Push procedure Push(var s: Stack; x: Item); begin if s.p MAX_ITEM then begin s.p := s.p + 1; s.Data[s.p] := x; end; end; Pop function Pop(var s: Stack): Item; begin if s.p 0 then begin Pop := s.Data[s.p]; s.p := s.p – 1; end; end; Top function Top(var s: Stack): Item; begin if s.p 0 then Top := s.Data[s.p]; end; 表达式计算的算法 表达式的计算可以利用栈来实现 表达式总是可以分解为操作数和操作符两部分 表达式计算的算法可以描述如下： 1、建立两个栈opnd和oper分别用来存放操作数和操作符。 2、在oper栈中加入一个新的操作符# 3、在表达式的最后添加一个操作符# 4、取表达式的下一个元素next 5、如果next是操作数，则放入opnd中，转4，否则继续 6、把next和oper栈顶的操作符进行优先级比较。 7、如果next的优先级高，则放入oper中，转4，否则继续 8、如果oper栈顶的操作符优先级高，则从oper栈顶取出一个操作符，从opnd中取出两个操作数，进行运算后把结果放入opnd中，转6，否则继续 9、如果next不等于#，则从oper栈顶取出一个操作符，转4，否则继续 10、将opnd栈顶的数作为结果返回 其中操作符的优先级比较见下表 操作符优先级列表 注：该表是用行去比较列得到的结果，其中e表示不可能出现的情况。 Constants const OPERATOR: array [1..7] of Char = (‘+’, ‘-’, ‘*’, ‘/’, ‘(‘, ‘)’, ‘#’); PRIORITYTABLE: array[1..7, 1..7] of Integer = ( (-1, -1, -1, -1, 1, 255, 1), (-1, -1, -1, -1, 1, 255, 1), (1, 1, -1, -1, 1, 255, 1), (1, 1, -1, -1, 1, 255,1 ), (1, 1, 1, 1, 1, 255, 1), (-1, -1, -1, -1, 0, 255, 255), (-1, -1, -1, -1, 255, 255, 0) ); OperToInt function OperToInt(op: Char): Integer; var i: Integer; begin OperToInt := 0; for i := 1 to 7 do if OPERATOR[i] = op then OperToInt := i; end; StrToInt function StrToInt(var s: String): Integer; var Result, Code: Integer; begin Val(s, Result, Code); if Code 0 then Result := -1; StrToInt := Result; end; GetNextToken function GetNextToken(var s: String; var Start: Integer): String; var Result: String; Begin Result := ‘’; if OperToInt(s[Start]) 0 then begin Result := Result + s[Start]; Start