用free pascal编写程序,要具体(用while语句)
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/15 10:13:29
用free pascal编写程序,要具体(用while语句)
格里高利公式:pi/4=1-1/3+1/5-1/7+1/9-……
求pi,
若1/n
格里高利公式:pi/4=1-1/3+1/5-1/7+1/9-……
求pi,
若1/n
program Pi;
const d=0.0006; // 要提高精度, d 要减小.
var sum: double;
n, sign: longint;
begin
sign:=1;
sum:=0;
n:=1;
while (1/n>d) do
begin
sum:=sum+sign/n;
sign:=sign*(-1);
n:=n+2;
end;
writeln('Pi=', sum*4:10:7);
readln;
end.
const d=0.0006; // 要提高精度, d 要减小.
var sum: double;
n, sign: longint;
begin
sign:=1;
sum:=0;
n:=1;
while (1/n>d) do
begin
sum:=sum+sign/n;
sign:=sign*(-1);
n:=n+2;
end;
writeln('Pi=', sum*4:10:7);
readln;
end.
用free pascal编写程序,要具体(用while语句)
free pascal的问题 (用while语句解答)
用pascal输出语句编写下列图形程序 1 121 12321 1234321
pascal问题,请用while语句做出,
分别用for,while,do...while语句编写程序,实现求前N个自然数之和.
编写一个控制台程序,分别用for、while、do-while语句实现n!
1.分别用while语句、do-while语句编写程序,计算e≈1+1/1!+1/2!+...+1/n!.
十六进制转换,请用free Pascal语言编写代码?
分别用while循环和for循环语句编写程序计算1到100的和
.用FREE PASCAL 编程序打印出下列平行四边形图案
编写程序,分别用for、while、do…while语句实现求前n个自然数之和
分别用 for,while,do while语句编写程序,求前n个自然数之和,n值从键盘输入