Divisão

[Ruyfreis]

Tipo...como que eu faço divisão em Delph....??? Por exemplo.....

100/50= 2 .....mas quando eu ponho esse codigo da 0,5......nunca da a resposta certa....

Como que faz pra dividir ......

Valeu ...e um abraço.....

[Graymalkin]

Aqui funciona perfeitamente:

var valor : real;
begin
  valor := 100/50;
  ShowMessage(FloatToStr(valor));
end;

Você tem certeza que está colocando realmente estes valores (100 e 50)?

Abraços,

Graymalkin

[Ruyfreis]

beleza...isso deu certo mas olha esse codigo........

procedure TForm1.Button1Click(Sender: TObject);

var

valor: real;

begin

valor:= strtofloat(edit2.Text)/sqr(strtofloat(Edit1.Text));

showmessage(floatTostr(valor));

end;

ai você coloca o valor 10 na edit1 e o 50 na edit2....vai dar 0,5.......

[Graymalkin]

beleza...isso deu certo mas olha esse codigo........

procedure TForm1.Button1Click(Sender: TObject);

var

valor: real;

begin

  valor:= strtofloat(edit2.Text)/sqr(strtofloat(Edit1.Text));

  showmessage(floatTostr(valor));

end;

ai você coloca o valor 10 na edit1 e o 50 na edit2....vai dar 0,5.......

E está correto, oras. 50 dividido por 100 vai realmente dar 0,5. A função sqr() utilizada ali calcula o quadrado do argumento. No caso, o quadrado de 10 (ou seja, sqr(10)) é 10*10 que vai dar 100.

Abraços,

Graymalkin

[Ruyfreis]

Nosssa....ishi...ou foi foi mal...quer dizer foi pessimo....desculpa ae.....

valeu