5、输入多个数据.pptVIP

* 第五讲 输入多个数据 根据问题需要，有时可以输入多个数据，然后以变量形式进行运算。 第五讲 输入多个数据 一、输入多个整数 l、从键盘输入一个同学的语、数两门课成绩，计算总分。 程序l program ex5_1_1; var a,b:integer; begin write(Yuwen: );readln(a); write(Shuxue: );readln(b); writeln(Zongfen: ,a+b); readln end. 第五讲 输入多个数据 一、输入多个整数 l、从键盘输入一个同学的语、数两门课成绩，计算总分。 程序l program ex5_1_2; var a,b:integer; begin write(Yuwen he Shuxue: );readln(a,b); writeln(Zongfen: ,a+b); readln end. 说明：输入语句允许对多个变量输入数据，以逗号分隔。运行后，输入数据问以空格分隔。 第五讲 输入多个数据 2、输入长方形的长与宽，输出周长与面积。 program ex5_2; var x,y:integer; begin write(x,y=);readln(x,y); writeln(ZC=,(x+y)*2); writeln(MJ=,x*y); readln end. 第五讲 输入多个数据 3、计算三门课平均成绩。 program ex5_3; var a1,a2,a3:integer; pj:real; begin write(Yuwen: );readln(a1); write(Shuxue: );readln(a2); write(Waiyu:);readln(a3); writeln(pj=,(a1+a2+a3) div 3); readln end. 说明：div是整除运算符，表示两数相除结果是商。 第五讲 输入多个数据 4、 以厘米为单位，计算小组中6个同学的平均高度。 程序1 program ex5_4_1; var a1,a2,a3,a4,a5,a6:integer; begin write(Qing shuru 6 ge shenggao:); readln(a1,a2,a3,a4,a5,a6); writeln((a1+a2+a3+a4+a5+a6) div 6); readln end. 第五讲 输入多个数据 程序2 将程序1改用read。 program ex5_4_2; var a1,a2,a3,a4,a5,a6:integer; begin writeln(Qing shuru 6 ge shenggao:); read(a1); read(a2); read(a3); read(a4); read(a5); readln(a6); writeln((a1+a2+a3+a4+a5+a6) div 6); readln end. 说明：表示各变量数据逐个输入时，不用换行，中间用空格分隔。 思考：若将read改为readln，结果怎样? 第五讲 输入多个数据 二、输入多个不同类型的数据 5、输入美元符号及数值。 program ex5_5; var c:char; a:integer; begin write(qing shuru a char:); readln(c); write(qing shuru a shuzi: ); readln(a); writeln(c:4,a:4); readln end. 说明：可以输入不同种类的数据。 思考：在同一条输入语句中，先输入整数，后输入字符，或相反，其间是否要用空格分隔? *