Дата публикации: 13.05.2025

Реализация задачи с помощью цикла с параметром в Паскале

Прямоток

прямоток

stinger-auto.ru

Содержимое статьи:

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

А - начальный запас рыбы в пруду в тоннах
В - ежегодный план отлова рыбы в тоннах

С - минимальный запас рыбы в тоннах, ниже которого запас не восстанавливается
Алгоритм решения:

Проверить, можно ли вообще выдерживать заданный план. Если А < C, то ответ "нет".
Если А >= C, то рассчитать конечный запас рыбы через 5 лет с учетом ежегодного прироста и отлова.
Сравнить конечный запас с минимальным запасом. Если конечный запас меньше минимального, то ответ "нет".

Если конечный запас больше или равен минимальному, то ответ "да".
Блок-схема:

Старт

↓

Ввести А, В, С

↓

Если А < С

→ Вывести "Нет" и завершить

↓

Конечный_запас = А

↓

Для i = 1 до 5

→ Конечный_запас = Конечный_запас * 1.15 - В

↓

Конец цикла

↓

Если Конечный_запас < С

→ Вывести "Нет" и завершить

↓

Иначе

→ Вывести "Да" и завершить

Текст программы на Паскале:

program РыбаВпруду;

const

Прирост = 0.15;

Период = 5;

var

А, В, С, КонечныйЗапас: Real;

i: Integer;

begin

write('Введите начальный запас рыбы: ');

readln(A);

write('Введите ежегодный план отлова рыбы: ');

readln(B);

write('Введите минимальный запас рыбы: ');

readln(C);

if A < C then

writeln('Нет')

else

begin

КонечныйЗапас := A;

for i := 1 to Период do

КонечныйЗапас := КонечныйЗапас * (1 + Прирост) - B;

if КонечныйЗапас < C then

writeln('Нет')

else

writeln('Да');

end;

end.

О блоге

Блог про интернет-маркетинг в общем и SEO в частности, про мои мысли и наблюдения, эксперименты и опыт, про отдых и нелёгкую жисть гастарбайтера.
Если кому вдруг - обращайтесь:
Мои услуги
Подписка
Ссылки для новичков
- Заработок на ссылках Sape
Пузомерки
Рубрики
Счетчики

Всем ценителям футбола - игровой автомат Top Trumps World Football Stars.

Реализация задачи с помощью цикла с параметром в Паскале

Содержимое статьи:

Последние записи

Архивы

О блоге

Подписка

Ссылки для новичков

Пузомерки

Рубрики

Счетчики