FREEPASCAL循环结构程序练习题-小学版.doc

循环结构程序练习题一（PASCAL小学版）1.输出100以内的合数。Program Exam1;Vara,b,n:integer;beginfor n:=1 to 100 dobegin b:=0; for a:=1 to n do if (n mod a)=0 then b:=b+1; if b2 then writeln(n);end;Readln;End.2编程打印以下图形, * * * *Program Exam1;Vara,b,c:integer;begin for a:=1 to 5 do begin for b:=1 to 5-a do write( ); for c:=1 to a*2-1 do write(*); writeln; end; Readln;End.3.求100以内约数最多的那个数,这个数共有几个约数.Program Exam1;Vara,b,ys,zd,n:integer;beginys:=2;for n:=1 to 100 dobegin b:=0; for a:=1 to n do if (n mod a)=0 then b:=b+1; if bys then begin zd:=n;ys:=b; end;end;writeln(zuiduo is:,zd, gong you:,ys);Readln;End.4.编程求出所有不超过99的数中，含有数字3的自然数，并统计总数。程序如下Program samp;vara,b:integer;Begin b:=0; For a:=1 to 99 do if (a div 10=3) or (a mod 10=3) then begin writeln(a); b:=b+a; end; writeln(zongshu is:,b); Readln();End.5. 求1+2+4+8+16+128+256的和。Program Exam1;Vara,s:integer;begin s:=0; a:=1; while a=256 do begin s:=s+a; a:=a*2; end; writeln(s=,s); Readln;End.6输出100以内的个位数为6的数的平方数。（用两种方法for循环与while循环做，并比较哪种方法好，为什么？）第1种方法（for循环）：Program sqr6;Vara:integer;beginfor a:=1 to 100 doif a mod 10 =6 thenwriteln(a,*,a,=,a*a);Readln();End.第2种方法（while循环）：Program sqr6;Vara:integer;begina:=6;while a=96 dobeginwriteln(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之间的水仙花数。program samp2;vara,b,c:integer;BEGINfor a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if (a*a*a+b*b*b+c*c*c)=(a*100+b*10+c) then writeln(a*100+b*10+c); readln();END.8百鸡问题：一只公鸡值3元，一只母鸡值1元，而1元可买3只小鸡。现有100元钱，想买100只鸡。问可买公鸡、母鸡、小鸡各几只 program samp4;vargj,mj,xj:integer;BEGINfor gj:=1 to 33 do for mj:=1 to 98 do for xj:=1 to 98 do if (gj*3+mj*1+xj/3=100) and(gj+mj+xj=100) then writeln(gj=,gj, mj=,mj, xj=,xj); readln();END.9在屏幕上输出乘法口诀表。Program Exam4;Vara,b:integer;Begin for a:=1 to 9 do begin for b:=1 to a do write(b,X,a,=,a*b:2, ); writeln end; Readln;End.10一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请编程求出所有这样的两位数。Program ex34;varx,y,a,b:integer;Begin For x := 10 to 99 do Begin a := x div 10; b := x mod 10; y := b*10+a; if y-x=36 then writeln(x); End;Readln;End.11在屏幕上.打印出100至200之间的奇数，每行输出5个数。Program samp11;Var a,b:integer;Begin b:=0; For a:=100 to 200 do begin if (a mod 2=1) then begin b:=b+1; if (b mod 5=0)then writeln(a, ) else write(a, ) end; end; Readln;End.12.输入一个自然数，求这个自然数的所有约数之和。程序如下：Program samp13;vara,b,s:integer;Begin write(input a=); readln(a); s:=0; For b:=1 to a do if a mod b=0 then s:=s+b; write(s=,s); Readln;End.