R语言 编写循环语句

常用的循环语句主要有for循环、while循环和repeat循环。使用循环语句可以处理很多问题

for循环语句

使用格式如下：
for (name in expr1) {expr2}
其中，name是循环变量，在每次循环时从expr1中顺序取值，expr1是一个向量表达式（通常是个序列，如1：20）。expr2通常是一组表达式，当name的值包含在expr1中时，执行expr2的语句，否则循环将终止。

在循环过程中，若需要输出每次循环的结果，可使用cat函数或print函数。
cat函数：
cat(expr1,expr2,…)
expr1，expr2为需要输出的内容，可以为字符串或表达式。例如，若expr1为“name”，则输出字符串“name”，若expr1为变量name，则输出name的值。另外，符号“\n”表示换行，表示“\n”后的语句在下一行输出

示例：

n <- c(2, 5, 10)
for(i in n){
	x <- sqrt(i)
	print(x)
}
#  运行结果：
#  [1] 1.414214
#  [1] 2.236068
#  [1] 3.162278
for(i in n){
	x <- sqrt(i)
	cat("sqrt(",i,")=",x,"\n")
}
#  运行结果：
#  sqrt( 2 )= 1.414214 
#  sqrt( 5 )= 2.236068 
#  sqrt( 10 )= 3.162278 

while循环语句

while (cond) {expr}

• 其中：cond为判断条件
• expr为一个或一组表达式
• while循环重复执行语句expr，直到条件cond不为真为止

示例：

sum(1:10)
#  运行结果：
#  [1] 55
  i <- 1
sum <- 0
while (i <= 10) {
	sum = sum + i
	i = i + 1
}
sum
#  运行结果：
#  [1] 55

编程练习

使用while语句生成20个斐波那契数列。

参考代码：

a <- 1
b <- 0
i <- 1
while (i <= 20) {
	print(a)
	c <- a
	a <- a + b
	b <- c
	i <- i + 1
}
#  运行结果：
#  [1] 1
#  [1] 1
#  [1] 2
#  [1] 3
#  [1] 5
#  [1] 8
#  [1] 13
#  [1] 21
#  [1] 34
#  [1] 55
#  [1] 89
#  [1] 144
#  [1] 233
#  [1] 377
#  [1] 610
#  [1] 987
#  [1] 1597
#  [1] 2584
#  [1] 4181
#  [1] 6765

repeat-break循环语句

repeat expr
repeat {if(cond){break}}

repeat是无限循环语句，并且会在达到循环条件后，使用break语句直接跳出循环