Como saber o resto desta equacao (3,40 / 1,70) ?

Delphi

13/10/2005

Como saber o resto desta equacao (3,40 / 1,70) ?

o mod nao funciona :(


Programadorjlle

Programadorjlle

Curtidas 0

Respostas

Sabado

Sabado

13/10/2005

procedure calculo;
var
v1,v2: string;
begin
v1:= strtofloat(edit1.text);
v2:= strtofloat(edit2.text);
edit3:= floattostr(edit1/edit2); //neste caso aparecem todas as casas após a virgula
ou
edit3:= formatfloat(´#.00´,(edit1/edit2)); //neste caso aparecem somente duas casas decimais após a virgula.

espero ter ajudado


GOSTEI 0
Massuda

Massuda

13/10/2005

Como saber o resto desta equacao (3,40 / 1,70) ?
[b:4f61fd518f]div[/b:4f61fd518f] e [b:4f61fd518f]mod[/b:4f61fd518f] só funcionam com números inteiros.

Para números em ponto flutuante, tem que fazer igual na escola...
var
  Resto: Double;
...
  Resto := 3.4 - Int(3.40 / 1.70) * 1.70;
  // ou
  // Resto := Frac(3.40 / 1.70) * 3.40;
  // mas a outra forma é melhor



GOSTEI 0
POSTAR