R while loop

A while loop is a type of control flow statements which is used to iterate a block of code several numbers of times. The while loop terminates when the value of the Boolean expression will be false.

In while loop, firstly the condition will be checked and then after the body of the statement will execute. In this statement, the condition will be checked n+1 time, rather than n times.

The basic syntax of while loop is as follows:

while (test_expression) {
   statement
}

Flowchart

Example 1:

v <- c("Hello","while loop","example")
cnt <- 2
while (cnt < 7) {
   print(v)
   cnt = cnt + 1
}}

Output

Example 2: Program to find the sum of the digits of the number.

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)

Output

Example 3: Program to check a number is palindrome or not.

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

Output

Example 4: Program to check a number is Armstrong or not.

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

Output

Example 5: program to find the frequency of a digit in the number.

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

Output