freepascal编程习题(计数循环).doc

下列程序已经上机验证。 1.输出100以内的素数。（素数：只能被1和本身整除的数） program susu; var i,m,n:integer; begin for i:=1 to 100 do begin m:=0; for n:=1 to i do begin if i mod n=0 then m:=m+1; end; if m=2 then write(n, ); end; end. 2.输出100以内的合数。（合数：除了被1和本身整除，还可以被其他数整除的数） program susu; var i,m,n:integer; begin for i:=1 to 100 do begin m:=0; for n:=1 to i do begin if i mod n=0 then m:=m+1; end; if m.2 then write(n, ); end; end. 3.1.试编写能够打印输出如下图形的程序。 AAAAAAAAA AAAAAAA AAAAA AAA A program aa; var i,j,k:integer; begin for i:=5 downto 1 do begin for j:=1 to 5-i do write( ); for k:=2*i-1 downto 1 do write(A); writeln; end; end. 3.2打印乘法口诀表。 program chengfa(input,output); var a,b:integer; begin for a:=1 to 9 do begin for b:=1 to a do begin write(b,*,a,=,a*b, ); end; writeln; end; end. 4.同构数是指一个数恰好是它的平方数右端的数字，例如：5的平方等于25.，数5是25右端的数字，所以5就是同构数。编程求出1~1000之间的同构数。 program ex(input,output); var n:integer; j:longint; begin for n:=1 to 9 do begin j:=n*n; if (j mod 10=n) then write(n, ); end; writeln; for n:=10 to 99 do begin j:=n*n; if (j mod 100=n) then write(n, ); end; writeln; for n:=100 to 999 do begin j:=n*n; if j mod 1000 =n then write(n, ); end; writeln; end. 5.齐王点兵的故事。相传齐王韩信才智过人，从不直接清点自己军队的人数，只是让士兵先后以三人一排、五人一排、七人一排地变换队形，而他每次只掠一眼队伍的排尾就知道总人数了（100多人）。假设三次排尾的人数1，输出总人数。 program qiwangdianbing; var i,s:integer; begin s:=0; for i:=100 to 200 do begin if(i mod 3=1) and (i mod 5=1) and (i mod 7=1) then begin write(i, ); s:=s+1; end; end; if s=0 then write(mei you ren!); end.