25.04.2010, 22:45
|
|
Новичок
Регистрация: 25.02.2010
Сообщений: 15
С нами:
8530779
Репутация:
5
|
|
Турбо Паскаль
Помогите пожалуйста написать прогу на турбо паскале
Ежегодный прирост рыбы в пруду составляет 15%.Запасы рыбы оценены в А тонн.Ежегодный план отлова В тонн.Наименьший запас рыбы, ниже которого запас уже не восстанавливается, составляет С тонн. Сколько лет можно выдерживать заданный план отлова? Значения А,В,С запросить.В программе использовать цикл с постпроверкой условия.
|
|
|
25.04.2010, 22:48
|
|
Участник форума
Регистрация: 18.05.2010
Сообщений: 215
С нами:
8412866
Репутация:
92
|
|
понч,чтоб поговорить,не гулять,епаца,подарков не дарить,может где-то в колхозе можно найти доярку.
|
|
|
|
25.04.2010, 23:47
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
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..
|
|
|
|
|
 |
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Турбо паскаль
|
Ru}{eeZ |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
20 |
17.10.2009 14:19 |
|
двойные массивы ( турбо паскаль )
|
dimhee |
Болталка |
4 |
28.12.2008 23:32 |
|
Турбо Си++
|
tclover |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
20 |
01.12.2007 13:57 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид
