Re: [delphi-br] Converter negativo em positivo
Na verdade a intenção é mostrar uma função que sirva tanto para passar de negativo para positivo quanto o contrário (de positivo para negativo). []'s Ricardo. Nivaldo Stainle [EMAIL PROTECTED] escreveu: A Maneira correta e mais simples é : x := abs(x), pronto basta isto; na função abaixo se o nro. for positivo ele se tornará negativo. Stainle Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Simples, amigo: Function Inverter(aNumero: Integer) : Integer; Begin Result := aNumero * -1; End; Para usar: Var X, Y : Integer; Begin X := 10; Y := Inverter(X); End; Espero que lhe ajude. []'s Ricardo. Marcelo [EMAIL PROTECTED] escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
Peguei o bonde andando, mas para inverter um numero basta multiplicar por -1. Eduardo Ricardo César Cardoso escreveu: Na verdade a intenção é mostrar uma função que sirva tanto para passar de negativo para positivo quanto o contrário (de positivo para negativo). []'s Ricardo. Nivaldo Stainle [EMAIL PROTECTED] mailto:stainle2003%40yahoo.com.br escreveu: A Maneira correta e mais simples é : x := abs(x), pronto basta isto; na função abaixo se o nro. for positivo ele se tornará negativo. Stainle Ricardo César Cardoso [EMAIL PROTECTED] mailto:ricardo_engsoft%40yahoo.com.br escreveu: Simples, amigo: Function Inverter(aNumero: Integer) : Integer; Begin Result := aNumero * -1; End; Para usar: Var X, Y : Integer; Begin X := 10; Y := Inverter(X); End; Espero que lhe ajude. []'s Ricardo. Marcelo [EMAIL PROTECTED] mailto:marcelo%40afasistemas.com.br escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Converter negativo em positivo
tudo bem, entendo a utilidade da função, mas a pergunta foi : como transformar um número negativo em positivo; o ABS() é genérico se for negativo fica positivo e se for positivo em nada se altera, não tem a necessidade de mais de uma linha de código. abraços Stainle Eduardo [EMAIL PROTECTED] escreveu: Peguei o bonde andando, mas para inverter um numero basta multiplicar por -1. Eduardo Ricardo César Cardoso escreveu: Na verdade a intenção é mostrar uma função que sirva tanto para passar de negativo para positivo quanto o contrário (de positivo para negativo). []'s Ricardo. Nivaldo Stainle [EMAIL PROTECTED] mailto:stainle2003%40yahoo.com.br escreveu: A Maneira correta e mais simples é : x := abs(x), pronto basta isto; na função abaixo se o nro. for positivo ele se tornará negativo. Stainle Ricardo César Cardoso [EMAIL PROTECTED] mailto:ricardo_engsoft%40yahoo.com.br escreveu: Simples, amigo: Function Inverter(aNumero: Integer) : Integer; Begin Result := aNumero * -1; End; Para usar: Var X, Y : Integer; Begin X := 10; Y := Inverter(X); End; Espero que lhe ajude. []'s Ricardo. Marcelo [EMAIL PROTECTED] mailto:marcelo%40afasistemas.com.br escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
Simples, amigo: Function Inverter(aNumero: Integer) : Integer; Begin Result := aNumero * -1; End; Para usar: Var X, Y : Integer; Begin X := 10; Y := Inverter(X); End; Espero que lhe ajude. []'s Ricardo. Marcelo [EMAIL PROTECTED] escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
A Maneira correta e mais simples é : x := abs(x), pronto basta isto; na função abaixo se o nro. for positivo ele se tornará negativo. Stainle Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Simples, amigo: Function Inverter(aNumero: Integer) : Integer; Begin Result := aNumero * -1; End; Para usar: Var X, Y : Integer; Begin X := 10; Y := Inverter(X); End; Espero que lhe ajude. []'s Ricardo. Marcelo [EMAIL PROTECTED] escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Converter negativo em positivo
Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado.
Re: [delphi-br] Converter negativo em positivo
Multiplique o numero por -1 Fri, 12 Jan 2007 08:42:43 -0200, Marcelo [EMAIL PROTECTED] escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado.
Re: [delphi-br] Converter negativo em positivo
Abs( Valor ); - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br Sent: Friday, January 12, 2007 7:42 AM Subject: [delphi-br] Converter negativo em positivo Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
use a matemática: x := x * (-1) rsrsr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br Sent: Friday, January 12, 2007 8:42 AM Subject: [delphi-br] Converter negativo em positivo Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Informação do NOD32 IMON 1972 (20070111) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
if Variavel 0 then Variavel := (Variavel * -1); Eduardo Marcelo escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Converter negativo em positivo
e se o nro. for positivo como fica ???; o certo é usar o ABS() Stainle Desenvolvimento (Anderson) [EMAIL PROTECTED] escreveu: use a matemática: x := x * (-1) rsrsr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br Sent: Friday, January 12, 2007 8:42 AM Subject: [delphi-br] Converter negativo em positivo Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Informação do NOD32 IMON 1972 (20070111) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
Abs(x) - Original Message - From: Eduardo [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, January 12, 2007 9:04 AM Subject: Re: [delphi-br] Converter negativo em positivo if Variavel 0 then Variavel := (Variavel * -1); Eduardo Marcelo escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] Converter negativo em positivo
Edit1.Text := IntToStr(abs(-2)); Stainle Marcelo [EMAIL PROTECTED] escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
Variavel := abs(Variavel); Stainle Eduardo [EMAIL PROTECTED] escreveu: if Variavel 0 then Variavel := (Variavel * -1); Eduardo Marcelo escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
Se vc quiser sempre o valor positivo, sim, pois essa funcao retorna o valor absoluto do numero Em 12/01/07, Nivaldo Stainle [EMAIL PROTECTED] escreveu: e se o nro. for positivo como fica ???; o certo é usar o ABS() Stainle Desenvolvimento (Anderson) [EMAIL PROTECTED]desenvolvimento%40sisponto.com.br escreveu: use a matemática: x := x * (-1) rsrsr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, January 12, 2007 8:42 AM Subject: [delphi-br] Converter negativo em positivo Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Informação do NOD32 IMON 1972 (20070111) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
Pessoal agradeco a colaboração de todos. Fiz a conversão utilizando o método abs e deu certo. Obrigado. Nivaldo Stainle escreveu: Variavel := abs(Variavel); Stainle Eduardo [EMAIL PROTECTED] mailto:ecastroa_edu%40yahoo.com.br escreveu: if Variavel 0 then Variavel := (Variavel * -1); Eduardo Marcelo escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]