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

END

END

WHENEVER (Stage = 5) AND (Index > NUMBER(Bulls)) DO

Stage^:=6;

Index^:=1;

END

# B irth of young animal

WHENEVER (Stage = 7) AND (Index <= NUMBER(MilkCows)) DO

Index^:= Index + 1;

MilkCows:Animal[Index].Age^:=MilkCows:Animal[Index].Age + 1;

Dung^:= Dung + 20;

IF MilkCows:Animal[Index].Weight < 600 DO

MilkCows:Animal[Index].Weight^:= MilkCows:Animal[Index].Weight + ves_3;

END

MilkCows:Animal[Index].Stelnost^:=

MilkCows:Animal[Index].Stelnost + 1;

IF MilkCows:Animal[Index].Stelnost > (275 + Norm_raspr(5,1))

AND (MilkCows:Animal[Index].Status = TRUE) DO

MilkCows:Animal[Index].Status^:= FALSE;

MilkCows:Animal[Index].Kol_voOtelov^:=

MilkCows:Animal[Index].Kol_voOtelov + 1;

IF Rand < 0.7 DO

Heifers^: ADD 1 NEW Animal

CHANGING

Weight^:= ves_1;

Age^:= 1;

END

END

ELSE DO