Найти целую часть квадратного корня - VB
Формулировка задачи:
условия:
Известно,что 1+3+5+и тд.. +2k-1=k^2(k в квадрате)
используя это свойство, составить блок-схему и программу на Visual Basic нахождения целой части корня квадратного - sqrt n (n под корнем), где n - заданное натуральное число.cоставить блок-схему для проверки
Пожалуйста,помогите с решением,буду очень благодарна((
Решение задачи: «Найти целую часть квадратного корня»
textual
Листинг программы
Private Sub Command1_Click()
MsgBox sq(1, CDbl(Val(InputBox("n-?", , 26))))
End Sub
Function sq&(k&, m#)
s = 0
If m > 0 Then
Do
s = k + s
k = k + 2
Loop While s + k <= m
sq = k \ 2
End If
End Function