pascal 习题 循环结构

《pascal 习题 循环结构》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、东风一中信息技术程序设计上机题PASCAL循环结构程序设计上机题1、编程求一百以内自然数的和programsigmaN(input,output);varn,i,total:integer;beginwrite('entern');readln(n);total:=0;fori:=1tondototal:=total+i;writeln('thetotalofsigma',n:4,'is',total)end.用GOTO语句和带标号语句实现求programsigmaN(input,output);label1;varn,i,total:integer;beginwrite(

2、'entern');readln(n);total:=0;i:=1;1:total:=total+i;i:=i+1;ifi<=nthengoto1;writeln('thetotalofsigma',n:4,'is',total)end.2、求n!programnfac(input,output);varx:real;n,i:integer;beginwriteln('inputn,calculaten!');readln(n);ifn<0thenwriteln('inputn<0error!')elsebeginx:=1;fori:=ndownto1dox:=x*i;wr

3、iteln(n:3,'!=',x:10:1);endEND.3、一对兔子自出生的第二个月后，每月新生一对兔子，新生的兔子也如此繁殖。如果所有的兔子都不死去，问到第十二个月时，共有多少对兔子？programfibonacci(output);varf,pref,lastf,i,n:integer;东风一中信息技术程序设计上机题Beginpref:=1;lastf:=1;write(pref:10,lastf:10);fori:=3to12dobeginf:=pref+lastf;pref:=lastf;lastf:=f;write(f:10)end;End.4、输入两个数，判

4、断是否互质数。programMPN(input,output);varx1,x2,t,n,i:integer;yes:boolean;Beginwrite('inputx1,x2');readln(x1,x2);ifx1

5、primenumber')elsewriteln('theyarenotmutualprimenumber')End.5、将一张百元人民币换成5元、1元和0.5元面值的的零币一百张，每种不少于一张，问有哪几种组合？programOneHundred(output);vari,j,k:integer；sum,rmbsum:real;Beginwriteln('ijk');fori:=1to11doforj:=1to100-idofork:=1to100dobeginsum:=i+j+k;rmbsum:=5*i+j+0.5*k;if(sum=100)and(rmbsum=100

6、)thenwriteln(i:7,j:7,k:7);endEnd.6、输出九九表VarI,j:integer;Begin东风一中信息技术程序设计上机题Fori:=1to9dobeginForj:=1toIdoWrite(i:2,’*’,j:2,’=’,i*j);Writeln;endEnd.7、求100至200之间的全部素数。每行打印五个。programprime(output);vari,k,n:integer;flag:boolean;Beginwriteln('Theprimarybetween100to200');n:=0;fori:=100to200doifodd

7、(i)thenbeginflag:=true;fork:=2totrunc(sqrt(i))doif(imodk)=0thenflag:=false;ifflagthenbeginwrite(i:5);n:=n+1;end;ifn=5thenbeginwriteln;n:=0end;end;writeln;End.8、利用格里高公式求/4=1-1/2+1/3-1/4+1/5……，直到最后一项小于1E-04为止。programValueOfPi(output);Varn,s:integer;t,pi:real;Beg