{* Задача2 *}

REM basic

' Написать программу для вычисления значения выражения

' ((4.18)^(1/3)+2.1*(0.73)^(1/3))/(2*(7.49)^(1/3)). Для вычисления кубического корня использовать
' метод Ньютона.


10 CLS
 20 E=0.0001
 30 X=4.18
 40 GoSub 150
 50 T=X
 60 X=0.73
 70 GoSub 150
 80 T=T+2.1*X
 90 X=7.49
100 GoSub 150
110 T=T/(2*X)
120 PRINT "ЗНАЧЕНИЕ ВЫРАЖЕНИЯ ЕСТЬ ";T
130 End
140 {ПОДПРОГРАММА ВЫЧИСЛЕНИЯ КУБИЧЕСКОГО КОРНЯ ЧИСЛА X
}150 Y0=1
160 Y1=Y0+1/3*(X/Y0^2-Y0)
170 If ABS(Y1-Y0)>E Then Y0=Y1: GoTo 160
180 X=(Y1+Y0)/2
190 Return