for while 循环结构.pptVIP

Event Name Here BEA Confidential 请写出下面程序的输出内容。 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 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(‘*’)； writeln; end; End. 例 打印如下数字金字塔 分析： 打印如下数字金字塔 样程： 样程： BEA Confidential. | * 例1：Fibonacci数列，前几个数为0，1，1，2，3，5……，其规律是：F1＝0（n＝1） F2＝1（n＝2） Fn=Fn-1+Fn-2（n≥3） 编程序求此数列的前40个数。 1、For语句 PROGRAM Fibonacci(input,output); VAR f,lastf,prevf:real; i,n:integer; BEGIN prevf:=0; lastf:=1; Write(prevf:10:0,lastf:10:0); n=2; FOR i:=3 TO 40 DO BEGIN f:=prevf+lastf; IF(n MOD 4=0) THEN Writeln; Write(f:10:0); prevf:=lastf; lastf:=f; n:=n+1;{n是输出计数} END; END. 例1 例2：输入两个数x1，x2，判断它们是否互质数。 大数?X1; 小数?X2 x1被x2整除 T F X2 , X1能同时被i整除 非互质 互质 For I : = 2 to n do X2 DIV 2 ? n X2和X1同时被2~X2/2 整除，判断是否互质 非互质 F T Program M-P-N(input,output) ; Var x1,x2,t,n,i:integer; Yes:Boolean; Begin write(‘Input x1,x2 ’) ; Readln(x1,x2); If x1x2 then Begin t:=x1; x1:=x2; x2:=t end; Yes:=true; If (x1 mod x2 )=0 Then yes:=false Else begin n : =x2 div 2; for i:=2 to n do if ((x1 mod i)=o and (x2 mod i )=0) then yes:=false； end; if yes then writeln(‘they are mutual prime number’) else writeln(‘Then are not mutual prime number’)； End. 内 循 环 外 循 环 FOR循环的嵌套 FOR i:=1 TO 9 DO Begin FOR j:=1 TO 9 DO write