第3讲-顺序结构程序设计(pascal程序语言基础)

第三讲顺序结构程序主要内容：1、赋值语句2、读语句3、写语句一、赋值语句功能:对文件类型以外的任何类型的变量赋值赋值语句的格式：

<变量名>:=<表达式>；其中“:=”称为赋值号。执行过程：计算机先计算赋值号右边表达式的值，然后将表达式的值赋给变量名代表的变量。如：A:=（9*8）-（2-1）;A:=A+1赋值语句例如：programex;constx=‘*’;varn,m:real;

k:boolean;c:char;e,f:integer;beginn:=1.0;e:=1;f:=1;c:=x;n:=n-1;m:=3*n+n*nk:=e=fn:=eend.结论：变量的类型与赋值符后面的表达式的类型必须相同下面哪些赋值语句是合法的哪些是不合法的结论：可以将整型数据赋值给实型变量，但是不能将实型数据赋给整型变量programex;varn,:real;

k:boolean;e,f:integer;beginn:=1.0;e:=1;f:=1;n*n-6*e*f:=0;k:=e;n:=e;f:=n;end.赋值语句1.赋值号（:=）左边只能是变量，而不允许是表达式2.赋值号（：=“赋值符号”）与等号（=“比较操作符”）是完全不同的。3.变量可以多次进行赋值4.被赋值的变量可以作为因子参与运算；5.对于任何一个变量必须首先赋值,然后才能引用,否则,未赋初值的变量将以一个随机值参与运算.6.赋值号两边的类型必须相同,但整数和实数遵守赋值相容性原理.

注意：赋值语句例题programtext2;vara,b:integer;begina:=3；b:=2;

writeln(‘a=‘,a,‘b=‘,b);a:=a+b;

writeln(‘a=‘,a);b:=a-b;a:=a-b;

writeln(‘a=‘,a,’b=‘,b);end.结论:变量的值是最近一次赋值语句执行后变量的值.赋值语句programtext3;consta=‘*’;b=5;var

x,y:integer;m,n:char;a1,a2:real;b1,b2:boolean;课堂练习下列语句哪些是正确的哪些是错误的X:=y+b;y:=a1+3*b;a1:=x+y;a2:=3+b;b1:=(3>1)and(b<1);m:=a;a2:=a;y:=9/3;a1:=a1+5二、读语句功能:通过输入设备(键盘)给变量提供数据输入语句的格式：read(<变量表名>);readln(<变量表名>);变量表名:用逗号隔开的变量标识符一行输入多个变量值时，要求数据之间用空格分隔，readln语句要求输入数据后必须回车，使得后继操作从下一行的头上开始。读语句——read语句

语法：read(a1,a2,……an);等价于：read(a1);read(a2)…………read(an);语句执行原理：当程序执行到read语句时，程序就会停下来等待用户输入数据，然后存入相应的变量中。programex;varn,m:real;beginread(m,n);n:=m+n;

writeln(‘n=‘,n);end.programex;Var

n:real;

k:boolean;

e:integer;

f:char;Begin

read(n,e,k);

writeln(n,e);

read(n,e,f);

writeln(n,e,f);

read(k);

writeln(k);end.1.整型和实型变量可以共用一个读语句。2.但字符型变量不能与整型实型变量共用一个读语句。3.布尔型变量不能使用read语句读入。

读语句read语句的执行过程（对于语句read(a);)当a是字符型变量read（a）执行时，从键盘读入一个字符（包括空格），存入变量a。当a是整型或实型变量，read（a）执行时，系统读入一个形成数的序列，遇到不能形成数的字符(空格符)，停止读入，将所读取的数存入变量a。当a是整型变量时，读入的数必须是整型；当a是实型变量时，读入的数可以是整型也可以是实型。（数据相容性原理）读语句例题:programtext2;var

a,c:integer;b1,b2,b3:real;ch1,ch2:char;beginread(ch1,ch2);read(b1,b2,a,c,b3);end.结果:ch1=xch2=yb1=3.0b2=4.1a=15c=3b3=-2.5输入：xy34.1153-2.5读语句readln语句执行原理：当程序执行到readln时就自动跳到下一行准备读下一行的数据。不管当前行的数据是否读完。语法:read(a1,a2,……an);等价于：read(a1);read(a2)…………read(an);readln;读语句read语句与readln语句区别是：

1)read语句是一个接一个地读数据，在执行完本Read语句(读完本语句中变量所需的数据)后,下一个读语句接着从该数据输入行中继续读数据，也就是说，不换行。如：

Read(a,b);Read(c,d);Read(e);

如果输入数据行如下:1□2□3←┘4□5□6□←┘则a,b,c,d,e的值分别为1,2,3,4,5,如果后面无读语句则数据6是多余的，这是允许的。

读语句

Readln则不同，在读完本Readln语句中变量所需的数据后,该数据行中剩余的数据多余无用，或者说，在读完本Readln语句中变量所需数据后，一定要读到一个回车，否则多余的数据无用。设有下列语句:read(a,b,c);

