程序设计初级顺序分支循环精品.pptVIP

第三章 PASCAL语言基础知识 江北区实验小学程序设计初级 1 顺序结构程序的一般过程： 1.获取数据 2. 计 算 3.输出结果 var a,b,s:integer; begin readln(a,b); s:=a*b; writeln(s=,s); end. 2 顺序结构程序的一般过程： 1.获取数据 2. 计 算 3.输出结果 练习：读取两个数，把两个数交换后输出。 3 顺序结构程序的一般过程： 1.获取数据 2.计 算 3.输出结果 练习：输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。 4 函数 trunc( ) x 函数名 变量名 ; 5 判断条件 True False 语句2 语句1 选择结构 6 选择结构 7 If 条件 then 语句1 else 语句2 ; True False 选择结构 8 注：①有两种形式：一是当布尔表达式的值位T或F时都分别执行不同的语句。二是省略F分支。 ②布尔表达式的值应属布尔类型。即只有真或假两种可能。 ③THEN后的语句在与ELSE之间不能加“；”。 ④语句可以是简单语句，也可以为复合语句。 选择结构 9 If 条件 then 语句1 else 语句2 ; 选择结构 草稿 10 选择结构 多路判断注意点: ①表达式再长，条件再多，最终只产生一个结果，要么是true 要么是 false。 ②表达式中的每个判断条件都需要加括号。 ③注意计算的优先级，and 高于 or。P70 If 表达式 then 语句1 else 语句2 ; 11 循环结构初体验 var a,b,c,d,t:lognint; begin readln(a,b,c,d,); t:=a+b+c+d; writeln(‘2001001 ’,t); readln(a,b,c,d,); t:=a+b+c+d; writeln(‘2001002 ’,t); readln(a,b,c,d,); t:=a+b+c+d; writeln(‘2001003 ’,t); readln(a,b,c,d,); t:=a+b+c+d; writeln(‘2001004 ’,t); end. var a,b,c,d,t,k:lognint; begin for i:=1 to 4 do begin readln(a,b,c,d,k); t:=a+b+c+d; writeln(k,’ ’,t); end; end. 12 循环结构 for 控制变量:=表达式1 to 表达式2 do 语句; for i:= 初值 to 终值 do 语句; for i:= 1 to n do 语句; 13 循环结构 for i:= 1 to n do 语句; 题1 * writeln(*) 题2 1 2 3 4 5 * * * * writeln(i) …… …… n n 题3 2 4 6 8 10 writeln(2*i) …… ？ 找规律 题4 1 3 5 7 9 writeln(2*i-1) …… ？ 题1，机械重复，从题2开始，有变化的重复，而2－4题输出的变化只与i的值相关。有的题目还与其他变量相关，如：n 。 题5 n n-1 n-2 writeln(n-i+1) …… 3 2 1 14 循环结构 　　①先将初值赋给左边的变量（称为循环控制变量）； 　　②判断循环控制变量的值是否已超过终值，如已超过，则跳到步骤⑥； 　　③如果末超过终值，则执行do后面的那个语句（称为循环体）； 　　④循环变量递增（对to）或递减（对downto)１； 　　⑤返回步骤②； 　　⑥循环结束，执行ｆｏｒ循环下面的一个语句。 For语句执行过程 for i:= 1 to n do 语句; 15 循环结构 　　①循环控制变量必须是顺序类型。例如，可以是整型、字符型等，但不能为实型。 　　②循环控制变量的值递增或递减的规律是：选用to则为递增；选用downto则递减。 　　③所谓循环控制变量的值超过终值，对递增型循环，超过指大于，对递减型循环，超过指小于。 　　④循环体可以是一个基本语句，也可以是一个复合语句。 　　⑤循环控