R While 循环

R While 循环 首页 / R入门教程 / R While 循环

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

while循环中,首先将检查条件,然后在语句主体执行之后。在此语句中,将检查条件n + 1次,而不是n次。

While语法

while (test_expression) {
   statement
}

While流程图

R While Loop

示例1:

v <- c("LEARNFK.COM","TOOLFK.COM","CHROMEFK.COm")
cnt <- 2
while (cnt < 7) {
   print(v)
   cnt = cnt + 1
}

输出

R While Loop

示例2:程序以查找数字的总和。

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

输出

R While Loop

示例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")
}

输出

R While Loop

示例4:检查数字是否为Armstrong的程序。

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"))
}

输出

R While Loop

示例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))

输出

R While Loop

祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)

技术教程推荐

浏览器工作原理与实践 -〔李兵〕

编译原理之美 -〔宫文学〕

全栈工程师修炼指南 -〔熊燚(四火)〕

视觉笔记入门课 -〔高伟〕

TensorFlow 2项目进阶实战 -〔彭靖田〕

张汉东的Rust实战课 -〔张汉东〕

深度学习推荐系统实战 -〔王喆〕

自动化测试高手课 -〔柳胜〕

林外 · 专利写作第一课 -〔林外〕

好记忆不如烂笔头。留下您的足迹吧 :)