Модель Мальтоса – модель розвитку популяції

Лабораторна робота № 1

Тема: «Модель Мальтоса — модель розвитку популяції»

Виконав: студент гр. ПЗ-94

Поздняков Р.О.

Перевірив: викладач Петренюк В.І.

Теоретична частина

Модель Мальтоса є найпростішою моделлю популяції й будується на такому положенні:

швидкість зміни чисельності населення пропорційна його кількості N (t) на момент t, помножена на суму коефіцієнтів: (t) — народжуваність та (t) — смертність за одиницю часу.

Маємо таку модель популяції :

модель мальтос популяція програма Висновок: Дана модель не враховує інші компоненти.

Програма

unit model1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls, ExtCtrls, StdCtrls, Gauges;

type

TForm1 = class (TForm)

Startkol: TEdit;

Label1: TLabel;

Narodg: TEdit;

Label2: TLabel;

Smertn: TEdit;

Label3: TLabel;

Time: TEdit;

Label4: TLabel;

Button1: TButton;

Button2: TButton;

Panel1: TPanel;

Label7: TLabel;

Population: TEdit;

Panel2: TPanel;

Label6: TLabel;

Help1: TEdit;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure TimeChange (Sender: TObject);

procedure StartkolChange (Sender: TObject);

procedure NarodgChange (Sender: TObject);

procedure SmertnChange (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Np, l, b, tz: integer;

N:Longint;

implementation

{$R *.DFM}

procedure TForm1. Button2Click (Sender: TObject);

begin

close;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

N:= Round (exp ((l — b)*tz));

N:=Np*N;

Population.Text:=IntToStr (N);

end;

procedure TForm1. TimeChange (Sender: TObject);

begin

if Time. Text <> '' then

tz:=StrToInt (Time.Text)

end;

procedure TForm1. StartkolChange (Sender: TObject);

begin

if Startkol. Text <> '' then

Np:=StrToInt (Startkol.Text);

end;

procedure TForm1. NarodgChange (Sender: TObject);

begin

if Narodg. Text <> '' then

l:=StrToInt (Narodg.Text);

end;

procedure TForm1. SmertnChange (Sender: TObject);

begin

if Smertn. Text <> '' then

b:=StrToInt (Smertn.Text);

end;

end.