Форум АНТИЧАТ

Форум АНТИЧАТ (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)

PinkPonch 25.04.2010 22:45

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

Цитата:

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

Mr.Replica 25.04.2010 22:48

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

JnK 25.04.2010 23:47

Если правильно понял условие задачи, то вот:
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>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



Время: 23:02