Question

Pascal的问题！急！

Answer 1

　　Pascal的问题！急！
　　对正确
　　分析：
　　源程序编译中，若要把一个含有表达式的赋值语句翻译成正确求值的机器语言，首先应正确地解释表达式。例如，对赋值语句
　　X:＝4＋8×2－3; (式 11.1)
　　其正确的计算结果应该是17，但若在编译程序中简单地按自左向右扫描的原则进行计算，则为：X＝12×2－3＝24－3＝21
　　这结果显然是错误的。因此，为了使编译程序能够正确地求值，必须事先规定求值的顺序和规则。通常采用运算符优先数法。
　　一般表达式中会遇到操作数、运算符和语句结束符等，以算术运算符为例，对每种运算赋予一个优先数，如：
　　运算符：× ÷ ＋ －
　　优先数：2 2 1 1
　　（语句结束符“；”的优先数为零）
　　在运算过程中，优先数高的运算符应先进行运算（但遇到括号时，应另作处理）。按这样的规定，对式（11.1）自左向右进行运算时，其计算顺序就被唯一地确定下来了。计算顺序确定后，在对表达式进行编译时，一般设立两个栈，一个称为运算符栈（OPS），另一个称为操作数栈（OVS），以便分别存放表达式中的运算符和操作数。编译程序自左向右扫描表达式直至语句结束，其处理原则是：
　　①凡遇到操作数，一律进入操作数栈；
　　②当遇到运算符时，则将运算符的优先数与运算符栈中的栈顶元素的优先数相比较；若该运算符的优先数大，则进栈；反之，则取出栈顶的运算符，并在操作数栈中连续取出两个栈顶元素作为运算对象进行运算，并将运算结果存入操作数栈，然后继续比较该运算符与栈顶元素的优先数。
　　例如式（11.1）中，当扫描到“＋”和“×”时都要将运算符入栈。接着扫描到“－”号， 其优先数小于乘号所以乘号退栈，并执行8×2，将结果16再存入操作数栈。再将“－”号的优先数与运算符栈的栈顶元素“＋”号的优先数相比较，两者相等，所以再将加号退栈，进行4＋16，结果为20，再入栈，接着，由于运算栈已空，所以减号入栈。当扫描到“3”时，操作数入栈。当扫描到“；”时，其优先数最低， 所以减号退栈并执行20－3，结果为17并入栈。因已扫描到语句结束符，所以表达式的求值结束，结果为17。

　　例题模拟计算机处理算术表达式过程。从键盘上输入算术表达式串（只含＋、－、×、÷运算符，充许含括号），输出算术表达式的值。设输入的表达式串是合法的。分析:建立两个栈，一个是操作数栈（number），一个是运算符栈（symbol），根据运算符的优先级对两个栈进行相应的操作。

　　program ex11_4;
　　const
　　max = 100;
　　var
　　number: array[0..max] of integer;
　　symbol: array[1..max] of char;
　　s, t: string;
　　i, p, j, code: integer;

　　procedure push; {算符入栈运算}
　　begin
　　inc(p);
　　symbol[p] := s[i];
　　end;

　　procedure pop; {运算符栈顶元素出栈,并取出操作数栈元素完成相应的运算}
　　begin
　　dec(p);
　　case symbol[p + 1] of
　　'+': inc(number[p], number[p + 1]);
　　'-': dec(number[p], number[p + 1]);
　　'*': number[p] := number[p] * number[p + 1];
　　'/': number[p] := number[p] div number[p + 1];
　　end;
　　end;

　　functio......一干二净除旧习 五讲四美树新风 辞旧迎春