Arredondameto de variavel

Delphi

15/03/2003

Boa noite.
Gostaria de saber como faço o arredondamento de variaveis.
Ex :
var
x : real;

Essa variavel x recebe apos uma divisao o seguinte valor :
13,875
Como faço pra arredondar isso para 13,88 por exemplo.
Obrigado


Anonymous

Anonymous

Curtidas 0

Respostas

Carnette

Carnette

15/03/2003

Boa noite. Gostaria de saber como faço o arredondamento de variaveis. Ex : var x : real; Essa variavel x recebe apos uma divisao o seguinte valor : 13,875 Como faço pra arredondar isso para 13,88 por exemplo. Obrigado


É meio maluco mas, funciona

variavelnova := X+Abs(Frac(Round(Frac(X))-Frac(X)*100)/100)


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

15/03/2003

Boa noite. Gostaria de saber como faço o arredondamento de variaveis. Ex : var x : real; Essa variavel x recebe apos uma divisao o seguinte valor : 13,875 Como faço pra arredondar isso para 13,88 por exemplo. Obrigado


Pra quem não gosta muito de matemática:
procedure TForm1.Button1Click(Sender: TObject);
var x: Real;
begin
  x := 13.875;
  x := StrToCurr(FloatToStrF(x,ffNumber,10,2));
  ShowMessage(CurrToStr(x));
end;


Nas versões mais recentes do Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var x: Real;
begin
  x := 13.875;
  ShowMessage(CurrToStr(SimpleRoundTo(x))); // Nem tudo é perfeito
end;



GOSTEI 0
Carnette

Carnette

15/03/2003

[quote:bf57fbb1c7=´Aroldo Zanela´]
Boa noite. Gostaria de saber como faço o arredondamento de variaveis. Ex : var x : real; Essa variavel x recebe apos uma divisao o seguinte valor : 13,875 Como faço pra arredondar isso para 13,88 por exemplo. Obrigado


Pra quem não gosta muito de matemática:
procedure TForm1.Button1Click(Sender: TObject);
var x: Real;
begin
  x := 13.875;
  x := StrToCurr(FloatToStrF(x,ffNumber,10,2));
  ShowMessage(CurrToStr(x));
end;


Nas versões mais recentes do Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var x: Real;
begin
  x := 13.875;
  ShowMessage(CurrToStr(SimpleRoundTo(x))); // Nem tudo é perfeito
end;
[/quote:bf57fbb1c7]


Mas BAHHHHHH....Eu quebrando a cabeça aqui pra formular...e a função já estava pronta....É....babei por esta....

Valeu Zanela


GOSTEI 0
Anonymous

Anonymous

15/03/2003

Boa noite. Gostaria de saber como faço o arredondamento de variaveis. Ex : var x : real; Essa variavel x recebe apos uma divisao o seguinte valor : 13,875 Como faço pra arredondar isso para 13,88 por exemplo. Obrigado


Faça o seguinte:

x := StrToFloat(FormatFloat(´0.00´,x));


GOSTEI 0
POSTAR