title ‘成绩统计’; /*此程序用于成绩的简单统计*/
data test; /*建立一个临时数据集test*/
input nunmber math chinese english physics chemistry; /*列出输入的数据名*/
avg = (math+ chinese+english+physics+chemistry)/5; /*计算5门课的平均成绩*/
cards; /*数据开始输入*/
101 74 89 86 92 67
102 81 76 68 84 79
103 70 98 70 88 76
104 83 62 85 63 78
105 61 82 81 76 84
106 82 71 62 75 62
107 88 94 63 66 72
108 98 73 70 93 84
109 90 87 76 93 67
110 89 62 78 78 84
111 77 74 96 98 69
112 85 79 83 65 83
113 92 77 73 94 80
114 63 82 79 90 78
115 97 84 83 77 81
116 96 64 66 84 97
117 84 95 93 98 73
118 70 90 98 85 76
119 94 91 83 69 72
120 80 92 61 74 76
;
run;
proc print; /*打印输入的成绩数据集*/
run;
proc sort data=test; by descending avg; /*按均值对成绩进行降序排列*/
run;
proc print; /*打印出排序后的成绩*/
run;