Question

Запас рыбы в пруду оценен в 1000 тонн. Ежегодный прирост рыбы состав­ляет 13%. Ежегодный план отлова — 180 тонн. Наименьший запас рыбы, ниже которого запас уже не восстанавливается, — 250 тонн. Постройте таб­лицу, рассчитывающую количество рыбы в пруду на 20 лет. Пометьте, начи­ная с какого момента невозможно выполнить заданный план отлова. Помогите решить на Pascal

Answer 1

Const
  percent = 13.0;
  limit = 250.0;
  plan = 180.0;
  perv_zapas = 1000.0;

var
  year: integer;
  zapas, ulov: real;

begin
  Writeln('Год Запас рыбы,т. Улов,т');
  zapas := perv_zapas;
  for year := 1 to 20 do
  begin
    zapas := zapas * (1 + percent / 100);
    if zapas - plan < 250 then ulov := zapas - 250
    else ulov := plan;
    zapas := zapas - ulov;
    if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1)
    else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана')
  end
end.

Результат выполнения программы:
Год Запас рыбы,т. Улов,т
 1     950.0       180.0
 2     893.5       180.0
 3     829.7       180.0
 4     757.5       180.0
 5     676.0       180.0
 6     583.9       180.0
 7     479.8       180.0
 8     362.1       180.0
 9     250.0       159.2 - меньше плана
10     250.0        32.5 - меньше плана
11     250.0        32.5 - меньше плана
12     250.0        32.5 - меньше плана
13     250.0        32.5 - меньше плана
14     250.0        32.5 - меньше плана
15     250.0        32.5 - меньше плана
16     250.0        32.5 - меньше плана
17     250.0        32.5 - меньше плана
18     250.0        32.5 - меньше плана
19     250.0        32.5 - меньше плана
20     250.0        32.5 - меньше плана

Answer 2

Для решения данной задачи на Pascal мы можем использовать циклы и математические операции. Вот пример кода, который рассчитывает количество рыбы в пруду на протяжении 20 лет и определяет момент, начиная с которого невозможно выполнить заданный план отлова:

pascalCopy code
program FishPopulation;

const
  InitialFishStock = 1000; // Начальный запас рыбы (в тоннах)
  AnnualGrowthRate = 0.13; // Ежегодный прирост рыбы (13%)
  AnnualCatchPlan = 180; // Ежегодный план отлова (в тоннах)
  MinimumFishStock = 250; // Наименьший запас рыбы, ниже которого запас уже не восстанавливается (в тоннах)
  Years = 20; // Количество лет

var
  FishStock: Real; // Текущий запас рыбы (в тоннах)
  Year: Integer; // Текущий год

begin
  FishStock := InitialFishStock;
  
  // Вывод заголовка таблицы
  writeln('Year | Fish Stock');
  
  // Расчет количества рыбы в пруду на протяжении 20 лет
  for Year := 1 to Years do
  begin
    FishStock := FishStock + FishStock * AnnualGrowthRate - AnnualCatchPlan;
    
    // Проверка, достигнут ли наименьший запас рыбы
    if FishStock < MinimumFishStock then
    begin
      writeln(Year, ' | ', FishStock:0:2, ' (Catch plan cannot be fulfilled)');
      break;
    end
    else
      writeln(Year, ' | ', FishStock:0:2);
  end;
  
  readln;
end.

После выполнения кода будет выведена таблица с количеством рыбы в пруду на каждый год. Когда запас рыбы становится меньше наименьшего запаса (250 тонн), в таблице будет указано, что план отлова невозможно выполнить начиная с этого года.