4、输入数据.pptVIP

* 第四讲 输入数据 引入变量后，程序将会变得更通用。程序增加了数据的输入部分后，针对不同的输入数据，将会输出与输入数据对应的不同结果。 第四讲 输入数据 一、输入整数 1、计算正方形的周长和面积。 程序l 边长为10。 program li4_1_1; begin writeln(‘Zhouchang: ’,10*4); writeln(‘Mianji: ’,10*10); readln end. 第四讲 输入数据 一、输入整数 程序2 边长为任意长。 program li4_1_2; var a:integer; begin readln(a); writeln(‘Zhouchang: ’,a*4); writeln(‘Mianji: ’,a*a); readln end. 说明：(1)在使用变量a之前，必须先用var定义，integer表示a变量中的数是整数； (2)读语句readln(a)表示对变量a输入一个整数。输入整数过程要在程序运行中进行，当输入一个整数后，按回车表示确认。 第四讲 输入数据 2、如果长方形的长是100，宽是b，计算长方形的周长和面积。 program li4_2; var b:integer; begin readln(b); writeln(‘Zhouchang: ’,(100+b)*2); writeln(‘Mianji: ’,100*b); readln end. 第四讲 输入数据 说明：宽b应该小于100。 program li4_2_2; var b:integer; begin write(‘Qing Shuru Kuan(100): ’); readln(b); writeln(‘Zhouchang: ’,(100+b)*2); writeln(‘Mianji: ’,100*b); readln end. 说明：输入数据时用提示信息程序就显得与用户友好。 思考：write改用writeln有什么不同。 第四讲 输入数据 3、检验writeln输出语句的右对齐功能。 program li4_3; var x:integer; begin readln(x); writeln(‘123456789012345678901234567890’); writeln(x:x); readln end. 说明：当输入一个数后，这个数的个位将出现在这个数指示的位置上。 第四讲 输入数据 二、输入字符 4、计算机中的字符在计算机内部表示时，对应一个ASCII码，例如：A对应65。现在输入一个32~127范围的整数表示ASCII码，输出对应的字符。 program li4_4; var a:integer; begin write(‘Qing Shuru (32--127): ’);readln(a); writeln(a,’----’,chr(a)); readln end. 说明：chr(a)是一个函数，它表示一种对应关系，a是一个整数，表示ASCII码，chr(a)就是对应的字符。 第四讲 输入数据 5、与例4相反的，要求输入一个字符，然后输出与它对应的ASCII码(一个整数)。 program li4_5; var c:char; begin write(‘Qing Shuru zifu: ’);readln(c); writeln(c,’----’,ord(c)); readln end. 说明： (1)用char表示定义一个字符变量，定义后c变量中是一个字符。 (2)ord(c)是一个函数，其中c是一个字符，ord(c)结果是与c对应的ASCII码。 (3)输入字符时，不用按回车。 *