【计算机】第四章3 循环结构程序设计之多重循环.pptVIP

请说出下面程序的输出内容。 Program ex(input,output); Var j:integer; begin For j:=1 to 10 do write(‘*’) end. 请说出下面程序的输出内容。 Program ex(input,output); var I,j:integer; begin For I:=1 to 4 do begin For J:=1 to 10 do write(‘*’) end End. 请说出下面程序的输出内容。 Program ex(input,output); var I,j:integer; begin For I:=1 to 4 do begin For J:=1 to 10 do write(‘*’)； writeln end End. 例 打印如下数字金字塔 分析： 打印如下数字金字塔 样程： 样程： 分析：编程计算S=1！+2！+3！+……+10！的值。（4037913） 首先该题总的来看是一个累加求和的问题，总共累加了10项，第I项是i!。 设t=i! 则t=1*2*3*…*(i-1)*i 这又是一个累乘操作。 方法一： Program ex; var I,J:integer; s,t:longint; begin s:=0; for I:=1 to 10 do begin t:=1; for J:=1 to I do t:=t*J; s:=s+t; end; writeln(‘s=‘,s) End. 方法二： Program ex; var I,J:integer; s,t:longint; begin s:=0; t:=1; for I:=1 to 10 do begin t:=t*i; s:=s+t; end; writeln(‘s=‘,s) End 样程： Program ex; var I,J,n,a:integer; s,t:longint; begin s:=0; readln(n); for I:=1 to n do begin read (a); t:=1; for J:=1 to a do t:=t*J; s:=s+t; end; writeln(‘s=‘,s) End . 例题： 用5元钱买100只纽扣，其中金属纽扣每只5角，有机玻璃纽扣每只1角，小揿扣1分钱买3个，编程求出各种纽扣各买了多少只？ 分析： 用x,y,z分别表示金属纽扣，有机玻璃纽扣，小揿扣的只数，依题意可得下列方程组： x+y+z=100 50x+10y+z/3=500 可能有多组解，也可能无解。 方法一： Program ex(input,output); var x,y,z:integer; Begin for x:=0 to 10 do for y:=0 to 50 do for z:=0 to 100 do if (x+y+z=100)and(50*x+10*y+z/3=500) then writeln(x,’ ‘,y,’ ‘z) End. 方法二： Program ex(input,output); var x,y,z:integer; Begin for x:=0 to 10 do for y:=0 to 50 do begin z:=100-x-y; if (50*x+10*y+z/3=500) then writeln(‘x,’ ‘,y,’ ‘,z’) end End. 验证哥德巴赫猜想. 哥德巴赫猜想是:对任一充分大的偶