Q&A

  • [질문]계산식이 틀리게 나옵니다 - 황당하게
procedure TForm1.Button1Click(Sender: TObject);
var
  vat2 : real;
begin
   vat2 := 1.1;
   panel1.caption := floattostr(trunc((20000*1375)/vat2));
end;
// 위와같이 하면 24999999 가나옵니다

근데
   panel1.caption := floattostr(trunc((20000*1375)/1.1));
게 하면 25000000 이 됩니다

real 타입의 문제인지요
1  COMMENTS
  • Profile
    최용일 2010.11.03 21:55
    네, real type의 해상도 문제입니다.
    real대신에 extended를 써보세요.