ada异常捕获示例代码
代码语言:ada
所属分类:其他
代码描述:ada异常捕获示例代码
代码标签: 示例
下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开
with Ada.Text_IO; use Ada.Text_IO; with Ada.Exceptions; use Ada.Exceptions; procedure Exceptions is E : exception; procedure Q is begin raise E; end Q; procedure P is begin Q; exception when E => Put_Line ("caught E in P"); raise Program_Error; when X : others => .........完整代码请登录后点击上方下载按钮下载查看
网友评论0