R语言——R语言基础
1、用repeat、for、while计算从1-10的所有整数的平方和
2、编写一个函数，给出两个正整数，计算他们的最小公倍数
3、编写一个函数，让用户输入姓名、年龄，得出他明年的年龄。用paste打印出来。例如："Hi xiaoming you will be 35 next year"
4、编写一个递归函数，实现根据元素索引，得到Fibonacci序列（1,1,2,3,5,8,13…）的值，即f(n)=f(n-1)+f(n-2),n>=3。其中f(1)=1,f(2)=1。
并计算f(20)的值。
5、编写一个函数，将c(2,3,5,8,9,13,21,34)中能被3整除的元素，替换为0，并输出替换后的向量。
- 用repeat、for、while计算从1-10的所有整数的平方和
代码：
# 使用 repeat 循环计算total <- 0i <- 1repeat {total <- total + i^2i <- i + 1if (i > 10) {break}}print(paste("从1到10的所有整数的平方和为：", total))# 使用 for 循环计算total <- 0for (i in 1:10) {total <- total + i^2}print(paste("从1到10的所有整数的平方和为：", total))# 使用 while 循环计算total <- 0i <- 1while (i <= 10) {total <- total + i^2i <- i + 1}print(paste("从1到10的所有整数的平方和为：", total))截图：
- 编写一个函数，给出两个正整数，计算他们的最小公倍数
代码：
# 定义gcd函数
gcd <- function(a, b) { while (b != 0) { temp <- b b <- a %% b a <- temp } return(a)
} # 定义lcm函数
lcm <- function(x, y) { return((x * y) / gcd(x, y))
} # 读取用户输入
num1 <- as.integer(readline("请输入第一个正整数："))
num2 <- as.integer(readline("请输入第二个正整数：")) # 计算并打印LCM
result <- lcm(num1, num2)
print(paste("两个正整数的最小公倍数为：", result))截图：
3、编写一个函数，让用户输入姓名、年龄，得出他明年的年龄。用paste打印出来。例如："Hi xiaoming you will be 35 next year"
代码：
next_year_age <- function(name, age) {next_age <- age + 1print(paste("Hi", name, "you will be", next_age, "next year."))}name <- readline("请输入您的姓名：")age <- as.integer(readline("请输入您的年龄："))next_year_age(name, age)截图：
4、编写一个递归函数，实现根据元素索引，得到Fibonacci序列（1,1,2,3,5,8,13…）的值，即f(n)=f(n-1)+f(n-2),n>=3。其中f(1)=1,f(2)=1。
并计算f(20)的值。
代码：
fibonacci <- function(n) {if (n <= 1) {return(n)} else {return(fibonacci(n-1) + fibonacci(n-2))}}n <- 20print(paste("Fibonacci 序列第", n, "个元素的值为：", fibonacci(n)))截图：
- 编写一个函数，将c(2,3,5,8,9,13,21,34)中能被3整除的元素，替换为0，并输出替换后的向量。
代码：
replace_divisible_by_3 <- function(lst) {for (i in 1:length(lst)) {if (lst[i] %% 3 == 0) {lst[i] <- 0}}return(lst)}c <- c(2, 3, 5, 8, 9, 13, 21, 34)new_c <- replace_divisible_by_3(c)print(paste("替换后的向量为：", new_c))截图：
