题目要求:
写一个函数实现以下功能:输入的值为整数,输出为整数,要求输出的整数是将输入的整数倒转,比如输入的是123,则输出的是321,要求代码正常运行,不报中断错误.
代码如下,有参考http://www.javaeye.com/problems/3313页面的Java代码
Code
1 program Project1;
2
3 {$APPTYPE CONSOLE}
4
5 uses
6 SysUtils;
7 var
8 Num : Integer;
9 function Convert(Num : Integer) : Integer;
10 var
11 Sign, i : Integer;
12 begin
13 if Num = 0 then
14 begin
15 Result := Num;
16 Exit;
17 end;
18
19 Sign := Num div Abs(Num);
20 Num := Num * Sign;
21 Result := 0;
22 while Num > 0 do
23 begin
24 i := Num mod 10;
25 Num := Num div 10;
26 Result := Result * 10 + i;
27 end;
28 Result := Result * Sign;
29 end;
30
31 begin
32 try
33 { TODO -oUser -cConsole Main : Insert code here }
34 Readln(Num);
35 Writeln(Format('输入的整数是:%d', [Num]));
36 Writeln(Format('反转后的整数是:%d', [Convert(Num)]));
37 except
38 on E:Exception do
39 begin
40 if E is EInOutError then
41 Writeln(Format('输入的数字超出最大范围%d', [MaxInt]))
42 else
43 Writeln(E.Classname, ': ', E.Message);
44 end;
45 end;
46 Readln;
47 end.