如何用while循环求pi的值?

c语言源程序如下:

**********************************************************************************

#include "stdio.h"
main()
{ long n;
double m,pi;
n=1;
m=1;
while(n>=1e-6);
{n=n+2;
if((n-1)%4=0) m+=1/(double)n;
else m-=1/(double)n;
}
pi=m*4;
printf("pi=%lf\n",pi);
}

**********************************************************************************

Pascal语言源程序如下:

**********************************************************************************

program pi;
var n:longint;
var m,pi:double;
begin
m:=1;
n:=1;
while n>=1e-6 do
begin
n:=n+1;
if (n-1)mod4=0 then m:=m+1/n;
else m:=m-1/n;
end;
pi=m*4;
writeln('pi'=,pi);
end.　

**********************************************************************************

思路绝对没错,调试如果出现什么小问题,你就自己解决吧!

广东省湛江市第四中学初一（8）班 高扬
Email:clevergy@163.com

**********************************************************************************

附：本人对二楼楼主“深感佩服”，他无疑是C+Pascal混合语言的创始人！

**********************************************************************************

你要的pascal语言如下：
procedrue
begin
long n=1;
double m=1,pi;
while(n>=1e-6);
begin
n=n+2;
if((n-1)%4==0)then m+=1/n;
else m-=1/n;
end
pi=m*4;
end
大致程序是这样，格式有什么错的你自己调试。