Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.66/47: Рейтинг темы: голосов - 47, средняя оценка - 4.66
0 / 1 / 0
Регистрация: 21.03.2011
Сообщений: 30
1

Бактерии

25.04.2011, 22:48. Показов 8824. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1 мин-1 бактерия, каждую следующюю минуту каждая бактерия делиться на две,
то е сть 1 мин- 1, 2 минута-4, 3 минута- 6. Вводим кол-во минут!

ADD:
Каждая бактерия делится на две в течение одной минуты. В начальный момент времени имеется одна бактерия. Составьте программу, которая подсчитывает количество бактерий на заданное вами целое значение момента времени

ЗАРАНЕЕ СПАСИБО
 Комментарий модератора 
Запрещено дублировать тему в одном или нескольких разделах. Все дубли удалены.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2011, 22:48
Ответы с готовыми решениями:

бактерии
Почему не выводит ответ?? Имеется N бактерий красного цвета. Через один такт времени красная...

В колбе n бактерий Через сколько минут вирусы уничтожат все бактерии?
2. В колбе n бактерий. В какой–то момент времени в колбу попадает вирус. В первую минуту он...

Бактерии
Имеется n бактерий красного цвета. Через 1 такт времени красная бактерия меняется на зеленую, затем...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
21 / 21 / 2
Регистрация: 18.10.2010
Сообщений: 117
25.04.2011, 22:55 2
Элементарно! Кол-во бактерий на заданный момент времени = 2 в степени n, где n - заданная минута.

На Бейсике это выглядело бы так:

PureBasic
1
2
3
4
  Dim n As Integer, x As Integer
  
  n = 15       'заданная минута времени
  x = 2 ^ n   'вычисление кол-ва бактерий на заданную минуту
могу сделать подробнее...
1
3 / 3 / 0
Регистрация: 25.04.2011
Сообщений: 54
25.04.2011, 23:04 3
на PASCAL это выглядит так

Pascal
1
2
3
4
5
6
7
8
9
10
var kol,n:integer;
begin
kol:=1;i:=0; 
writeln('vvedite vremia');
readln(n);
repeat
kol:=kol*2;i:=i+1;
until i=n;
writeln(kol);
end.
1
21 / 21 / 2
Регистрация: 18.10.2010
Сообщений: 117
26.04.2011, 03:26 4
На Паскале нагляднее и проще вот так:


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n, t: byte, x: longint;
 
begin
  write('Введите время, мин.: ');
  readln(t);
 
  x:= 1;
 
  for n:= 1 to t do x:= x * 2;
   
  writeln('Общее количество бактерий на ', t, '-й минуте: ', x);
end.
...естественно, что t должно быть не очень большим, т.к., например, уже на 24-й минуте количество бактерий будет 16 777 216 штук. Потому что, если каждая бактерия делится на две, то каждую следующую минуту будет: 1, 2, 4, 8, 16, 32 и т.д., т.е. умножить на 2, а не прибавить 2, как kalashOK написал.
1
26.04.2011, 03:26
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru