13. Запишите на языке Паскаль программы решения задач № 14–16 из § 3.6. Используйте оператор for.
14. Запишите на языке Паскаль программу нахождения произведения z двух натуральных чисел x и y без использования операции умножения.
15. Население города Н увеличивается на 5% ежегодно. В текущем году оно насчитывает 40 000 человек. Запишите на языке Паскаль программу вычисления предполагаемой численности населения города через 3 года. Составьте таблицу значений переменных, задействованных в алгоритме.
16. Каждая бактерия делится на две в течение 1 минуты. В начальный момент имеется одна бактерия. Запишите на языке Паскаль программу вычисления количества бактерий через 10 минут. Исполните алгоритм, фиксируя каждый его шаг в таблице значений переменных.
Ответ
14. Запишите на языке Паскаль программу нахождения произведения z двух натуральных чисел x и y без использования операции умножения. Используйте оператор for.
Программа на языке Паскаль, которая вычисляет произведение двух натуральных чисел x и y без использования операции умножения с использованием оператора for:
program НахождениеПроизведения;
var
x, y, z, i: integer;
begin
writeln('Введите первое число:');
readln(x);
writeln('Введите второе число:');
readln(y);
z := 0; // Инициализируем произведение
// Вычисляем произведение
for i := 1 to y do
begin
z := z + x;
end;
writeln('Произведение чисел ', x, ' и ', y, ' равно ', z);
end.
Программа запрашивает у пользователя два натуральных числа x и y, вычисляет и выводит их произведение z, не используя операцию умножения. Вместо этого она использует цикл for, который добавляет число x к переменной z y раз.
Вы можете скомпилировать и запустить эту программу на своей платформе разработки Паскаль или использовать онлайн-среду выполнения кода на Паскале для проверки.
15. Население города Н увеличивается на 5% ежегодно. В текущем году оно насчитывает 40 000 человек. Запишите на языке Паскаль программу вычисления предполагаемой численности населения города через 3 года. Составьте таблицу значений переменных, задействованных в алгоритме.
Программа на языке Паскаль, которая вычисляет предполагаемую численность населения города через 3 года с учетом годового роста в 5% с использованием оператора for:
program ВычислениеЧисленностиНаселения;
var
население, год: integer;
const
ПРОЦЕНТ_РОСТА = 5; // Годовой рост населения в процентах
КОЛИЧЕСТВО_ЛЕТ = 3; // Количество лет для прогноза
begin
население := 40000; // Текущая численность населения
// Вывод таблицы значений переменных
writeln('Год | Численность населения');
writeln('-------------------------');
for год := 1 to КОЛИЧЕСТВО_ЛЕТ do
begin
// Вычисление численности населения через год
население := население + (население * ПРОЦЕНТ_РОСТА div 100);
// Вывод значений переменных
writeln(год, ' | ', население);
end;
end.Программа начинает с текущей численности населения города в переменной «население» (40 000 человек). Затем она использует цикл for, чтобы вычислить численность населения через каждый год на протяжении 3 лет.
В каждой итерации цикла происходит вычисление новой численности населения, добавляя к текущей численности (на предыдущей итерации) прирост, равный 5% от текущей численности (для этого используется оператор деления с округлением).
После каждой итерации происходит вывод в таблице значений текущего года и численности населения.
Вы можете скомпилировать и запустить эту программу на своей платформе разработки Паскаль или использовать онлайн-среду выполнения кода на Паскале, чтобы увидеть таблицу значений предполагаемой численности населения города через 3 года.
16. Каждая бактерия делится на две в течение 1 минуты. В начальный момент имеется одна бактерия. Запишите на языке Паскаль программу вычисления количества бактерий через 10 минут. Исполните алгоритм, фиксируя каждый его шаг в таблице значений переменных. Используйте оператор for.
Программа на языке Паскаль, которая вычисляет количество бактерий через 10 минут с учетом деления каждой бактерии на две за минуту с использованием оператора for:
program ВычислениеКоличестваБактерий;
var
количество, минута: integer;
const
ВРЕМЯ_МИНУТЫ = 10; // Время в минутах
begin
количество := 1; // Изначальное количество бактерий
// Вывод таблицы значений переменных
writeln('Минута | Количество бактерий');
writeln('---------------------------');
for минута := 1 to ВРЕМЯ_МИНУТЫ do
begin
// Вычисление количества бактерий через минуту
количество := количество * 2;
// Вывод значений переменных
writeln(минута, ' | ', количество);
end;
end.Программа начинает с изначального количества бактерий в переменной «количество» (1 бактерия). Затем она использует цикл for, чтобы вычислить количество бактерий через каждую минуту на протяжении 10 минут.
В каждой итерации цикла происходит умножение текущего количества бактерий (на предыдущей итерации) на 2, чтобы учесть деление каждой бактерии на две за минуту.
После каждой итерации происходит вывод в таблице значений текущей минуты и количества бактерий.
Вы можете скомпилировать и запустить эту программу на своей платформе разработки Паскаль или использовать онлайн-среду выполнения кода на Паскале, чтобы увидеть таблицу значений количества бактерий через 10 минут.