Написать программу в TurboPascal.

Question

Вычислить кубический корень из числа Х с заданной точностью. Х считать за произвольное число. При этом, пользоваться функциями вычисления кубического корня запрещено.

Антон · Accepted Answer

Переделай на Pascal

void main()
{
double x, y, y0;
const e = 0.0001;
cin>>x;
if (x<1) { y = x; } else { y = x/3.0; }
do {
y0=y;
y = y0-1/3.0*(y0 - x/((y0*y0)*1.0));
}while(fabs(y-y0)>e);
cout << y;
}