Зерно

Известна легенда , по которой мудрый создатель шахмат, в ответ на настойчивые просьбы шаха, попросил за своё изобретение награды в виде зерна. Количество зерна рассчитывалось по правилу: на первую клеточку положить одно зёрнышко, на вторую в два раза больше чем на первую и так далее, кладя на каждую последующую клеточку в два раза больше чем на предыдущую. Рассчитаем сколько клеточек шахматной доски можно оплатить имеющимся в нашем распоряжении зерном если следовать указанному правилу оплаты.

Переменные: А - исходное количество зёрен, К - количество зёрен, которое необходимо положить на очередную клеточку, Z - количество оставшегося зерна, N -количество клеток. Для A, K, Z - зададим тип данных Double, поскольку их значение может быть очень большим. Программа использует цикл с предусловием типа Do While .... Loop, так как заранее неизвестно количество имеющегося зерна.

Public Class Form1

'Притча о шахматах

Private Sub BT1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1.Click

Dim Z, A, K As Double, N As Byte

A = CDbl(tb1.Text)

Z=A

N = 0

K = 1

Do While Z >= K

Z = Z - K

N = N + 1

K = K * 2

Loop

LB1.Text = "имея " & CStr(A) & " зёрен, можно оплатить " & CStr(N) & " клеток"

End Sub

End Class