• 0
Sign in to follow this  
Ruyfreis

Divisão

Question

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.....

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

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

Share this post


Link to post
Share on other sites
  • 0

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.......

Share this post


Link to post
Share on other sites
  • 0

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

Share this post


Link to post
Share on other sites
  • 0

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

valeu

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this