Question

30 (60) баллов!! Напишите программу для решения следующей задачи. В некотором году на участке в К гектаров средняя урожайность ячменя составила А центнеров с гектара. После этого каждый год площадь участка увеличивалась на Р%, а средняя урожайность - на В%. Через сколько лет урожай превысит М центнеров.

Answer 1

program raf105;

var k,a,p,b,m,let:real;

begin

write('Площадь участка (га.): ');

readln(k);

write('Средняя урожайность с гектара (ц.): ');

readln(a);

write('Увеличение участка за год (% от прошлогодней площади): ');

readln(p);

write('Рост урожайности за год (% от прошлогодней урожайности): ');

readln(b);

write('Желаемый урожай (ц.): ');

readln(m);

while a < m do

begin

 k+= (k/100*p);

 a+= (a/100*b);

 let+= 1;

end;

writeln;

writeln('Желаемая урожайность (',m,' ц.) будет достигнута через ',let,' лет');

writeln('При этом, площадь участка будет составлять примерно ',round(k),' га.');

end.

Язык программирования PascalABC

Answer 2

Для решения данной задачи можно использовать простой цикл, который будет увеличивать площадь участка и среднюю урожайность каждый год до тех пор, пока средняя урожайность не превысит значение М. Ниже представлена программа на Python, которая решает эту задачу:

pythonCopy code
def calculate_harvest_years(K, A, P, B, M):
    years = 0

    while A < M:
        A = A + A * B / 100  # Увеличиваем среднюю урожайность на В%
        K = K + K * P / 100  # Увеличиваем площадь участка на Р%
        A = A * 100 / K  # Пересчитываем среднюю урожайность в центнеры
        years += 1

    return years


# Входные данные
K = float(input("Введите начальную площадь участка в гектарах: "))
A = float(input("Введите начальную среднюю урожайность ячменя в центнерах на гектар: "))
P = float(input("Введите процент увеличения площади участка (например, 10 для 10%): "))
B = float(input("Введите процент увеличения урожайности (например, 5 для 5%): "))
M = float(input("Введите желаемую урожайность в центнерах на гектар: "))

years_needed = calculate_harvest_years(K, A, P, B, M)

print(f"Урожайность превысит {M} центнеров на участке через {years_needed} лет.")

Вы можете запустить эту программу и ввести начальные данные, такие как площадь участка K, начальную урожайность A, проценты увеличения P и B, а также желаемую урожайность M. Она выдаст вам количество лет, через которое урожайность превысит M центнеров.