pascal手动开3次方

1.计算机方法（优化）
var
n,i,z:real;
begin
readln(n);
i:=0;
z:=1;
while 0=0 do
begin
if i*i*i>n then //i的3次方是否大于n
begin
i:=i-z; //取i的3次不大于n的最大i值
z:=z/10; //增加精度
if z<0.001 then //精度到0.001为止
begin
writeln(i:0:2);
exit;
end;
end;
i:=i+z; //根据精度增加i的值
end;
end.

2.数学方法（赞）
var
n:real;
begin
readln(n);
writeln(exp(ln(n)/3):0:2);
end.

注：n=exp（x）指e的x次方为n
n=ln(x) 指e的n次方为x
e^(ln(n)/3)
=(e^(ln(n)))^(1/3)
=n^(1/3)
=3√n //涉及高中对数知识

var n:integer
begin
readln(n);
writeln(xxxxxxxxxxxxxxxxx);
end.
只会这么点，writrln后括号里输求三次方跟的公式（我不会）。完了F2存档.ctrl+f9，输入那个整数，回车，完了alt+F5，就行了

n的3次方根，就是n的三分