循环嵌套程序设计.pptVIP

循环嵌套程序设计 ;例1、求100~999中的水仙花数。（若三位数ABC，ABC=A3+B3+C3，则称ABC为水仙花数。例如：153=13+53+33=1+125+27=153，所以153称为水仙花数）。;同时，也可以采用一个for循环来求解，表面上看好像优于三重循环，实际上却比上面的程序效率低，运行程序分析一下。;例2、试编写能够打印输出如下图形的程序： # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #;例3、编写程序求正整数m与n之间的所有素数。;程序如下： program ex4_16; var i,k,t,m,n,q:integer; yes:boolean; begin readln(m,n); if mn then //交换两个数，保证小的数在前面 begin q:=m; m:=n; n:=q; end; t:=0; for i:=m to n do if (i mod 2=1) or (i=2) then //素数除2之外都是奇数 begin yes:=true; for k:=2 to trunk(sqrt(i)) do //枚举到根号为止 if i mod k=0 then yes:=false; //不是素数则yes等于false if yes then begin write(i:8); t:=t+1; end; if t=5 then //每行输出5个 begin writeln; t:=0; end; end; end.;例4、求1!+2!+3!+…+10!的值。;例5、我国古代有一道有名的数学难题，称为“百鸡问题”：鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百钱买了百鸡，问鸡翁、鸡母、鸡雏各买了多少只，编程输出全部方案。;例6、骓哥德巴赫猜想：任意一个充分大的偶数n（n=4），都可以用两个素数之和表示。例如： 4=2+2 6=3+3 8=3+5 输出一个数，不是偶数输出：“is not even.“，否则输出表示它的两个素数。;程序如下： program ex4_20; var n,p,q,j:integer; flagp,flagq:boolean; begin readln(n); if n mod 2=0 then //输入的数是偶数 begin p:=1; //p从1开始 repeat p:=p+1; q:=n-p; //n=p+q flagp:=true //查看当前的p是不是素数 for j:=2 to trunc(sqrt(p)) do if p mod j=0 then flagp:=false; flagq:=true; //查看当前的q是不是素数 for j:=2 to trunc(sqrt(q)) do if q mod j=0 then flagq:=false; until flagp and flagq; //直到所枚举的p,q是素数为止 writeln(p,’ ‘,q); end else writeln(‘is not even.’); //输出不是偶数的情况 end.;例7、有一推理题：警官在老王被害现场发现A，B，C，D四名犯罪嫌疑人，讯问中A说“我没有杀人”，B说“C是凶手”，C说“杀人者肯定是D”，D说“C在冤枉好人”。现已知：四个人中有三人说的是真话，一人说的是假话，四名犯罪嫌疑人中有且只有一人是凶手。请编程确定四个嫌疑人中谁是凶手？