Für 2 mach 1

[Die Muhkuh]

Naja komischer Titel aber mir fällt nix besseres ein :tongue:


Ich hab vor ein (ganz) kleines Spiel zu machen. Ma hat Bevölkerung und Essen und so...

Jetzt soll man pro 2 Bevölkerung 1 Essen verbrauchen.

D.H

2 Bevölkerung 1 Essen
4 Bevölkerung 2 Essen
6 Bevölkerung 3 Essen
...


Aber wie mach ich das?

[CalganX]

Hi,
was machst du eigentlich während den Mathestunden? :shock:

Versuchs mal mit dividieren durch zwei! ;)

Chris

PS: PISA lässt grüßen. :duck:

[Mirilin]

:hi:

Durch 2 Teilen?

[Die Muhkuh]

ngx! Stimmt! bin ich doof! :oops: :oops: :oops: :oops:

[r_kerber]

Zitat:

Zitat von Spider

Stimmt! bin ich doof!

Selbstkritik ist der erste Schritt zur Besserung: :lol: :spin2: :roteyes:

[Die Muhkuh]

:grin: :shock:

[natter24]

Hallo zusammen,

gibt es denn auch 1/2 Portionen :gruebel:

Ich gehe einmal davon aus, das Spider die Essensportionen pro Zeiteinheit verbrauchen will. Brauchen dann 4 Personen in 1 Zeiteinheiten 2 Essen und 5 Personen 3 oder 2 1/2 Essen?
Wie rechne ich das :?:

[CalganX]

Hi,
das ist dann auch nicht mehr so schwer.
Quick&Dirty:

Delphi-Quellcode:

erg1 := AnzahlPersonen/2;
if AnzahlPersonen mod 2 = 1 then begin
  erg1 := erg1 + 1;
end;

Wirklich veryQuick&veryDirty.

Chris

[natter24]

Hallo Chakotay1308,

das wäre dann die Variante 'der letzte Ungerade erhält die doppelte Portion' je Zeiteinheit. Für 'Normalprotionen müsste der Source doch dann so ausssehen, oder?

Delphi-Quellcode:

erg1 := AnzahlPersonen/2;
if AnzahlPersonen mod 2 = 1 then begin
  erg1 := erg1 + 0,5;
end;

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Wormid]

Nach oben Gerundete version:

Delphi-Quellcode:

var
  Gefuttert: Integer;
begin
  SetRoundMode(rmUp);
  Gefuttert := Trunc(RoundTo(5/2, 0));
end;

Nicht so quick, und nicht so dirty... :mrgreen:

Setzt die Unit "Math" vorraus.


Bei der nicht gerundeten Version bleibt es bei 5/2...


Gruß

Wormid