UC知道一些及其简单的pascal题
来源：百度知道 编辑：UC知道 时间：2024/09/27 08:14:10
题目很多，大家慢慢做，做了哪题就发哪题把，小弟在线等啊，急求，大家见分行事吧
1.利用下列公式计算并输出π的值。
π 1 1 1 1 1
—= 1- — + — - —+……+ ----- - ---- n=10000
4 3 5 7 4n-3 4n-1
2.读入20个数，计算它们的和、积、平方和及和的平方
3.输入20个数，统计其中正、负和零的个数
4.计算并输出：1！，2！，3！…35！
5.输出1-999中能被3整除，且至少有一位数字是5的所有整数
π 1 1 1 1 1
—= 1- — + — - —+……+ ----- - ---- n=10000
4 3 5 7 4n-3 4n-1
第一题发上去时百度不懂咋了
1.利用下列公式计算并输出π的值。
π 1 1 1 1 1
—= 1- — + — - —+……+ ----- - ---- n=10000
4 3 5 7 4n-3 4n-1
2.读入20个数，计算它们的和、积、平方和及和的平方
3.输入20个数，统计其中正、负和零的个数
4.计算并输出：1！，2！，3！…35！
5.输出1-999中能被3整除，且至少有一位数字是5的所有整数
π 1 1 1 1 1
—= 1- — + — - —+……+ ----- - ---- n=10000
4 3 5 7 4n-3 4n-1
第一题发上去时百度不懂咋了
1.利用下列公式计算并输出π的值。
var
n,s:integer; t,pi:real;
begin
pi:=0; t:=1; n:=1; s:=1;
while abs(t)>=1E-4 do
begin
pi:=pi+t; n:=n+2; s:=-s; t:=s/n;
end;
pi:=pi*4;
writeln('pi=',pi);
end.
2.读入20个数，计算它们的和、积、平方和及和的平方
var
a:array[1..20] of real;
i:integer;
h,j,aa,hh:real;
begin
j:=1;
for i:=1 to 20 do
read(a[i]);
for i:=1 to 20 do
begin
h:=a[i]+h;
j:=j*a[i];
aa:=aa+a[i]*a[i];
end;
hh:=h*h;
write(h,' ',j,' ',aa,' ',hh,' ');
end.
3.输入20个数，统计其中正、负和零的个数
var
a:array[1..20] of real;
i,f,z,zero:integer;
begin
for i:=1 to 20 do
read(a[i]);
for i:=1 to 20 do
begin
if (a[i]>0) then z:=z+1;
if (a[i]<0) then f:=f+1;
if (a[i]=0) then zero:=zero+1;
end;
write(z,' ',f,' ',zero,'