Форум АНТИЧАТ - Турбо Паскаль

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Турбо Паскаль (https://forum.antichat.xyz/showthread.php?t=199267)

Турбо Паскаль

Помогите пожалуйста написать прогу на турбо паскале

Цитата:

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

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

Если правильно понял условие задачи, то вот:

PHP код:


		
			
program Pryd;

var

  a,b,c,

  i,y:integer;

  t:Extended; // дробное число

begin

  i:=0;

  y:=0;

  Write('Количиство Рыбы: '); 

    ReadLn(A);

  Write('Отлов Рыбы: '); 

    ReadLn(B);

  Write('Порог "спаривания" Рыбы: '); 

    ReadLn(C);

  While a>1 do

  begin

    inc(y);

    t:=a/100*15; // Вычисляем 15% от всей рыбы

    a:=a-b; // вычитаем улов

    WriteLn('A - B :', a);  // Выводим отлов

    if a>c then

    begin

      a:=round(a+t); // если рыбы больше минимума, добавляем 15% и округляем

      WriteLn('A + % :', a); // выводим %

      inc(i); // увеличиваем счетчик годиков

    end;

  end;

  writeln('План лет: ',i); 

  writeln('Рыба исчезнет лет: ',y); 

  readln; // Ожидаем нажатия Enter для выхода

end.