Troca de Sinal

Question

Ol� pessoal, estou come�ando a estudar Delphi, e to estudando por 1 livro que comprei, e tem 1 exerc�cio que n�o consigo fazer, pra quem mexe deve ser simples, � o seguinte, pede pra ler um valor inte...

Lucas Silva · Answer

Olha s�..[code:1:14c726a2df]if (Resultado := -A) then [/code:1:14c726a2df]esse c�digo t� errado cara.o if � pra voc� comparar alguma coisa...tipo assim..[code:1:14c726a2df]if Resultado = A then[/code:1:14c726a2df]ai d� certo...sobre o [b:14c726a2df]- A[/b:14c726a2df] faz o seguinte...[code:1:14c726a2df]var a: real;begina := -5;if resultado = a then[/code:1:14c726a2df]______________d� uma olha da neste c�digo... [code:1:14c726a2df]procedure TForm1.Button1Click(Sender: TObject);var resultado: Real;begin    resultado := 2 - 7;    if resultado = - 5 then     ShowMessage(�Deu Negativo!�)end;[/code:1:14c726a2df]Deu pra entender + ou -???Qualquer d�vida estamos ai...Lucas!...

Barcelos · Answer

Ol�,Neste caso, basta voc� testar se o valor � maior ou menor que zero.D� uma olhada nesta fun��o:function Positivo(Valor : Double) : Double;begin  //Se o valor digitado for maior que zero,  //mant�m o valor  If Valor > 0 then Result := Valor  else  //Se o valor for menor que zero, basta multiplicar por -1   //para inverter o sinal  Result := Valor * -1;end;Espero ter ajudado,Barcelososbarcelos@hotmail.com...

Diegobarcelos · Answer

Sim entendi o c�digo, s� que o problema � que eu digito 1 valor qualquer num edit e ai o valor no c�digo nao pode ser constante, tem que usar um codigo que interprete quando o sinal for negativo ele passe pra positivo, deve existir uma fun��o que fa�a a troca de sinal quando for negativo, e ai quando for positivo copia como est�.

[b:c050bd3c48]Abs(X)[/b:c050bd3c48] devolve o valor absoluto do argumento X.

Exemplo:

X:=3;
Resultado:=Abs(X); // retorna 3

X:=-3;
Resultado:=Abs(x); // retorna 3

Diegobarcelos · Answer

Ol� meu �parente� hehe, tamb�m sou Barcelos, obrigado, n�o sei como n�o tinha pensado nisso antes, l�gicpo que era quest�o de verificar se o valor era maior que zero, sen�o fosse s� inverter o sinal, era quest�o de acertar a condi��o, obrigado pela ajuda, funcionou o c�digo agora.

--------------------------------------------------------------------------------------

Ol�, Neste caso, basta voc� testar se o valor � maior ou menor que zero. D� uma olhada nesta fun��o: function Positivo(Valor : Double) : Double; begin //Se o valor digitado for maior que zero, //mant�m o valor If Valor > 0 then Result := Valor else //Se o valor for menor que zero, basta multiplicar por -1 //para inverter o sinal Result := Valor * -1; end; Espero ter ajudado, Barcelos osbarcelos@hotmail.com

Barcelos · Answer

Bom, vamos no passo-a-passo,Supondo que a sua aplica��o tem 2 edits, um para digitar o valor, um para receber o valor convertido, e um bot�o que calcula a fun��o, no evento OnClick do Bot�o tente o seguinte:[code:1:efe62da338]procedure TForm1.Button1Click(Sender: TObject);var Valor,Resultado : Double;begin    //Converte o valor que voc� digitou em n�mero (Double)    Valor := StrToFloat(Edit1.Text);      //faz o mesmo que a fun��o acima,    //checa se se � maior ou menor que zero    If Valor > 0 then Resultado := Valor    else     Resultado := Valor * -1;    //Converte o resultado em uma String e coloca no Edit2     Edit2.Text := FloatToStr(Resultado);end;[/code:1:efe62da338]Se n�o ficou mais claro, me d� um toque...Barcelososbarcelos@hotmail.com...

Fabio.hc · Answer

[quote:c050bd3c48=�diegobarcelos�]Sim entendi o c�digo, s� que o problema � que eu digito 1 valor qualquer num edit e ai o valor no c�digo nao pode ser constante, tem que usar um codigo que interprete quando o sinal for negativo ele passe pra positivo, deve existir uma fun��o que fa�a a troca de sinal quando for negativo, e ai quando for positivo copia como est�.[/quote:c050bd3c48][b:c050bd3c48]Abs(X)[/b:c050bd3c48] devolve o valor absoluto do argumento X.Exemplo:X:=3;Resultado:=Abs(X);  // retorna 3X:=-3;Resultado:=Abs(x);  // retorna 3...

Barcelos · Answer

Estamos a� pra isso, amigo (ou �parente� hehehe). Um Barcelos a mais no f�rum � sempre bem vindo!!!! Passa depois no Botequim do Debug e toma uma por minha conta!!! :lol: :lol: :lol:

PS.

Fabio.Hc, tamb�m tinha pensado em usar a fun��o Abs, mas como era apenas para um exec�cio, usando if..else acho que esta �rotinazinha� est� de bom tamanho
:D

Barcelos
osbarcelos@hotmail.com

F�rum Troca de Sinal #206378