动态提醒

下一节课程: T1配置概述 (33364次播放)

5秒后自动播放下一节
  重新观看
章节
 
 

在delphi中:

uses Math;

procedure TForm1.FormCreate(Sender : TObject);

var

  a : Double;

  b : Double;

begin

  //初始化a,b.

  ShowMessage(FloatToStr(Max(a,b))); 

end;

在delphi中,函数Max可以重载。所以,Max可以判断各种数值类型。另外还有函数Min,使用方法和Max相同。这种做法只能在delphi中才能使用,在其他的语言中需要人为的写函数进行判断。

比如用C++语言:

// C/C++中只能近似的判断出浮点数大小,因此需要使用结合相对误差和绝对误差来判断。

float Max(float a, float b,float error)
{
    if(a==b)
        cout    else if((a-b)>0 && (a-b)/a>error)
        cout    else if((b-a)>0 && (b-a)/a>error)
        cout    else
        cout    return 0;
}
void main()
{
    //float a ,b;
    Max(0.1000001,0.1000010,0.00001);
}