как использовать этот код в VB без goto

пробовал переписать этот код на VB с использованием функции и без оператора goto выдает неверное решение помогите пожалуйста с решением
исходный код:

10 ' МЕТОД ПОЛОВИННОГО ДЕЛЕНИЯ
20 A = .4 : B = 1 : EPS = .0001
30 F1 = A+SQR(A)+A^(1/3)-2.5
40 F2 = B+SQR(B)+B^(1/3)-2.5
50 IF F1 * F2 < 0 GOTO 80
60 PRINT " ОШИБКА В ЗАДАНИИ ИНТЕРВАЛА A И B ", A; B
70 GOTO 999
80 X = (A+B)/2
90 F3 = X+ SQR(X) + X^(1/3) -2.5
100 IF F3 = 0 GOTO 140
110 IF F1 * F3 < 0 THEN B = X : GOTO 130
120 A = X : F1 = F3
130 IF ABS(B-A) > EPS GOTO 80
140 PRINT "КОРЕНЬ = "; X , " F(X) = "; F3
999 END


Go to the top of the page


Edit Post+Quote Post