Определить количество бактерий на заданный момент времени

@sibex11 · Регистрация: 20.11.2016

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста написать программу
{
Имеется n бактерий красного цвета. Через 1 такт времени красная бактерия меняется на зелёную, затем через 1 такт времени делится на красную и зелёную. Сколько будет всех бактерий через k тактов времени?

Описать и использовать функцию Fib(N), вычисляющую N-й элемент
последовательности чисел Фибоначчи.
Рекомендуемый интерфейс:
1#
Введите число красных бактерий: 10
Введите количество тактов: 9
Общее число бактерий через 9 тактов равно 550

!Внимание! Запрещается использовать циклы, рекурсию и операторы выбора. Оператор присваивания допустим только один.
}

@Puporev · 03.12.2016, 21:18

Сообщение от sibex11

Запрещается использовать циклы, рекурсию

Это и функции Fib(N) касается?

@sibex11 · 03.12.2016, 21:43 **[ТС]**

нет

@vint-81 · 03.12.2016, 22:35

Pascal

var kb,kt:integer;
function fib(n:integer):longint;
begin
 fib:=trunc(exp(n*ln((sqrt(5)+1)/2))/sqrt(5)+0.5)
end;
begin
 write('Введите число красных бактерий: ');readln(kb);
 write('Введите количество тактов: ');readln(kt);
 write('Общее число бактерий через ',kt,' тактов равно ',kb*fib(kt+1))
end.

@Cyborg Drone · 06.12.2016, 16:19

Замечание: применённая vint-81 упрощённая формула Бине, начиная с члена ряда № 86, выдаёт неверный результат. Однако, для данной программы это несущественно: fib - типа integer, и целочисленное переполнение возникнет уже на члене ряда № 47.

@sibex11 10 / 10 / 0 Регистрация: 20.11.2016 Сообщений: 81
		1
	Определить количество бактерий на заданный момент времени 03.12.2016, 19:15. Показов 3524. Ответов 4 Метки нет (Все метки) Помогите пожалуйста написать программу { Имеется n бактерий красного цвета. Через 1 такт времени красная бактерия меняется на зелёную, затем через 1 такт времени делится на красную и зелёную. Сколько будет всех бактерий через k тактов времени? Описать и использовать функцию Fib(N), вычисляющую N-й элемент последовательности чисел Фибоначчи. Рекомендуемый интерфейс: 1# Введите число красных бактерий: 10 Введите количество тактов: 9 Общее число бактерий через 9 тактов равно 550 !Внимание! Запрещается использовать циклы, рекурсию и операторы выбора. Оператор присваивания допустим только один. } 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.12.2016, 21:18	2
	Сообщение от sibex11 Запрещается использовать циклы, рекурсию Это и функции Fib(N) касается? 1

@sibex11 10 / 10 / 0 Регистрация: 20.11.2016 Сообщений: 81
	03.12.2016, 21:43 [ТС]	3
	нет 1

@Cyborg Drone Модератор 9870 / 5238 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	06.12.2016, 16:19	5
	Замечание: применённая vint-81 упрощённая формула Бине, начиная с члена ряда № 86, выдаёт неверный результат. Однако, для данной программы это несущественно: fib - типа integer, и целочисленное переполнение возникнет уже на члене ряда № 47. 0

Определить количество бактерий на заданный момент времени

Решение