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