有关在delphi6里写关于Object pascal的程序的问题。

Question

我写了一个有关函数调用的问题，编译通过了，但运行时，却有一段代码没有运行，这是为什么？
程序的意思是：计算：y=sh(1+sh(x))/(sh(2*x)+sh(3*x));
                  而：sh(x)=(exp(x)-exp(-x))/2;
源程序如下：
program ysh(input,output);{$APPTYPE CONSOLE}var
  str:string;
  x,y:real;
function sh(t:real):real;
  begin
    sh:=(exp(t)-exp(-t));
  end;
begin
  read(x);
  writeln('x:=',x);
  y:=sh(1+sh(x))/(sh(2*x)+sh(3*x));
  writeln('y:=',y);
  read(str)
end.

Answer 1

我测试过了，你的代码没问题。问题出在x的取值范围必须很窄，否则计算y的过程中将产生溢出错误，而使整段代码无法全部运行完毕。