1.编写一个自定义函数,将百分制成绩换算为等级制成绩,换算标准为:A(大于等于90)、B(大于等于80)、C(大于等于70)、D(大于等于60)、E(大于等于60)。使用这个函数对一组学生成绩(98,56,81,46,75,66,92,82,78)进行换算。
scores <- c(98,56,81,46,75,66,92,82,78)
> grades <- vector(length = length(scores))
> for (i in 1:length(scores)) {
+ if (scores[i] >= 90) {
+ grades[i] <- "A"
+ } else if (scores[i] >= 80) {
+ grades[i] <- "B"
+ } else if (scores[i] >= 70) {
+ grades[i] <- "C"
+ } else if (scores[i] >= 60) {
+ grades[i] <- "D"
+ } else {
+ grades[i] <- "F"
+ }}
> for(i in 1:length(scores)){ cat("成绩:",scores[i],"等级:",grades[i],"\n")}
运行结果:
2.编写一个自定义函数,输出九九乘法表。
>for(i in 1:9){
+ for(j in 1:i){
+ cat(j,"X",i,"=",i*j," ")
+ }
+ cat("\n")
+ }
运行结果