Question

Pascal问题我哪里错了？

数字反转 (reverse.cpp/c/pas) 【问题描述】 给定一个整数， 请将该数各个位上数字反转得到一个新数。 新数也应满足整整数的常见形 。式，
即除非给定的整数为0，否则翻转后最高位不应为0.

var n:string;
ans:array[1..10]of char;
i,x,y:integer;
bo:boolean;
begin
x:=1; y:=1;
readln(n);
if n[1]='-' then begin
bo:=true; delete(n,1,1); end;
if n='0' then begin writeln('0'); halt; end;
for i:=1 to length(n) do begin
ans[x]:=n[length(n)-i+1]; inc(x); end;
while ans[y]='0' do inc(y);
if bo then write('-');
for i:=y to x do write(ans[i]);
end.

Answer 1

对的啊？

看一下截图：

我只在后面加了句  readln

运行时：

换组数：

请问你是在测评时通不过的吗？

不知道这算不算问题：

观察后两组，由于你是用字符串的，数字前面的0没有考虑。

追问

的确是测评时通不过，请问怎样改进呢

追答

注意，开头的assign啊之类的再检查一遍，
最后的close（output）千万别忘加！我又一次就是因为忘了这个而在一道题上纠结了半天。

追问

不是这个。。。是开头0的处理。。。

追答

还有，题目里有没有规定数据范围？ 如果要反转的数字很长，超过string的255位的话，就出错了。
这时可以用ansistring，一种无限长的动态字符串类型。
可以参考一下这个： http://baike.baidu.com/view/1206466.htm

关于0的处理，你一定正在改进吧？

追问

谢谢了

追答

祝学习愉快！