Ученые установили, что прирост какого-либо вида живых организмов за счет рождаемости прямо пропорционален их количеству, а убыль за счет смертности прямо пропорциональна квадрату их количества. этот закон известен под названием закона мальтуса. пусть в одном хозяйстве собираются разводить карпов. прежде чем запускать мальков в пруд, решили провести расчеты. согласно закону мальтуса, изменение числа рыб за один год вычисляется по формуле δn= kn – qn^2. здесь n — число карпов в начале года, k — коэффициент прироста, q — коэффициент смертности. экспериментально установлено, что для данного вида рыб (карпы) и в данных условиях (состояние водоема, наличие корма) k = 1, q = 0,001. если первоначально в пруд запущено n0 рыб, то из закона следует, что количество карпов через год будет таким: n1 = n0 + (kn0 - qn0^2). через два года: n2 = n1 + (kn1 - qn1^2) и так далее. эта формула является моделью процесса размножения рыб в водоеме. проведите вычислительный эксперимент в таблице расчета количества рыб в пруду, поставив следующую цель: подобрать такие значения параметров k и q, при которых количество рыб за 10 лет может быть доведено до 2000. к решению добавьте графическую обработку результатов: график изменения численности рыб с течением времени. выполнить средствами excel.
2 - меньше информации
3 - глобус, макет здания, муляж яблока, манекен
4 - рисунок, фотография
5 - знаковой
6 - смешанной
7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу
8 - существенные признаки объекта-оригинала
9 - разные модели объекта
10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро
11 - словесное описание, формула
12 - знаковой
13 - смешанной
14 - болт — чертеж болта, мелодия — нотная запись мелодии
begin
var n:=ReadInteger('Число элементов массива=');
var a:=ArrRandom(n,-25,25);
Write('Исходный массив: '); a.Println;
var k:=a.Where(x->sqr(x)>sqr(a[0])).Count;
if k>0 then Writeln
('Найдено ',k,' элементов, квадрат которых больше квадрата первого')
else Writeln
('Нет ни одного элемента, квадрат которого больше квадрата первого')
end.
Тестовое решение:
Число элементов массива=15
Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16
Найдено 7 элементов, квадрат которых больше квадрата первого