Одноклеточная амеба каждые 3 часа делится на 2 клетки Определить, сколько амеб будет через 3, 6 и тд часов

@АннаДелова · Регистрация: 11.02.2020

Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12,..., 24 часа.

Visual Basic

Private Sub Anna()
TextBox1.MULTILINE=TRUE
Dim x As Integer, y As Integer
x = 1
For y = 0 To 24 Step 3
  x = x * 2
  TextBox1.Text =TextBox1.Text & "Прошло t = " & y & "; амёб = " & x & VBNEWLINE
Next
End Sub

все правильно?

@Catstail · 12.02.2020, 14:09

Сообщение от АннаДелова

все правильно?

- не совсем. Первый раз напечатает "Прошло t=0 амеб 2" Правильнее так:

Visual Basic

Private Sub Anna()
Dim x As Integer, y As Integer
  TextBox1.MULTILINE=TRUE
  x = 1
  For y = 0 To 24 Step 3
       TextBox1.Text =TextBox1.Text & "Прошло t = " & y & "; амёб = " & x & vbCrLf
       x = x * 2
  Next y
End Sub

Опции темы

Одноклеточная амеба каждые 3 часа делится на 2 клетки Определить, сколько амеб будет через 3, 6 и тд часов

Решение