RETORNAR O MENOR VALOR MAIOR QUE ZERO
Boa noite,
eu não domino muito a função com array, estou precisando retornar o menor valor maior que zero dentro de um array com 10 posições.
agradeço quem puder me ajudar, pesquisei bastante na internet mas nao encontrei exatamente o que eu estou precisando.
desde já obrigado.
Mário
eu não domino muito a função com array, estou precisando retornar o menor valor maior que zero dentro de um array com 10 posições.
agradeço quem puder me ajudar, pesquisei bastante na internet mas nao encontrei exatamente o que eu estou precisando.
desde já obrigado.
Mário
Mario Oliveira
Curtidas 0
Respostas
Raimundo Pereira
20/11/2015
Post sua função qui
GOSTEI 0
Mateus Ribeiro
20/11/2015
Boa tarde!
Montei aqui uma função rapidinho que retorna o menor valor dentro de uma array... qualquer coisa vc adapta pra sua necessidade!
Boa sorte!
Montei aqui uma função rapidinho que retorna o menor valor dentro de uma array... qualquer coisa vc adapta pra sua necessidade!
function SmallIntArray(IntArray: Array Of Integer): Integer; var i, x: Integer; begin for i:= 0 to Length(Bloco) - 1 do begin x:= Bloco[i]; if x < Result then Result:= x; end; end;
Boa sorte!
GOSTEI 0
Wazowski
20/11/2015
function TfrTelaCadastroDefault.MenorNumMaiorQueZero( Vetor: array of Integer): Integer; var I: Integer; begin Result:= 0; for I:= 0 to Length(Vetor) - 1 do begin if Result = 0 then Result:= Vetor[I]; if Vetor[I] > 0 then if Vetor[I] < Result then Result:= Vetor[I]; end; end;
Acho que isso resolve
GOSTEI 0
Mario Oliveira
20/11/2015
Bom dia a todos,
desculpa pela demora do retorno, vou implementar e testar no meu sistema, mas a principio e isso mesmo que eu estava procurando.
obrigado
desculpa pela demora do retorno, vou implementar e testar no meu sistema, mas a principio e isso mesmo que eu estava procurando.
obrigado
GOSTEI 0