Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 13 - 16
§1.5. Биологические модели развития популяций




Содержание урока

1.5.1. Информационные модели развития популяций
1.5.2. Компьютерные модели развития популяций на языке Visual Basic
1.5.3. Компьютерные модели развития популяций на языке Turbo Delphi

Проект «Численность популяций» на языке Turbo Delphi (пункты 1 - 7)

Проект «Численность популяций» на языке Turbo Delphi (пункты 8 - 13)

Контрольные вопросы

1.5.4. Компьютерные модели развития популяций в электронных таблицах

1.5.3. Компьютерные модели развития популяций на языке Turbo Delphi


Проект «Численность популяций» на языке Turbo Delphi
(пункты 8 - 13)


8. Ввести программный код модели неограниченного роста, где:

• задается начальная точка графика с использованием метода MoveTo ();
• задается цвет графика путем задания значения свойства Color;
• в цикле вычисляется численность популяции и строится график с использованием метода LineTo ();
• конечная численность населения выводится на надпись LabelNR с использованием функции преобразования типов данных FloatToStr (X):


//Неограниченный рост
X:=StrToFloat(EditX.Text);
Image1.Canvas.MoveTo(0,250);
Image1.Canvas.Pen.Color:=clDkGray;
For I: =1 to N Do
begin
Image1.Canvas.LineTo(25*1-25,250-Round (25*X)+25);
X:=A*X;
end;
LabelNR.Caption:=FloatToStr(X);

9. Ввести программный код модели ограниченного роста:


//Ограниченный рост
X:=StrToFloat(EditX.Text);
Image1.Canvas.MoveTo(0,250) ;
Image1.Canvas.Pen.Color:=clDkGray;
For I :=1 to N Do
begin
Image1.Canvas*LineTo(25*1-25,250-Round(25*X)+25);
X:-(A-B*X)*X;
end;
LabelGR.Caption:=FloatTo$tr(X);

10. Ввести программный код модели ограниченного роста с отловом:


//Ограниченный рост с отловом
X:=StrToFloat(EditX.Text);
Image1.Canvas.MoveTo(0,250);
Image1,Canvas.Pen.Color:=clBlue;
For I :=1 to N Do
begin
Image1.Canvas.LineTo(25*1-25,250-Round (25*X) +25);
X:=(A-B*X)*X-C;
LabelORO.Caption:=FloatToStr(X);
end;
LafoelORO.Caption:=FloatToStr(X);

11. Ввести программный код модели «жертва-хищник» для вычисления численности жертв:


//Жертвы
X;=StrToFloat(EditX.Text);
Y:=StrToFloat(EditY.Text);
Image1.Canvas.MoveTo(0,250);
Image1.Canvas.Pen.Color:=clGreen;
For I:=l to N Do
begin
Image1.Canvas.LineTo(25*1-25,250-
Round(25*X)+25); X:=(A-B*X)*X-C-F*X*Y;
Y:=D*Y+G*X*Y; end;
LabelX_Y.Caption:=FloatToStr(X);

12. Ввести код модели «жертва-хищник» для вычисления численности хищников:


//Хищники
X;=StrToFloat(EditX.Text);
Y:=StrToFloat(EditY.Text) ;
Image1.Canvas.MoveTo(0, 250) ;
Image1.Canvas.Pen.Color;=clRed;
For I: = 1 to N Do
begin
Image1.Canvas.LineTo(25*1-25,250-Round (25*Y) +25);
X:=(A-B*X)*X-C-F*X*Y;
Y:=D*Y+G*X*Y;
end;
LabelY_X.Caption:=FloatToStr(Y);
end;

13. Запустить проект и ввести значения коэффициентов, начальное количество жертв и хищников и количество жизненных циклов (лет). (Для простоты примем начальные количества жертв и хищников за единицу.)

Щелкнуть по кнопке Пуск. Графики покажут динамику развития популяций, а на надписи будут выведены конечные значения численности популяций (см. рис. 1.24).

Рис. 1.24. Проект «Численность популяций» на языке Turbo Delphi



Следующая страница Контрольные вопросы



Cкачать материалы урока





Наверх