readln(d,e);

readln;

readln(f,g);其中,所有变量均为整型。设输入的数据如下：

1□2←┘3□4□5□6□7□8←┘9□10←┘11□12□13←┘

Vara,b,c,d,e,f,g:integer;beginread(a,b,c);

readln(d,e);

readln;

readln(f,g);

writeln(a,'',b,'',c,'',d,'',e,'',f,'',g);end.1□2□3□4□5□11□12读语句2)readln语句与read语句的第二个区别是:read后一定要有参数表,readln可以不带参数表,即可以没有任何输入项,只是等待读入一个换行符(回车)。经常用于暂停程序的运行，直到输入一个回车读语句课堂练习：programtext2;var

a,c:integer;b1,b2,b3:real;ch1,ch2:char;beginread(ch1,ch2);readln(b1,b2,a);read(c,b3);end.输入：xy34.1153-2.55-5.58结果:ch1=xch2=yb1=3.0b2=4.1a=15c=5b3=-5.5读语句课堂作业:

变量说明var

a,b,c,d:integer；执行结果abcd程序段一read(a);

readln(b,c);

read(d);

程序段二readln(a);

read(b,c);

read(d)输入数据12345

678完成表格：读语句readln语句可以不带变量名.read语句必须跟变量名(read(变量列表)).语句read只管接收数据，语句readln接收完数据后，还把同行的其它数据全部宣布作废。作用:单独的readln;语句在程序中起着暂停作用,按enter键继续,通常起着调试程序的作用.read语句与readln语句的语法特点:三、写语句功能：将计算结果和其它数据传送到显示器的输出操作写语句的两种形式：Write(<输出项>)Writeln(<输出项>)写语句输出项的种类：4类1.表达式：write(round(sqr(2.2)+1)div2）

write(100<80);特点：对表达式进行计算后再输出。2.数值常量：programtext;constpi=3.14;Begin

write(pi);write(3.14);end.特点：直接输出该常量的值。写语句3.字符常量:write(‘hellopascal’);特点：用单引号括起来的字符序列4.变量：Programtext1;

Var

a:real;Begina:=3.14;

writeln(‘a=‘,a);a:=58.5;

writeln(‘a=‘,a);End.特点：输出变量中存储的数据写语句Write语句格式：write(a1,a2,a3,a4,a5,a6);

等价于：beginwrite(a1);write(a2);write(a3);……end.特点：write(a1)将a1的内容输出到显示器上，不换行。在执行write(a2)时将a2的值原行直接输出。programtext2;var

n:integer;ch:char;beginn:=34；ch:=‘*’;write(n);

write(ch);write(67);end.{write(n,ch,67);}思考：三个写为一个可不可以写语句试一试programtext2;varn:integer;ch:char;beginn:=34；

ch:=‘*’;write(n);

write(ch);

writeln;write(67);end.//writeln(n,ch);//Write;注意：write语句至少要输出一项内容writeln语句格式：writeln(a1,a2,a3,a4,a5,a6);等价于：beginwrite(a1);write(a2);write(a3);……writeln;end.特点：输完最后一项后自动换行写语句字符型变量的输出一.标准输出格式：write(ch)动作：1.字符变量ch的内容输出到显示屏光标当前的位置上

2.光标下移一个位置，等待输出下一个内容特点：输出显示宽度为一个字符宽。二.域宽可控的输出格式：writeln(ch:n)表示所输出字符变量ch，以右对齐的方式占n个输出宽列数写语句标准输出格式：write(x)整型变量的输出特点：从光标当前位置开始输出，输出域宽和数值位数相同域宽可控的输出格式：write(x:n)特点：1.以右对齐的方式输出整数变量x，占n个输出宽列数。

2.如果x的数值位数大于n，则输出宽度和数值位数相同。

3.数值的正负号占一列位置。例如：programtext4;

vara,b,c:integer;begina:=22;b:=15;c:=66;write(a,b,c);

writeln;writeln(a,b:8);end.写语句实型变量的输出1.标准输出格式：write(r)特点：以科学计数法的形式输出实型变量r。r>=0格式为：□#.##########E*##r<0格式为：—#.##########E*##试一试：programtext4;

vara:real;begina:=3.14159;

writeln(a);end.□3.14159000000000E+000写语句特点：r为实型变量，n为整型表达式。表示在n个字符宽的输出域上以科学计数法的形式输出实型变量r。2.域宽可控的指数输出格式：write(r:n)writeln(r:25);writeln(r:8);writeln(r:3);特点：r为实型变量，n,m都为整型表达式。表示在n个字符宽的输出域上以小数的形式输出实型变量r，其中小数点后面有m个数字。3.域宽可控的小数输出格式：write(r:n:m)programtext4;vara:real;begina:=3.1416;writeln(a:12);writeln(a:10:2);writeln(a:3:2);writeln(a:1);

writeln(‘*’,a,’*’);end.思考：写语句programtext3;

varch1,ch2:char;begin