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]。以下类推。
好难……我才到 clrscr
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024