一个数学函数

Question

a:实数  b:整数或实数
  
 实现：(a 除以 b) 按四舍五入保留两位小数  然后转换成字符串型 
  
 谢谢帮助
 

Answer 1

var s:string;
begin
s:=formatfloat('0.00',a / b);
end;

Answer 2

下面的代码可将x保留小数点后i位，对第i+1位进行4舍五入，
返回的是实数。
function myRound(x:real; i:integer) : real;
var
  fact : integer;
begin
   fact:=1;
   while( i>0 ) do begin
      fact:=fact*10;
      i:=i-1;
   end;
   myRound := round(x*fact)/fact;
end;转化为字符串可用floattostr()

Answer 3

Function Change(a,b:double): string;
begin
  if b=0 then exception.create('error')
  else
   result:= formatfloat('0.00',a/b);end;

Answer 4

fuction myprogram(x,y);
  var
  t:integer; 
  begin
   t:=fromat('0.00,x/y);
  myprogram:=t;
end;

Answer 5

强烈同意 lincanwen(密码错误) 
有问题请发信息到我的E-mail:[email protected]