FREE PASCAL循環(huán)結(jié)構(gòu)程序練習(xí)題(2)-小學(xué)版

1、FREE PASCAL 循環(huán)結(jié)構(gòu)程序練習(xí)題（2）：1.計(jì)算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.同構(gòu)數(shù)是指一個數(shù)恰好是它的平方數(shù)右端的數(shù)字，例如：5的平方等于25.，數(shù)5是25右端的數(shù)字，所以5就是同構(gòu)數(shù)。編程求出11000之間的同構(gòu)數(shù)。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位數(shù)。請用FOR循環(huán)和WHILE循環(huán)兩種解法編程。技巧：設(shè)一個四位數(shù)為n,則他的前兩位是n div 100, 后兩位是n mod 100.用FOR循環(huán)程序：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循環(huán)程序：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本書，每本書只有兩種狀態(tài)：裝入（設(shè)為1）和不裝入（設(shè)為0）。利用5重循環(huán)在不超過書包的承重量的情況下，求出裝入得物品及它們的最大重量。程

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. 甲乙丙三數(shù)之和為100，甲數(shù)除以乙數(shù)，丙數(shù)除以甲數(shù)，得數(shù)都是5余1。求乙數(shù)是多少？Program h100;Vara,b,c:integer;beginfor b:=1 t