while循环是一种控制流语句,用于多次迭代代码块。当布尔表达式的值为false时,while循环终止。
在while循环中,首先将检查条件,然后在语句主体执行之后。在此语句中,将检查条件n + 1次,而不是n次。
while (test_expression) { statement }
示例1:
v <- c("LEARNFK.COM","TOOLFK.COM","CHROMEFK.COm") cnt <- 2 while (cnt < 7) { print(v) cnt = cnt + 1 }
输出
示例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)
输出
示例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:检查数字是否为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")) }
输出
示例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))
输出
祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)