Лабораторная работа: Imitating modelling of a cattle-breeding complex on basis Cedar Bog

# F ecundation of heifers

WHENEVER (Stage = 3) AND (Index <= NUMBER(Heifers)) DO

Index^:= Index + 1;

IF Heifers: Animal [Index].Age > (450 + Norm_raspr(10,3)) DO

IF Rand < 0.85 DO

Heifers^: TO MilkCows SEND Animal[Index]

CHANGING

Age^:=Heifers:Animal[Index].Age;

Weight^:= Heifers:Animal[Index].Weight;

Status^:= TRUE;

Stelnost^:= 1;

END

END

ELSE DO

Heifers^: TO Cows SEND Animal[Index]

CHANGING

Age^:= Heifers:Animal[Index].Age;

Weight^:= Heifers:Animal[Index].Weight;

END

END

END

END

WHENEVER (Stage = 3) AND (Index > NUMBER(Heifers)) DO

Stage^:=4;

Index^:=1;

END

# Calves became Bulls, or they are slaughtered

WHENEVER (Stage = 4) AND (Index <= NUMBER(Calves)) DO

Index^:= Index + 1;