第六课：用无穷数列之和求PI的值
发表时间：2002-09-23 00:00:00 关键词：奥赛,PASCAL,编程,源码
(点击：) 把这篇文章告诉我的QQ或MSN朋友
program Pi(input,output);
var i:integer;
s:real;
begin
s:=0;
for i:=1 to 1000 do
begin
s:=s+1/(4*i-3)-1/(4*i-1);
end;
writeln(s*4);
end.
本站特约顾问律师常州东晟律师事务所朱立律师（电话13915029670，QQ646146109）提醒您：
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！