R while 循环

17 Mar 2025 | 阅读 2 分钟

while 循环是一种控制流语句，用于多次迭代一个代码块。当布尔表达式的值为假时，while 循环终止。

在 while 循环中，首先检查条件，然后执行语句体。在这个语句中，条件将被检查 n+1 次，而不是 n 次。

while 循环的基本语法如下

while (test_expression) {
   statement
}

流程图

示例 1

v <- c("Hello", "while loop", "example")
cnt <- 2
while (cnt < 7) {  
   print(v)  
   cnt <- cnt + 1  # Correctly increment the counter
}

输出

示例 2： 查找数字的各位数字之和的程序。

n<-readline(prompt="please enter any integer value: ")
please enter any integer value: 12367906
n <- as.integer(n)
sum<-0
while(n!=0){
	sum=sum+(n%%10)
	n=as.integer(n/10)
}
cat("sum of the digits of the numbers is=",sum)

输出

示例 3： 检查数字是否为回文的程序。

n <- readline(prompt="Enter a four digit number please: ")
n <- as.integer(n)
num<-n
rev<-0
while(n!=0){
	rem<-n%%10
	rev<-rem+(rev*10)
	n<-as.integer(n/10)
}
print(rev)
if(rev==num){
	cat(num,"is a palindrome num")
}else{
	cat(num,"is not a palindrome number")
}

输出

示例 4： 检查数字是否为阿姆斯特朗数的程序。

num = as.integer(readline(prompt="Enter a number: "))
sum = 0
temp = num
while(temp > 0) {
	digit = temp %% 10
	sum = sum + (digit ^ 3)
	temp = floor(temp / 10)
}
if(num == sum) {
	print(paste(num, "is an Armstrong number"))
} else {
	print(paste(num, "is not an Armstrong number"))
}

输出

示例 5： 查找数字中某个数字的频率的程序。

num = as.integer(readline(prompt="Enter a number: "))
digit = as.integer(readline(prompt="Enter digit: "))
n=num
count = 0
while(num > 0) {
		if(num%%10==digit){
			count=count+1
		}
		num=as.integer(num/10)
}
print(paste("The frequency of",digit,"in",n,"is=",count))

输出