Ir para conteúdo
Fórum Script Brasil
  • 0

Divisão


Ruyfreis

Pergunta

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

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...