Question

free pascal 帮忙啊！！ 后缀表达式计算 急啊！！

program track;
var t1:array[1..10000] of longint;
top,n,i:integer;
rd:char;
f:boolean;
begin
rd:=' ';
top:=0;
f:=false;
while rd<>'@' do
begin
read(rd);
n:=0;
while (rd in ['0'..'9']) do
begin
f:=true;
n:=n*10+ord(rd)-ord('0'); //这句话什么意思？为什么ord(rd)-ord('0')?
read(rd);
end;
if f then begin
inc(top);
t1[top]:=n;
f:=false;end;
if rd in ['+','-','*','/'] then
begin
case rd of
'+':t1[top-1]:=t1[top-1]+t1[top];
'-':t1[top-1]:=t1[top-1]-t1[top];
'*':t1[top-1]:=t1[top-1]*t1[top];
'/':t1[top-1]:=t1[top-1] div t1[top]; //这一大段case语句:=后面的什么意思？
end;
dec(top);
end;
end;
write(t1[1]);
end.
帮个忙吧！谢谢！！最好8月6日好

Answer 1

n:=n*10+ord(rd)-ord('0');
ord(rd)为取字符的序数。char为有序类型。如字符b在a的后面，内码大1。
如果rd为'0'时，ord(rd)-ord('0')的值为0，为'1'是，则是1。
n的初值为零。第一个读进来的数字作个位。
第二个读进来的数字（如果有的话），就把前面读进来的第一个数字作10位(乘10)，本位作个位。以此类推。n:=n*10+ord(rd)-ord('0');

case后的赋值:=后面表示数组。
t1[top-1]加上数组的下一个元素t1[top]。以下类推。

追问

但是ord好像是求ascll码的 0的ascll码是48呀，就这里我不太懂 谢谢

追答

无论0的ascii码是多少，ord(rd)-ord('0')求出了字符rd与'0'的差值，所以也就与内码值无关了。
比如：rd为'3'，内码为48+3,减去48（即'0'的内码），结果还是3。

追问

是不是说ord（'0'）的意思可以为0？那可以不用写吗？

追答

不是。
你可以把ord(rd)-ord('0')当作一个值。当rd为'0'时，ord(rd)-ord('0')的值为零。
ord('0')可以看作'0'的内码。
如果你愿意，可以把ord(rd)-ord('0')换成ord(rd)-ord('1')+1。当rd为'1'时，ord(rd)-ord('1')的值为0，再加上1，就是1了。
是不是有点明白了？

追问

en..好像懂了 谢谢

Answer 2

好难……我才到 clrscr