scores <- read.table("scores.txt",header=TRUE, row.names="num") #读取数据,并且默认读取的行名称就是已有的“num”中的数据，读取完成后，可以查看数据的前几行使用以下命令：
head(scores) #回车完成读取
summary(scores) #读取数据的概述
summary(scores$math) #可以获取所有的数学成绩，类似的，还可以获取语文、生物等成绩
child<- scores['573',] #预读取学号为“573”这位同学的全部信息
sum(child) #计算该学生的总成绩
aver <- tapply(chem,class,mean) #计算某班的某一科目的平均成绩
plot(aver,type='b',ylim=c(40,50),main="各班化学成绩平均分",xlab="班级",ylab="化学平均分") #其他成绩也是可以的，其中ylim是纵坐标的最大最小值区间。
subjects <- ('chn','math','eng','phy','chem','bio','politics','history','geo') #获取到所有科目的成绩；
sapply(scores[class==4,subjects],mean) #获取四班所有科目的平均成绩
aggregate (scores[subjects],by=list(class),mean) #按照科目对所有科目进行平均分的计算（每个班只有一组数据，所以结果和原始数据的大小是一样的）
hist(eng) #输出英语成绩的直方图
[1]https://www.cnblogs.com/speeding/p/4107768.html R语言学习笔记：分析学生的考试成绩
#!/usr/bin/python3
# -*- coding:utf-8 -*-
# @Time :2021/4/02 08:35
def getlevel(fraction):
if 90 <= fraction <= 100:
return "A"
elif 80 <= fraction <90:
return "B"
elif 70 <= fraction <80:
return "C"
elif 60 <= fraction <70:
return "D"
else:
return "E"
if __name__ == "__main__":
try:
myfraction = float(input("请输入你的分数："))
if myfraction <0 or myfraction >100:
flag = False
else:
flag = True
while flag:
print("你的成绩是：{}".format(getlevel(myfraction)))
myfraction = float(input("请输入你的分数："))
if myfraction <0 or myfraction >100:
flag = False
else:
flag = True
except ValueError:
print("输入的内容不对")
