11.4.pas

delphi renyuanguanlixinxioxitong

program Project1;
{$APPTYPE CONSOLE}
uses Sysutils; // 为了使用函数
function OutputNum(number:double;n:integer = 5):Boolean;
Var
Str:string;// 浮点数显示输出的内容
Begin
if n <= -1 then  // 小数点后的位数要大于或等于零
begin
Result:=False;
Exit; // 退出显示函数
end 
else
begin // 设置显示的格式
Str:= Format('%*.*f', [10, n, number]);
Result:= True;
Writeln(Str); // 显示数据
end;
end;
begin
OutputNum(12.345); // n 默认为5 
OutputNum(123,3); // 参数对数据类型进行升级
// 下面一句代码不正确，故屏蔽掉
// OutputNum(123.456789,9.13); // 参数对数据类型不能降级
// 可以根据函数的返回值确定下一步的操作
if OutputNum(123.456789,-3) = false then 
Writeln( '输出失败。' );
Readln;
end.