Програмная реализация модели

program diablo;

uses crt;

var

xt, yt, zt : real;

f : integer;

label

l;

begin

clrscr;

xt:=1079.7;

yt:=52.86;

zt:=500;

l: f:=0;

if zt-yt>1 then

begin

f:=1;

xt:=0.523*xt+544.7823+random(2);

zt:=29323.75-528.053*yt+random(1);

yt:=0.047*xt+1.7745+random(0.5);

end;

if f=1 then goto l;

writeln ('Точка экологического равновесия');

writeln ('Капитал',xt);

writeln ('Количество лосося в штуках',yt/3);

writeln ('Количество сардин в штуках',zt/0.58);

readkey;

end.

Список литературы

1. “Математические основы моделирования” В.В. Годин, Н.В. Маджуга М.: ГАУ, 1992 г.

2. "Моделирование систем" Советов Б.Я., Яковлев С.А., М.: Высшая школа, 1984 г.

3. “Экономика промышленного предприятия” Н.Л.Зайцев, М.: ИНФРА-М, 1999 г.

13