FREEPASCAL循环结构程序练习题-小学版 5页

循环结构程序练习题一（PASCAL小学版）1.输出100以内的合数。ProgramExam1;Vara,b,n:integer;beginforn:=1to100dobeginb:=0;fora:=1tondoif(nmoda)=0thenb:=b+1;ifb>2thenwriteln(n);end;Readln;End.2编程打印以下图形,*************************ProgramExam1;Vara,b,c:integer;beginfora:=1to5dobeginforb:=1to5-adowrite('');forc:=1toa*2-1dowrite('*');writeln;end;Readln;End.3.求100以内约数最多的那个数,这个数共有几个约数.ProgramExam1;Vara,b,ys,zd,n:integer;beginys:=2;\nforn:=1to100dobeginb:=0;fora:=1tondoif(nmoda)=0thenb:=b+1;ifb>ysthenbeginzd:=n;ys:=b;end;end;writeln('zuiduois:',zd,'gongyou:',ys);Readln;End.4.编程求出所有不超过99的数中，含有数字3的自然数，并统计总数。程序如下Programsamp;vara,b:integer;Beginb:=0;Fora:=1to99doif(adiv10=3)or(amod10=3)thenbeginwriteln(a);b:=b+a;end;writeln('zongshuis:',b);Readln();End.5.求1+2+4+8+16+…+128+256的和。ProgramExam1;Vara,s:integer;begins:=0;a:=1;whilea<=256dobegins:=s+a;a:=a*2;end;writeln('s=',s);\nReadln;End.6．输出100以内的个位数为6的数的平方数。（用两种方法for循环与while循环做，并比较哪种方法好，为什么？）第1种方法（for循环）：Programsqr6;Vara:integer;beginfora:=1to100doifamod10=6thenwriteln(a,'*',a,'=',a*a);Readln();End.第2种方法（while循环）：Programsqr6;Vara:integer;begina:=6;whilea<=96dobeginwriteln(a,'*',a,'=',a*a);a:=a+10;（注：也可以使用INC(a,10)表示）end;Readln();End.7．满足a*a*a+b*b*b+c*c*c=abc的数字称为水仙花数，求所有的100-999之间的水仙花数。programsamp2;vara,b,c:integer;BEGINfora:=1to9doforb:=0to9doforc:=0to9doif(a*a*a+b*b*b+c*c*c)=(a*100+b*10+c)thenwriteln(a*100+b*10+c);readln();END.8百鸡问题：一只公鸡值3元，一只母鸡值1元，而1元可买3只小鸡。现有100元钱，想买100只鸡。问可买公鸡、母鸡、小鸡各几只programsamp4;\nvargj,mj,xj:integer;BEGINforgj:=1to33doformj:=1to98doforxj:=1to98doif(gj*3+mj*1+xj/3=100)and(gj+mj+xj=100)thenwriteln('gj=',gj,'mj=',mj,'xj=',xj);readln();END.9．在屏幕上输出乘法口诀表。ProgramExam4;Vara,b:integer;Beginfora:=1to9dobeginforb:=1toadowrite(b,'X',a,'=',a*b:2,'');writelnend;Readln;End.10．一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请编程求出所有这样的两位数。Programex34;varx,y,a,b:integer;BeginForx:=10to99doBegina:=xdiv10;b:=xmod10;y:=b*10+a;ify-x=36thenwriteln(x);End;Readln;End.11．在屏幕上.打印出100至200之间的奇数，每行输出5个数。Programsamp11;Vara,b:integer;\nBeginb:=0;Fora:=100to200dobeginif(amod2=1)thenbeginb:=b+1;if(bmod5=0)thenwriteln(a,'')elsewrite(a,'')end;end;Readln;End.12.输入一个自然数，求这个自然数的所有约数之和。程序如下：Programsamp13;vara,b,s:integer;Beginwrite('inputa=');readln(a);s:=0;Forb:=1toadoifamodb=0thens:=s+b;write('s=',s);Readln;End.