드디어 친구에게 부탁을 해서 문제를 풀었는데...
무슨말인지 어떻게 돌아가는건지 이해를 못해서 멘붕..
ㅠ 해석좀 부탁드려요... 굵은글씨가 이해가 안가네요.... ㅠ
열역학 재료역학 할게 산더미인데 ㅠㅠ
으엉ㅇ,,,.


포물선 y^2=2x상에서 점(1,4)에 가까운 점을 구하여라.

Dim x1 As Integer, y1 As Integer
Dim x2 As Integer, y2 As Integer
Dim n1 As Integer, stat As Integer
Dim result As Integer

x1 = 1
y1 = 4
y2 = 0
n1 = 0
result = 0
stat = 1
Do
If result = (y2 + n1) ^ 3 - 2 * (y2 + n1) * (x1 - 1) - 2 * y1 Then
y2 = y2 + n1
stat = 0
End If

If result = (y2 - n1) ^ 3 - 2 * (y2 - n1) * (x1 - 1) - 2 * y1 Then
y2 = y2 - n1
stat = 0
End If

n1 = n1 + 1
Loop While stat = 1

x2 = y2 ^ 2 / 2

Label1.Text = "포물선 y^2 = 2x 상에서 좌표 (1, 4)에 가장 가까운 점 : (" & x2 & ", " & y2 & ")"

End Sub


그리고 어제 도움주신 응잉앙앵님... C님, 패고떼치?님...
정말 감사드립니다...