第三讲程序地基本结构.pptVIP

第三讲 程序的基本结构 程序三大基本结构 1、顺序结构 按语句顺序，每句执行且只执行一次 2、分支结构（选择结构） 按指定条件决定执行或不执行某些程序段 3、循环结构 按指定循环条件反复执行某程序段 顺序结构 Var i:integer; Begin readln(i); writeln(‘i=‘,i); i:=i+1;{或inc(i);} writeln(‘i+1=‘,i); writeln(‘i+10=‘,i+10); readln; End. 每个执行语句按顺序均被执行一次。 顺序结构 Var a,b,c:integer; Begin readln(a,b);{输入-5和6} c:=a; a:=b b:=c; writeln(a,b:5); readln End. 运行上述程序，改变三个赋值语句的顺序，观察对程序运行结果的影响。 分支结构/选择结构 单分支结构 If 条件 then 执行语句; If 条件 then begin 执行语句序列 End; “条件”为真，则执行； “条件”为假，则跳过。 分支结构if…then形式举例 Var a:integer; Begin readln(a); if a=0 then writeln(sqrt(a):10:4); readln End. 分支结构if…then形式举例 Var a,b,c:integer; Begin readln(a,b); {先输入ab,后输入ab的值} if ab then begin c:=a;a:=b;b:=c; end; writeln(a,b:5); End. 分支结构if…then…else…形式举例 Var a,b,c:integer; Begin readln(a); {先输入a0,后输入a0的值} if a0 then b:=sqrt(a) else b:=sqrt(-a) writeln(a,b:5:10:3); End. 分支结构if…then…else…形式举例 Var a,b,c:integer; Begin readln(a,b); {先输入a0,后输入a0的值} if ab then begin a:=a+b;a:=a-b;b:=a-b; writeln(a,b:5,’Change’); end else begin //此处begin…end可省去 write(a,b:5,’No change’); end; End. 多分支if…then…else…结构嵌套 If … then … Else if … then … else if … then … else if …then … else … 多分支case … of…end结构 Case 可数变量 of 值或值列表1: 程序段1; 值或值列表2: 程序段2; …… 值或值列表n: 程序段n; else 程序段n+1; end; 多分支case … of…end结构 Readln(n); Case n of 0: 程序段1; 1: 程序段2; …… k: 程序段k-1; end; 多分支case … of…end结构 readln(c); case c of ‘0’..’9’: 程序段1; ‘A’..’Z’: 程序段2; ‘a’..’z’: 程序段3; else write(‘error’); //对应未例举的情况 end; 循环结构 1、计数型循环 循环过程中计算机自动记录循环次数，达到指定的循环次数为止。 2、当型循环 当指定条件为真，继续循环。 3、直到型循环 循环到满足指定条件为止。 计数型循环 for i:=5 to 54 do writeln(i); //循环打印次变化了的i值 s:=0; for i:=1 to 100 do begin s:=s+