有一道题,要大家想想最简单的算法

Question

有一道题,要大家想想最简单的算法C=A*B要求
A的范围是6500.00~7600.00
B,是根据用户输入C而得到的,小数位为3位
C,又是A*B的乘积.
 
也就是说,A和B要在运算中得到,C是输入的 怎么做呀?大家出出主意

Answer 1

uses math;procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:real;
begin
  c:=strtofloat(edit1.Text);
  a:=6500.00;
  b:=0.00;
  while a<=7600.99 do
  begin
    b:=roundto((c/a),-3);
    if b=(c/a) then
      break;
    a:=roundto(a+0.01,-2);
  end;
  if a>7600.99 then
    showmessage('没找到!')
  else
  begin
    label1.Caption:=floattostr(a);
    label2.Caption:=floattostr(b);
  end;
end;