Dificuldades na Distribuíção de Aves em Cargas

25/01/2016

1

[img]http://arquivo.devmedia.com.br/forum/imagem/401540-20160125-190907.jpg[/img]

Boa tarde pessoal! Tenho uma dúvida aqui. Em Delphi. No exemplo acima, tenho um lote com 27.456 aves.

Preciso distribuir essas aves em várias cargas (caminhões), sendo que em cada gaiola posso colocar apenas 8 aves, e um caminhão carrega apenas 432 gaiolas.

A última carga será quebrada, pois não tenho o número de aves exatas. Tenho que dizer que X gaiolas terá X aves e Y gaiolas terá Y aves.

O sistema tem que tentar "simular" com uma ave a mais por gaiola, para tentar reduzir o número de cargas, até atingir o limite de peso máximo por gaiola (parâmetro).

Alguém poderia me ajudar ou dar uma luz por gentileza? Muito obrigado!
Responder

Posts

25/01/2016

Ruy Salles

var
i: integer;
k: float;
begin
k := 27.456 / 8 / 432;
i := trunc(k)
if k - i <> 0 then
i := i + 1 //
end;

O resultado de "i" será o total de gaiolas.

Espero ter ajudado
Responder
Obrigado Ruy Salles me ajudou muito! Valeu!
Responder

25/01/2016

Ruy Salles

Fico feliz em saber que seu problema foi solucionado.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira