Найти целую часть квадратного корня - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы