Question

Срочно составте программу в паскаль. ежегодный прирост рыбы в пруду состовляет x%.Запасы рыбы оценены в А тонн. Ежегодный план отлова В тонн Наименьший запас рыбы ниже которого запас уже не востонавливается состовляет С тонн . Составить алгоритм подсчитовавший сколько лет можно выдерживать заданный план.

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var Прирост := 1 + ReadReal('Введите х в процентах:') / 100;

 var (Запас, Отлов, Порог) := ReadReal3('Введите A, B, C в тоннах:');

 var Лет := 0;

 while Запас >= Порог do

 begin

   Запас := Запас * Прирост - Отлов;

   Inc(Лет);

   if Лет > 1000 then

   begin

     Println('И на тысячу лет хватит!');

     Exit

   end

 end;

 Println(Лет - 1)

end.

Введите х в процентах: 12.5

Введите A, B, C в тоннах: 300 90 75

3

Answer 2

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

Алгоритм:

1. Запросить у пользователя значения переменных: ежегодный прирост рыбы (x), текущий запас рыбы в пруду (А), ежегодный план отлова (В), наименьший запас рыбы (С).
2. Создать переменные: текущий_год, текущий_запас.
3. Начать цикл, который будет выполняться до тех пор, пока текущий_запас больше или равен С.
4. Внутри цикла увеличивать текущий_запас на ежегодный прирост (x% от текущего_запаса) и вычитать ежегодный план отлова (В).
5. После каждого года увеличивать текущий_год на 1.
6. Вывести текущий_год как результат.

Код на Pascal:

pascalCopy code
program CalculateYears;
var
  x, A, B, C, текущий_запас: real;
  текущий_год: integer;
begin
  WriteLn('Введите ежегодный прирост рыбы в пруду (в процентах): ');
  ReadLn(x);
  
  WriteLn('Введите текущий запас рыбы в пруду (в тоннах): ');
  ReadLn(A);
  
  WriteLn('Введите ежегодный план отлова (в тоннах): ');
  ReadLn(B);
  
  WriteLn('Введите наименьший запас рыбы (ниже которого запас уже не восстанавливается) в тоннах: ');
  ReadLn(C);
  
  текущий_год := 0;
  текущий_запас := A;
  
  while текущий_запас >= C do
  begin
    текущий_запас := текущий_запас + текущий_запас * (x / 100) - B;
    текущий_год := текущий_год + 1;
  end;
  
  WriteLn('Можно выдерживать заданный план ', текущий_год, ' лет.');
end.

Программа запросит у пользователя необходимые данные, выполнит расчеты и выдаст количество лет, на протяжении которых можно выдерживать заданный план.