SENO / COSSENO / TANGENTE
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
vlw
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
Annubiss
Curtidas 0
Respostas
Afarias
09/10/2009
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+
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+
GOSTEI 0
Annubiss
09/10/2009
Ficou estranho.. O resultado da sempre 0 para qualquer teste!
Sou novato, então não entendo muito bem!
Eu tinha tentado assim:
Não sei se falta alguma coisa!
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!
GOSTEI 0
Afarias
09/10/2009
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+
FloatToStr(sin(pi/2));
Visor é o q ?? um label??
T+
GOSTEI 0
Annubiss
09/10/2009
Não!
É um StaticText ...
=(
Eu dei uma melhorada.. Agora ta assim!
Mas o valor não da o correto de uma calculadora do Windows!
É um StaticText ...
=(
Eu dei uma melhorada.. Agora ta assim!
Visor.Caption := FloatToStr(sin(StrToFloat(Visor.Caption)))
Mas o valor não da o correto de uma calculadora do Windows!
GOSTEI 0
Emerson Nascimento
09/10/2009
tente como foi sugerido:
Visor.Caption := FloatToStr(sin([b:239f78708d]DegToRad([/b:239f78708d]StrToFloat(Visor.Caption)[b:239f78708d])[/b:239f78708d]))
Visor.Caption := FloatToStr(sin([b:239f78708d]DegToRad([/b:239f78708d]StrToFloat(Visor.Caption)[b:239f78708d])[/b:239f78708d]))
GOSTEI 0
Annubiss
09/10/2009
Vou tentar quando chegar em casa!
Estou no serviço!
Daí digo a resposta!
Estou no serviço!
Daí digo a resposta!
GOSTEI 0
Annubiss
09/10/2009
Logo quando chegar em casa eu testo!
Vlw!
Vlw!
GOSTEI 0
Annubiss
09/10/2009
tente como foi sugerido:
Visor.Caption := FloatToStr(sin([b:53fff2b004]DegToRad([/b:53fff2b004]StrToFloat(Visor.Caption)[b:53fff2b004])[/b:53fff2b004]))
Ta dando erro ao ultilizar esse código..
Visor.Caption := FloatToStr(sin(StrToFloat(Visor.Caption)));
>[Error]Unitcalculadora.pas[381]: Undeclared identifier: ´DegToRad´
Só não da erro assim:
Visor.Caption := FloatToStr(sin(StrToFloat(Visor.Caption)));
Mas tbm o valor da errado!
GOSTEI 0
Annubiss
09/10/2009
Desculpe, o erro ocorre nesse código:
Coloquei errado no post acima!
Visor.Caption := FloatToStr(sin(DegToRad(StrToFloat(Visor.Caption))))
Coloquei errado no post acima!
GOSTEI 0
Annubiss
09/10/2009
Up!
Ajude plz!
Ta dando erro!
Ajude plz!
Ta dando erro!
GOSTEI 0
Annubiss
09/10/2009
Up!
Ajude plz!
Ta dando erro!
up
GOSTEI 0
Emerson Nascimento
09/10/2009
adicione a unit Math à sua cláusula uses.
GOSTEI 0
Armaky
09/10/2009
Depois de utilizar a Unit Math funfa Legal !
GOSTEI 0
Armaky
09/10/2009
<a href=https://datingnow.site>Find Girls in your city for night</a>
GOSTEI 0
Arthur Heinrich
09/10/2009
Segue um exemplo:
Ele retorna:
Sin(0º) = 0,000000
Sin(10º) = 0,173648
Sin(20º) = 0,342020
Sin(30º) = 0,500000
Sin(40º) = 0,642788
Sin(50º) = 0,766044
Sin(60º) = 0,866025
Sin(70º) = 0,939693
Sin(80º) = 0,984808
Sin(90º) = 1,000000
Sin(100º) = 0,984808
Sin(110º) = 0,939693
Sin(120º) = 0,866025
Sin(130º) = 0,766044
Sin(140º) = 0,642788
Sin(150º) = 0,500000
Sin(160º) = 0,342020
Sin(170º) = 0,173648
Sin(180º) = 0,000000
Sin(190º) = -0,173648
Sin(200º) = -0,342020
Sin(210º) = -0,500000
Sin(220º) = -0,642788
Sin(230º) = -0,766044
Sin(240º) = -0,866025
Sin(250º) = -0,939693
Sin(260º) = -0,984808
Sin(270º) = -1,000000
Sin(280º) = -0,984808
Sin(290º) = -0,939693
Sin(300º) = -0,866025
Sin(310º) = -0,766044
Sin(320º) = -0,642788
Sin(330º) = -0,500000
Sin(340º) = -0,342020
Sin(350º) = -0,173648
Sin(360º) = 0,000000
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
Angulo : Integer;
begin
Memo1.Lines.Clear;
for Angulo := 0 to 36 do
Memo1.Lines.Add('Sin('+IntToStr(Angulo*10)+'º) = '+FormatFloat('0.000000',Sin(Angulo*10*Pi/180)));
end;
Ele retorna:
Sin(0º) = 0,000000
Sin(10º) = 0,173648
Sin(20º) = 0,342020
Sin(30º) = 0,500000
Sin(40º) = 0,642788
Sin(50º) = 0,766044
Sin(60º) = 0,866025
Sin(70º) = 0,939693
Sin(80º) = 0,984808
Sin(90º) = 1,000000
Sin(100º) = 0,984808
Sin(110º) = 0,939693
Sin(120º) = 0,866025
Sin(130º) = 0,766044
Sin(140º) = 0,642788
Sin(150º) = 0,500000
Sin(160º) = 0,342020
Sin(170º) = 0,173648
Sin(180º) = 0,000000
Sin(190º) = -0,173648
Sin(200º) = -0,342020
Sin(210º) = -0,500000
Sin(220º) = -0,642788
Sin(230º) = -0,766044
Sin(240º) = -0,866025
Sin(250º) = -0,939693
Sin(260º) = -0,984808
Sin(270º) = -1,000000
Sin(280º) = -0,984808
Sin(290º) = -0,939693
Sin(300º) = -0,866025
Sin(310º) = -0,766044
Sin(320º) = -0,642788
Sin(330º) = -0,500000
Sin(340º) = -0,342020
Sin(350º) = -0,173648
Sin(360º) = 0,000000
GOSTEI 0