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