高中信息技术 奥林匹克信息学竞赛班进阶篇 pascal-01 基本语句课件.ppt

PASCAL基本语句 Pascal语言的基本语句 赋值语句读语句写语句条件判断语句循环语句 常量 常量 程序执行过程中其值保持不变的数据 constpi 3 1415926 f false f为逻辑值false 假 st abcd st为字符串 abcd SS array 1 4 0 1 ofinteger 0 1 1 0 0 1 1 0 变量 变量 程序执行过程中其值可以改变的数据vari j k l integer integer整数类型 a b real real实数类型 ch char char字符类型 p boolean Boolean布尔类型 算符 运算符 加 减 乘 除 div 整除 mod 取余数 关系运算符 不等于 逻辑运算符not 逻辑非 and 逻辑与 or 逻辑或 xor 逻辑异或 程序结构 programfirst constpi 3 14159 vars r real beginwrite r readln r s pi sqr r writeln s s end 赋值语句 赋值语句 例 1 a 200 2 b a 30 2 3 a a 50 赋值语句 常见错误 a 35 6y a 35 6y a 35 6 y 读语句 读语句 例 read a b c readln i j k readln x y 读语句 当输入数据 1234567891011 读入结果为 12345 abcij678 k91011 xy read a b c readln i j k readln x y 写语句 写语句 例 x 20 y 30 write x y write x y 执行上述语句后 在显示屏输出 20 30 50 写语句 写语句 执行上述语句后 在显示屏输出 20 30 50 例 x 20 y 30 writeln x y writeln x y 写语句 beginc a r 3 5 writeln c 6 writeln r writeln r 9 writeln r 1 writeln r 9 3 writeln r 2 3 end If语句 条件判断语句 1 If语句 readln x ifx 0 If语句 readln x ifx 0thenbeginwriteln x 0 b b 1 endelsewriteln aaaaa If语句 Ifa 0thenbeginifc thenwrite aaa endelseifc thenwrite bbb elsewrite ccc If语句 1 If语句 readln x ifx0thenwriteln x 0 elsewrite x 0 If语句 条件判断语句 1 If语句 如果0 a b就 if0 a bthen if 0 a and a b then Case语句 2 case语句 Case语句 varc char Beginread c casecof writeln mail writeln money writeln snow elsewriteln end End Case语句 varx y integer Beginread x y casex yof0 writeln mail 1 10 writeln money 20 30 40 writeln snow elsewriteln end End