第二讲 数组及其应用.ppt

1、输入班级中每个学生的数学、英语、物理成绩，求出每个人的总分、以及各科的平均分。 输入： 第一行：n（人数）；以下n行：每行3个数分别代表数学、英语、物理成绩。输出： 第一行：n个同学的总分。第二行：三科的平均分 输入： 5 77 88 99 89 78 97 90 80 70 68 95 78 97 87 79 输出： 264 264 240 241 263 84.2 85.6 84.6 var a:array[1..60,1..4] of integer; n,i,j:integer; begin readln(n); for i:=1 to n do for j:=1 to 3 do read(a[i,j]); for i:=1 to n do for j:=1 to 3 do a[i,4]:=a[i,4]+a[i,j]; for i:=1 to n do for j:=1 to 3 do a[n+1,j]:=a[n+1,j]+a[i,j]; for i:=1 to n do write(a[i,4], );writeln; for i:=1 to 3 do writeln(a[n+1,i]/n:0:1); end. 2、输出?杨辉三角 输出杨辉三角的前N行(N=10)。 样例： 输入：4 输出： 1 1　1 1　2　1 1　3　3　1 1　4　6　4　1 var a:array[1..100,1..100] of int64; n,i,j :integer; begin readln(n); fillchar(a,sizeof(a),0); {数组初始为0} for i:=1 to n do for j:=1 to i do a[i,j]:=1; {下三角形改为1} for i:=3 to n do for j:=2 to i-1 do a[i,j]:=a[i-1,j-1]+a[i-1,j]; {自上而下递推求值} for i:=1 to n do {输出三角形} begin for j:=1 to i do write(a[i,j], ); writeln; end; end. 字符与字符串 　　字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串。 Var a:char; a:=‘b’; a:=‘B’; a:=‘2’; 一、字符型 知识点： 1、字符的ASCII码（序号）：一一对应关系 56 8 57 55 54 53 52 51 50 49 48 ASCII 9 7 6 5 4 3 2 1 0 字符 90 67 66 65 ASCII Z … … C B A 字符 122 99 98 97 ASCII z … … c b a 字符 ２、函数：ord(x) chr(x) １）、ord(x):返回字符x的ASCII码。 　　　i:=ord(‘A’); j:=ord(‘B’)；n:=ord(‘1’); write(I,j,n); 65 66 49 ２）、 chr(x)：返回ASCII码为x的字符。 var a:char; a:=chr(98); writeln(a);　　　 write(chr(97)); 3、字符大小的比较(相应字符ASCII码大小的比较)： 　ASCII码大的字符大。 　‘b’’a’ ‘5’’1’ ‘a’’A’ 4、数字字符转换为相应的数字的方法。 var x:char; a:integer; x:=‘3’; a:=ord(x)-48; 练习题目： 从键盘上输入一串字符（可能含数字、小写字母），以#作为输入结束标志。 编程完成： 统计输入字符中每个小写字母出现的次数（没有出现的不输出）。 样例： 输入： 2bcdaab33wycc# 输出： a 2 b 2 c 3 d 1 w 1 y 1 算法一: var ch:char; n,i:integer; a:array[1..26] of integer; {统计字母