5. Запишите на языке Паскаль программы решения задач № 3, 4, 6, 7 из § 3.6. Используйте оператор while.
- 3. Запас рыбы в пруду оценён в А тонн. Ежегодный прирост рыбы составляет 15%. Ежегодный план отлова — В тонн. Наименьший запас рыбы составляет С тонн. (Запас ниже С тонн уже не восстанавливается.) Составьте блок-схему алгоритма для подсчёта количества лет, в течение которых можно выдерживать заданный план.
- 4. Дана последовательность 5, 9, 13, 17, … . Составьте блок-схему алгоритма для определения числа слагаемых (первых членов последовательности), сумма которых равна 324.
- 6. Сумма 10 000 рублей положена в банк, при этом прирост составляет 5% годовых. Составьте алгоритм, определяющий, через какой промежуток времени первоначальная сумма увеличится в два раза.
- 7. Одноклеточная амёба каждые три часа делится на 2 клетки. Составьте алгоритм вычисления времени, через которое будет Х амёб.
Ответ
Программы на языке Паскаль:
3. Запас рыбы в пруду оценён в А тонн. Ежегодный прирост рыбы составляет 15%. Ежегодный план отлова — В тонн. Наименьший запас рыбы составляет С тонн. (Запас ниже С тонн уже не восстанавливается.) Составьте блок-схему алгоритма для подсчёта количества лет, в течение которых можно выдерживать заданный план.
Программа на языке Паскаль решает задачу, используя цикл while. Она считает количество лет, в течение которых можно выдерживать заданный план отлова.
program fish_population;
var
A, B, C: real; // объявление переменных
years: integer;
begin
// чтение входных данных
writeln('Введите начальный запас рыбы в пруду (в тоннах):');
readln(A);
writeln('Введите годовой план отлова (в тоннах):');
readln(B);
writeln('Введите наименьший запас рыбы (в тоннах):');
readln(C);
years := 0; // инициализация переменной years
while A > C do
begin
A := A + A * 0.15 - B; // вычисление нового запаса рыбы
years := years + 1; // увеличение счетчика лет
end;
writeln('Количество лет: ', years); // вывод результата
end.4. Дана последовательность 5, 9, 13, 17, … . Составьте блок-схему алгоритма для определения числа слагаемых (первых членов последовательности), сумма которых равна 324.
Приведенная ниже программа на языке Паскаль определяет количество слагаемых (первых членов последовательности), сумма которых равна 324.
program sequence_sum;
var
sum, term: integer;
count: integer;
begin
sum := 0;
term := 5;
count := 0;
while sum < 324 do
begin
sum := sum + term;
term := term + 4;
count := count + 1;
end;
writeln('Количество слагаемых: ', count);
end.6. Сумма 10 000 рублей положена в банк, при этом прирост составляет 5% годовых. Составьте алгоритм, определяющий, через какой промежуток времени первоначальная сумма увеличится в два раза.
Приведенная ниже программа на языке Паскаль определяет, через какой промежуток времени первоначальная сумма в банке увеличится в два раза.
program investment_growth;
var
initialAmount, targetAmount: real;
interestRate: real;
years: integer;
begin
initialAmount := 10000;
targetAmount := initialAmount * 2;
interestRate := 0.05;
years := 0;
while initialAmount < targetAmount do
begin
initialAmount := initialAmount + initialAmount * interestRate;
years := years + 1;
end;
writeln('Промежуток времени: ', years, ' лет');
end.7. Одноклеточная амёба каждые три часа делится на 2 клетки. Составьте алгоритм вычисления времени, через которое будет Х амёб.
Приведенная ниже программа на языке Паскаль вычисляет время, через которое будет Х амёб, при условии, что каждые три часа одноклеточная амёба делится на две клетки.
program amoeba_growth;
var
initialAmoeba, targetAmoeba: integer;
time: integer;
begin
initialAmoeba := 1;
targetAmoeba := 0;
time := 0;
writeln('Введите количество амёб Х: ');
readln(targetAmoeba);
while initialAmoeba < targetAmoeba do
begin
initialAmoeba := initialAmoeba * 2;
time := time + 3;
end;
writeln('Время: ', time, ' часов');
end.