如何编程实现计算平方根（pascal）

要求位数不小于10的20次方。
sorry，打错了，是说n次方根，而且运算数小于等于10的200次方！

二分法+高精度

你首先要写个高精度加法的函数add(a,b)=a+b，高精度乘法的函数multiply(a,b)=a*b和高精度除以2的除法的函数divide2(a)=a/2

然后，求a的n次方根的函数extract(1,10^100,a,n)如下：
function extract(l,r,a:numtype;n:longint):numtype;
var
i:longint;
m,p:numtype;
begin
m:=divide2(add(l,r));
p:=1;
for i:=1 to n do p:=multiply(p,m);
if p<a then extract:=extract(m,r,a,n);
if p=a then extract:=m;
if p>a then extract:=extract(l,m,a,n);
end;

另外还得注意下高精度数的比较大小问题和精确度问题

sqrt函数

赞同二分法 再看看别人怎么说的。

var i,j,k,n:longint; begin readln(n,k); for i:=1 to sqrt(n) do if i的n次方=k then writeln(i); end.

模拟？ 例如对10开方： 1*1=1<10 2*2=4<10 3*3=9<10 4*4=16>10 3.1*3.1=9.61<10 3.2*3.2=…… ……………… 这是我的思路，不知道时间要求是否可以达到……囧 问题联盟吧欢迎您！