按值调用运行时错误，但按名称调用时编译

问题描述

下面的程序在按值传递参数时会生成运行时错误，但是如果按名称调用参数则可以正常运行。我正在寻找一个（语法类似）程序，当按名称传递参数时会生成运行时错误，如果按值传递参数则可以正常运行。 （如果无法实现，请指明）。

program Q4;
 integer n;
 procedure s (r: integer);
   begin
     print(n);
   end;
   begin
     n := 3;
     s(n/0);
   end;

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）