Arredondar para o mais proximo multiplo de 5

Question

eae galera :D , obdecendo as regras de conduta nao encontrei a solu��o para meu problema, por isso estou criando este.preciso Arredondar um valor para o mais proximo multiplo de 5.ex: Se eu digitar : ...

Rjun · Accepted Answer

[code:1:2ae5ee29b9]function ProximoMultiplo5(num: integer) : integer;begin  result := num;  while ((num mod 5) <> 0) do    num := num + 1;    result := num;end;[/code:1:2ae5ee29b9]...

Rodrigof · Answer

Rjun, realmente a fun��o � multiplo de 5, valeu a dica mas n�o � bem assim, no seu exemplo se eu digitar:
1 j� pula para 5 ou
6 j� pula para 10

Preciso assim se eu digitar :
3 o valor vai para 5 ou;
2 o valor vai para 0 ou;
7 o valor vai para 5 ou;
8 o valor vai para 10 ou;
151 o valor vai para 150 ou;
153 o valor vai para 155 ou;
157 o valor vai para 155 ou;

e se eu digitar:
155 o valor continua 155 ou;
60 o valor continua 60;

flw.

Rjun · Answer

[code:1:d5b9db62cb]function Multiplo5(num: integer): integer;varbegin tempnum := num; continf := 0; contsup := 0; temp := 0; while ((tempnum mod 5) <> 0) do tempnum := tempnum + 1; contsup := tempnum - num; temp := tempnum; tempnum := num; while ((tempnum mod 5) <> 0) do tempnum := tempnum - 1; continf := num - tempnum; if continf < contsup then result := tempnum else result := temp;end;[/code:1:d5b9db62cb]...

Rodrigof · Answer

Blz, t�pico respondido.. � isso a� Rjun, funcionou direitinho... obrigado. :D...

Massuda · Answer

Uma fun��o mais simples seria...[code:1:ebabbb8760]function ArredondaMultiplo5(Valor: Integer): Integer;begin  Result := 5 * ((Valor + 4) div 5);end;[/code:1:ebabbb8760]...

Marco Salles · Answer

Plagiando a id�ia do massusa[code:1:c5d7ebc853]function ArredondaMultiplo5(Valor: Integer): Integer; begin   Result := 5 * ((Valor + 4) div 5); end;[/code:1:c5d7ebc853][quote:c5d7ebc853]realmente a fun��o � multiplo de 5, valeu a dica mas n�o � bem assim, no seu exemplo se eu digitar: 1 j� pula para 5 ou 6 j� pula para 10 [/quote:c5d7ebc853]Para valor 6,7 Ja pula para 10 etc...Para nun acontecer isto , sugiro uma pequena altera��o:[code:1:c5d7ebc853]function ArredondaMultiplo5(Valor: Integer): Integer; begin   Result := 5 * ((Valor + 2) div 5); end;[/code:1:c5d7ebc853]e so uma pequena altera��o , que pode ter passado despercebido pelo amigo massuda e talves encaixe mais na necessidade do amigo rodrigof...

Massuda · Answer

[quote:2b9e713e5f=�Marco Salles�]...pode ter passado despercebido pelo amigo massuda e talves encaixe mais na necessidade do amigo rodrigof[/quote:2b9e713e5f]N�o tinha percebido esse detalhe... obrigado pela corre��o.