Fórum Raciocinio logico erroneo, preciso arrumar a conta #245093
30/07/2004
0
IA:=strtofloat(E1.text);
AR:=strtofloat(E2.text);
AI:=strtofloat(E3.text);
IA * sen(AI) = x * sen(AR);
x := IA * sen(IA) / Sen(AR);
E4.text:=floattostr(X);
este raciocinio, da um resultado diferente de meu esboço no carderno...
no caderno é assim:
IA * Sen AI = x * sen(AR)
1 * sen 60º = x * sen 45º
1 * Raiz3/2 = x * Raiz 2/2
x = raiz3/2 / raiz2/2
x = raiz6/2
Como posso resolver está conta, no delphi?
Pesso ajuda pois tentei varios metodos, mais nenhum chegou perto.
os resultados deram -3,20...
E isso eu não quero...
variaveis todas reais...
Gollum
Curtir tópico
+ 0Posts
30/07/2004
Paulo_amorim
Olá
Só pra efeito de confirmação, vc escreveu essa linha no Delphi? (a que eu coloquei com seta)
pois ela é dispensavel, logo se vê
Não eh necessario vc coloca-la já que vc soh quer atribuir o valor de x...
Espero que ajude
Até+
Gostei + 0
30/07/2004
Persist
Então a última linha ficaria:
Gostei + 0
30/07/2004
Paulo_amorim
Então a última linha ficaria:
Olá
Não, não... por raiz3/2 ele quis dizer (raiz3)/2 e (raiz2)/2, que são os valores do seno de 60 e 45, respec. :wink:
Até+
Gostei + 0
30/07/2004
Gollum
mais eu quero fazer uma conta assim:
IA * sen(AI) = x * Sen(AR);
onde eu quero isolar o termo nb.
por isso pesso ajuda no quesito
IA:=strtofloat(E1.text);
AR:=strtofloat(E2.text);
AI:=strtofloat(E3.text);
IA * sen(AI) = x * sen(AR);
x := IA * sen(IA) / Sen(AR);
E4.text:=floattostr(X);
Gostei + 0
30/07/2004
Gollum
na * sen i = nb * sen r
eu preciso achar um valor para nb
Gostei + 0
30/07/2004
Paulo_amorim
Olá
Creio que vc trocou AI por IA...
Só pra lembrar, eh sempre bom deixar as variaveis bem explicitas (com significado claro) pra esses casos...
Espero que ajude
Até+
Gostei + 0
30/07/2004
Persist
Mas ainda estou com uma dúvida:
x = raiz3/2 / raiz2/2 x = raiz6/2 ================= se x = ((raiz3)/2) / ((raiz2)/2) então x = 2(raiz3) / 2(raiz2) = raiz3 / raiz2
É isso mesmo ?
Gostei + 0
30/07/2004
Gollum
O que é para ser feito é:
na * sen i = nb * sen r
dados de entrada :
na, sen i , sen r : real;
dados de saida:
nb: real;
nb := na * sen i / sen r;
e1.text:=floattostr(nb);
está rotina que eu tenho que fazer mais não esta dando certo...
Gostei + 0
31/07/2004
Persist
Debugue cada variável da instrução antes de executá-la e o resultado depois de executar com ShowMessage(FloatToStr(variavel)).
Ou então, rode pelo F9 e coloque o cursor na variável que ele mostra o valor; ou então Ctrl+F7 e digite a variável.
Creio que seja simples pegar um erro destes.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)