新飞扬信息学讲义2011-0917.docVIP

目录 奖学金 1 奖学金 一、题意分析 1、任务：在n个人中求前五名（成绩）； 规则：总分（大→小）； 若总分相同按语文（大→小）； 若总分语文相同按学号（小→大） 2、输入 1）文件名 scholar.in 2）内容格式：第1行 n 表示人数 第2—n+1行 每行 x,y,z分别表示语文、数学、英语成绩 注意：第i行的成绩就是学号为i这个同学的成绩 例如： 6 60 80 90 表示学号为1号同学的三个成绩 50 80 90 表示学号为2号同学的三个成绩 依此类推 50 80 90 90 80 90 90 80 90 60 80 90 3、输出 1） 文件名 scholar.out 2） 内容格式：5行 学号与总分 4、数据范围 6≤n≤300；成绩≤100 扩展： 1）输入n和m 即求1-n个同学中的前m名同学 2）输出内容：不仅输出学号和总分 3）排序规则：修改排序规则，如总分、语文相同再比数学 二、算法分析 对多关键字排序，由于n=300所以选择法排序即可实现。 总分不符合要求 或者 总分相同语文成绩不符合要求 或者 总分、语文成绩相同学号不符合要求 满足任何一个则需要交换位置。 因为只对总分、语文、学号排序且输出只要求学号和总分。 所以读入x y z三个成绩后，只要记录总分 语文 学号即可。 一个人只要记录总分 语文 学号定义记录类型 Type Rec = Record x, y, h: Integer; 分别表示总分、语文和学号 End; 有1—n个人所以定义一个数组存储，类型为记录类型 三、程序框架 0、描述 先定义同学的信息 Type Rec = Record x, y, h: Integer; End; 再定义数组存储所有同学信息 Var A: Array[1..300]Of Rec; t: Rec; 一个同学信息变量 交换时使用 1、读入数据整理每个同学的信息 ReadLn(n); For i:=1 To n Do Begin ReadLn(x, y, z); 读入三科成绩 A[i].x = x + y + z; 记录总分 A[i].y := x; 记录语文成绩 A[i].h := i; 记录学号 End; 2、利用选择法选出1-5名 For i:=1 To 5 Do 挑选出1-5名 For j:=i+1 To n Do 挑选第i名时与后面的i+1---n人比较 If (a[i].x a[j].x) Or 条件1 ((a[i].x = a[j].x) And (a[i].y a[j].y)) Or 条件2 ((a[i].x = a[j].x) And (a[i].y = a[j].y) And (a[i],h a[j].h)) Then Begin 条件3 t := a[i]; a[i] := a[j]; a[j] := t; 整体交换a[i] a[j] End; 3、输出前5名 For i:=1 To 5 Do WriteLn(a[i].h, ‘ ‘, a[i].x); 四、源程序 Program scholar; Type Rec = Record x, y, h: Integer; End; Const infile = scholar.in; outfile = scholar.out; Var t: Rec; a: Array[1..300]of Rec; x, y, z, i, j, n: Integer; Begin Assign(input, infile); Reset(input); ReadLn(n); For i:=1 To n Do Begin ReadLn(x, y, z); a[i].x := x + y + z; a[i].y := x; a[i].h := i; End; Close(input); For i:=1 To 5 Do For j:=i+1 To n Do If (a[i].x a[j].x)Or ((a[i].x = a[j].x)And(a[i].y a[j].y))Or ((a[i].x = a[j].x)And(a[i