FREE PASCAL循环结构程序练习题(2)-小学版

1、FREE PASCAL 循环结构程序练习题（2）：1.计算1/(1*3)+1/(3*5)+1/(5*7)+1/(7*9)+1/(17*19).Program jisuan;Varn,fm:integer;s:real;beginn:=1;s:=0;while n<=17 dobeginfm:=n*(n+2);s:=s+1/fm;n:=n+2;end;write('s=',s);Readln();End.2.同构数是指一个数恰好是它的平方数右端的数字，例如：5的平方等于25.，数5是25右端的数字，所以5就是同构数。编程求出11000之间的同构数。Program tgs;V

2、arn:integer;j:longint;beginfor n:=1 to 999 dobegin j:=n*n-n; if (n>=1) and (n<=9) and (j mod 10=0) then writeln(n,n*n:9) else if (n>=10) and (n<=99) and (j mod 100=0) then writeln(n,n*n:9) else if (n>=100) and (n<=999) and (j mod 1000=0) then writeln(n,n*n:9);end; Readln();End3找出所有

3、符合(ab+cd)*(ab+cd)=abcd.等式的4位数。请用FOR循环和WHILE循环两种解法编程。技巧：设一个四位数为n,则他的前两位是n div 100, 后两位是n mod 100.用FOR循环程序：Program sample1;Varab,cd,n:integer;beginfor n:=1000 to 9999 do begin ab:=n div 100; cd:=n mod 100; if (ab+cd)*(ab+cd)=n then writeln(n); end; Readln();End.用WHILE循环程序：Program sample2;Varab,cd,n:in

4、teger;beginn:=1000;while n<= 9999 do begin ab:=n div 100; cd:=n mod 100; if (ab+cd)*(ab+cd)=n then writeln(n); n:=n+1; end; Readln();End.4.一个书包能装3KG物品，小东有5本书，重量分别是0.29kg、0.52kg、0.78kg、1.16kg、1.5kg。问书包中最多能装哪些书？解题思路：分别用a,b,c,d,e表示5本书，每本书只有两种状态：装入（设为1）和不装入（设为0）。利用5重循环在不超过书包的承重量的情况下，求出装入得物品及它们的最大重量。程

5、序如下：Program schoolbag;Vara,b,c,d,e,a1,b1,c1,d1,e1:integer;m,g:real;beginm:=0;for a:=0 to 1 dofor b:=0 to 1 dofor c:=0 to 1 dofor d:=0 to 1 dofor e:=0 to 1 dobeging:=a*0.29+b*0.52+c*0.78+d*1.16+e*1.5;if (g<=3) and (g>m) thenbeginm:=g;a1:=a;b1:=b;c1:=c;d1:=d;e1:=e;end;end;writeln('a=',a1,'b=',b1,'c=',c1,'d=',d1,'e=',e1);write('m=',m:4:2);Readln();End.5. 甲乙丙三数之和为100，甲数除以乙数，丙数除以甲数，得数都是5余1。求乙数是多少？Program h100;Vara,b,c:integer;beginfor b:=1 t