SENO / COSSENO / TANGENTE
09/10/2009
0
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
Posts
09/10/2009
Afarias
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+
09/10/2009
Annubiss
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!
09/10/2009
Afarias
FloatToStr(sin(pi/2));
Visor é o q ?? um label??
T+
10/10/2009
Annubiss
É 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!
13/10/2009
Emerson Nascimento
Visor.Caption := FloatToStr(sin([b:239f78708d]DegToRad([/b:239f78708d]StrToFloat(Visor.Caption)[b:239f78708d])[/b:239f78708d]))
13/10/2009
Annubiss
Estou no serviço!
Daí digo a resposta!
13/10/2009
Annubiss
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!
13/10/2009
Annubiss
Visor.Caption := FloatToStr(sin(DegToRad(StrToFloat(Visor.Caption))))
Coloquei errado no post acima!
20/09/2024
Armaky
20/09/2024
Arthur Heinrich
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
Clique aqui para fazer login e interagir na Comunidade :)