ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
25.04.2010, 22:45
|
|
Новичок
Регистрация: 25.02.2010
Сообщений: 15
Провел на форуме:
126671
Репутация:
5
|
|
Турбо Паскаль
Помогите пожалуйста написать прогу на турбо паскале
Ежегодный прирост рыбы в пруду составляет 15%.Запасы рыбы оценены в А тонн.Ежегодный план отлова В тонн.Наименьший запас рыбы, ниже которого запас уже не восстанавливается, составляет С тонн. Сколько лет можно выдерживать заданный план отлова? Значения А,В,С запросить.В программе использовать цикл с постпроверкой условия.
|
|
|
25.04.2010, 22:48
|
|
Участник форума
Регистрация: 18.05.2010
Сообщений: 215
Провел на форуме:
2972711
Репутация:
92
|
|
понч,чтоб поговорить,не гулять,епаца,подарков не дарить,может где-то в колхозе можно найти доярку.
|
|
|
|
25.04.2010, 23:47
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Если правильно понял условие задачи, то вот:
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.
Последний раз редактировалось JnK; 25.04.2010 в 23:57..
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
