SENO / COSSENO / TANGENTE

Question

Estou tentando calcular o seno.. Mas o resultado não sai extamente como eu
quero..

QUAL O CÓDIGO CORRETO, ALGUEM SABE?
Queria fazer tbm o do COSSENO e TANGENTE

procedure TfrmCalculador.btnsenoClick(Sender: TObject);
begin
Visor.Caption := FloatToStr(sin(90));
end;

vlw

Afarias · Answer

vc está considerando o ângulo em graus quando a função espera uma entrada em radianos.

90º = pi / 2

então o q vc quer é:

FloatToStr(sin( pi/2 ));

vc pode ainda usar a função DegToRad para converter qualquer valor em graus para radianos, ex:

FloatToStr(sin( DegToRad(90) ));

T+

Annubiss · Answer

Ficou estranho.. O resultado da sempre 0 para qualquer teste!

Sou novato, então não entendo muito bem!

Eu tinha tentado assim:

procedure TfrmCalculador.btnsenoClick(Sender: TObject);
begin
Visor.Caption := FloatToStr(sin(pi/2));
end;

Não sei se falta alguma coisa!

Afarias · Answer

Não faço idéia o q vc pode estar fazendo errado. Com certeza o erro não está aqui:FloatToStr(sin(pi/2)); Visor é o q ?? um label??T+...

Annubiss · Answer

Não!É um StaticText ...=(Eu dei uma melhorada.. Agora ta assim!  [code:1:11295f0674]Visor.Caption := FloatToStr(sin(StrToFloat(Visor.Caption)))[/code:1:11295f0674]Mas o valor não da o correto de uma calculadora do Windows!...

Emerson Nascimento · Answer

tente como foi sugerido:Visor.Caption := FloatToStr(sin([b:239f78708d]DegToRad([/b:239f78708d]StrToFloat(Visor.Caption)[b:239f78708d])[/b:239f78708d]))...

Annubiss · Answer

Vou tentar quando chegar em casa!Estou no serviço!Daí digo a resposta!...

Annubiss · Answer

Logo quando chegar em casa eu testo!Vlw!...

Annubiss · Answer

[quote:53fff2b004=´emerson.en´]tente como foi sugerido:Visor.Caption := FloatToStr(sin([b:53fff2b004]DegToRad([/b:53fff2b004]StrToFloat(Visor.Caption)[b:53fff2b004])[/b:53fff2b004]))[/quote:53fff2b004]Ta dando erro ao ultilizar esse código..[code:1:53fff2b004]Visor.Caption := FloatToStr(sin(StrToFloat(Visor.Caption)));[/code:1:53fff2b004]>[Error]Unitcalculadora.pas[381]: Undeclared identifier: ´DegToRad´Só não da erro assim:[code:1:53fff2b004]Visor.Caption := FloatToStr(sin(StrToFloat(Visor.Caption)));[/code:1:53fff2b004]Mas tbm o valor da errado!...

Annubiss · Answer

Desculpe, o erro ocorre nesse código:[code:1:b4d5327636]Visor.Caption := FloatToStr(sin(DegToRad(StrToFloat(Visor.Caption))))[/code:1:b4d5327636]Coloquei errado no post acima!...

Annubiss · Answer

Up!Ajude plz!Ta dando erro!...

Annubiss · Answer

[quote:3a814af4b1=´aNNubiss´]Up!Ajude plz!Ta dando erro![/quote:3a814af4b1]up...

Emerson Nascimento · Answer

adicione a unit Math à sua cláusula uses....

Armaky · Answer

Depois de utilizar a Unit Math funfa Legal ! ...

Armaky · Answer

Find Girls in your city for night...

Arthur Heinrich · Answer

Segue um exemplo:Ele retorna:Sin(0º) = 0,000000Sin(10º) = 0,173648Sin(20º) = 0,342020Sin(30º) = 0,500000Sin(40º) = 0,642788Sin(50º) = 0,766044Sin(60º) = 0,866025Sin(70º) = 0,939693Sin(80º) = 0,984808Sin(90º) = 1,000000Sin(100º) = 0,984808Sin(110º) = 0,939693Sin(120º) = 0,866025Sin(130º) = 0,766044Sin(140º) = 0,642788Sin(150º) = 0,500000Sin(160º) = 0,342020Sin(170º) = 0,173648Sin(180º) = 0,000000Sin(190º) = -0,173648Sin(200º) = -0,342020Sin(210º) = -0,500000Sin(220º) = -0,642788Sin(230º) = -0,766044Sin(240º) = -0,866025Sin(250º) = -0,939693Sin(260º) = -0,984808Sin(270º) = -1,000000Sin(280º) = -0,984808Sin(290º) = -0,939693Sin(300º) = -0,866025Sin(310º) = -0,766044Sin(320º) = -0,642788Sin(330º) = -0,500000Sin(340º) = -0,342020Sin(350º) = -0,173648Sin(360º) = 0,000000...

Fórum SENO / COSSENO / TANGENTE #375820