Question

Дополните программу для решения задачи: Одноклеточная амеба делится каждые три часа на две клетки. Определить количество амеб через 3, 6, 9…24 часа Program ameba; ….. Repeat K:=K*2; i:=i+3; write (‘количество амеб составит’,k, ‘штук через’,i,’часов’); until i>24;

Answer 1

Программа:

Pascal:

program ameba;

var

 K, i: integer;

begin

 K := 1;

 repeat

 K:=K*2;

 i:=i+3;

 writeln('Количество амеб составит ', K, ' штук через ', i, ' часов.');

 until i>=24;

end.

Объяснение:

Видим, что в коде используются переменные K, i. Регистрируем их в самом начале, объявив им целочисленный тип данных. Также заметим, что каждый раз K умножается на 2, поэтому в начале требуется присвоить переменной единицу, чтобы не было бессмысленного умножения на 0.

В коде также ошибки: в util стоял знак >, хотя должен быть ≥ (по условию максимум - 24 часа, а не 27); заменил write на writeln, чтобы каждый вывод был с новой строки (иначе было очень непонятно и некрасиво); поправил вывод внутри метода writeln(), чтобы это смотрелось получше.

Результат:

Количество амеб составит 2 штук через 3 часов.

Количество амеб составит 4 штук через 6 часов.

Количество амеб составит 8 штук через 9 часов.

Количество амеб составит 16 штук через 12 часов.

Количество амеб составит 32 штук через 15 часов.

Количество амеб составит 64 штук через 18 часов.

Количество амеб составит 128 штук через 21 часов.

Количество амеб составит 256 штук через 24 часов.

Answer 2

Program ameba; var K, i: integer; begin K := 1; // начальное количество амеб i := 3; // начальное время

Repeat K := K * 2; // каждые три часа амеба делится на две клетки i := i + 3; // увеличиваем время на три часа writeln('количество амеб составит ', K, ' штук через ', i, ' часов'); until i > 24; // пока не пройдет 24 часа end.

Эта программа решает задачу о количестве амеб через определенное количество часов. Она начинает с одной амебы и затем каждые три часа количество амеб удваивается. Результат выводится на экран для каждого временного интервала до 24 часов.