shulian

几个连加连乘的pascal小程序

整数连加

1、编程实现S=1+2+3+4+5+6+…+N

programlianjia;

constn=10;

vars,i:integer;

begin

s:=0;

fori:=1tondos:=s+i;

writeln('s=',s);

end.

整数连乘

2、编程实现S=1*2*3*4*5*6*…*N

programliancheng;

constn=10;

vars,i:integer;

begin

s:=1;

fori:=1tondos:=s*i;

writeln('s=',s);

end.

奇数连加1

3、编程实现S=1+3+5+7+…+N

programjishulianjia;

constn=9;

vars,i:integer;

begin

s:=0;

fori:=1tondiv2+1dos:=s+（2*i-1）;

writeln('s=',s);

end.

奇数连加2

4、编程实现S=1+3+5+7+…+N(当型循环)

programjishulianjia2;

constn=9;

vars,i:integer;

begin

s:=0;

i:=1;

whilei<=ndo

begin

s:=s+i;

i:=i+2;

end;

writeln('s=',s);

end.

分数连加减

5、编程实现S=1-1/2+1/3-1/4+…+1/99-1/100

programfenshulianjiajian;

vari:integer;

s,f:real;

begin

s:=0;

f:=1;

fori:=1to100do

begin

s:=s+f*(1/i);

f:=-f;

end;

writeln('s=',s);

end.

整数阶乘连加

6、编程实现S=1!+2!+3!+4!+5!+6!+…+N!

programjiechenglianjia;

constn=10;

vars,a,i:integer;

begin

s:=0;

a:=1;

fori:=1tondo

begin

a:=a*i;

s:=s+a;

end;

writeln('s=',s);

end.