Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.757 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: Warteschlange einer arztpraxis

  Alt 19. Dez 2006, 08:07
Guten Morgen,

dein Lehrer will anscheinend auf die RoundRobin Verteilung hinaus.

4 Wartezimmer (a,b,c,d)
nun werden die Patienten reihenweise auf die Wartezimmer veteilt.

1.P auf a
2.P auf b
3.P auf c
4.P auf d
6.P auf a
...

Sind alle Wartezimmer belegt wird so lange gewartet bis ein Patient das Wartezimmer verläßt.

Code:
For wartezimmerCount:=1 to 5 do
  if PatientenCount < maxPatienten then
    warteZimmer[WarteZimmerCount].addPatient
Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat