作业帮计算圆周率pascal
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/28 10:35:38
计算圆周率pascal
Description
根据公式pai^2/6=1+1/2^2+1/3^2+1/4^2+……1/n^2,计算圆周率pai的值
pai^2/6的含义：pai的平方再除以6.
Input
n
Output
pai的值.保留六位小数.
Sample Input
1000
Sample Output
3.140638
这个是要求
晕死 是用pascal语言解答问题啊
Description
根据公式pai^2/6=1+1/2^2+1/3^2+1/4^2+……1/n^2,计算圆周率pai的值
pai^2/6的含义：pai的平方再除以6.
Input
n
Output
pai的值.保留六位小数.
Sample Input
1000
Sample Output
3.140638
这个是要求
晕死 是用pascal语言解答问题啊
var i,n:integer;
s,pi:real;
begin
readln(n);
for i:=1 to n do s:=s+1/(i*i);
pi:=sqrt(s*6);
writeln(pi:0:6);
end.
给分啊.
s,pi:real;
begin
readln(n);
for i:=1 to n do s:=s+1/(i*i);
pi:=sqrt(s*6);
writeln(pi:0:6);
end.
给分啊.