7-2 捕获整数除法异常 分数 6 作者 刘凤良 单位 天津仁爱学院 请仔细阅读下面的代码,根据方法内的提示,在 Begin - End 区域内进行代码补充,具体任务如下: 编辑器中的代码运行时可能会有异常,请利用相关知识处理该异常。
时间: 2023-10-19 07:33:29 浏览: 109
以下是补充好的代码:
```
program DivideByZero;
var
a, b: Integer;
c: Real;
begin
Write('请输入两个整数a和b:');
Readln(a, b);
try
c := a / b;
writeln('a除以b的结果是:', c:0:2);
except
on E: EDivByZero do
writeln('发生了整数除以0的异常!');
end;
end.
```
在这个程序中,我们用 `try-except` 结构来处理整数除以0的异常。如果没有异常发生,程序会正常执行,输出 `a` 除以 `b` 的结果;如果出现了整数除以0的异常,程序就会跳转到 `except` 分支,输出相应的提示信息。
阅读全文