Курсовая работа: Моделирование систем

inherited;

Container.State := psBorn;

end;

procedure TSource.AskForParcel;

begin

if CanTake then Pass(-1);

end;

constructor TAccumulator.Create;

begin

FLimited := False;

FParcels := TList.Create;

inherited;

end;

destructor TAccumulator.Destroy;

begin

FParcels.Free;

end;

function TAccumulator.GetParcel(Index : integer): TParcel;

begin

Result := FParcels[Index];

end;

function TAccumulator.GetCanDrop: Boolean;

begin

if Empty then AskForParcel;

if not Empty then Container := FParcels.First;

Result := not Empty;

end;

function TAccumulator.GetCanTake: Boolean;

begin