Найти целую часть квадратного корня - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д