Decision making and loop control structures | R Programming Solved Assignment

Assignment 2: Decision making and loop control structures

1. Write a R program to accept an integer and check if it is even or odd.

Answer :

x = as.integer(readline(prompt = "Enter withdrow amount :")) if(x%%2==0){ print("Even") }else{ print("Odd") }

2. Write a R program, which accepts annual basic salary of an employee and calculates and displays the Income tax as per the following rules.
Basic: < 1,50,000
Tax = 0
Basic: 1,50,000 to 3,00,000
Tax = 20%
Basic: > 3,00,000 Tax = 30%

Answer :

salary = as.integer(readline(prompt = "Enter Empployee Basic Salary :")) if(salary <= 150000){ tax <- 0 print(paste("Tax = ",tax)) }else if(salary>150000 && salary<=300000){ tax <- (salary*0.2); print(paste("Tax = ",tax)) }else if(salary>300000){ tax <-(salary*0.3); print(paste("Tax = ",tax)) }

3. Write a R program to accept character from the user and check whether the character is a vowel or consonant.

Answer :

c = readline(prompt = "Enter an alphabet :") lc = (c == 'a' || c == 'e' || c == 'i' || c == 'o' || c == 'u'); uc = (c == 'A' || c == 'E' || c == 'I' || c == 'O' || c == 'U'); if (lc || uc){ print(paste("Vowel = ",c)) }else{ print(paste("consonant = ",c)) }

4. Write a R program accept any year as input and check whether the year is a leap year or not.

Answer :

num = as.integer(readline(prompt = "Enter Year :")) if(num%%4==0){ print(paste("Leap Year",num)) }else{ print(paste("Not Leap",num)) }

SET A:

1. Write a R program to display the first 10 Fibonacci numbers.

Answer :

FB <- numeric(10) FB[1]<-FB[2]<-1 for(i in 3 : 10)FB[i]<-FB[i-2]+FB[i-1] print(paste("First 10 Fibonacci Numbers Are",FB))

2. Write a program to calculate sum of digits of a given input number.

Answer :

n = as.integer(readline(prompt = "Enter number :")) sum<-0 while (n>0) { m <- n%%10 sum <- sum+m n <-n/10 } ans <- as.integer(sum) print(paste("Sum is : ",ans))

3. Write program to check whether a input number is Armstrong number or not.

Answer :

num = as.integer(readline(prompt = "Enter number :")) sum<-0 temp<-num while (num!=0) { rem <- num%%10 rem1<-as.integer(rem) sum <- sum+(rem1*rem1*rem1) num <- num/10; } print(temp) print(sum) if(temp==sum){ print(paste("Armstrong Number : ",temp)) }else{ print(paste("Not Armstrong Number : ",temp)) }

4. Write a program to check whether a input number is perfect number of not.

Answer :

num = as.integer(readline(prompt = "Enter number :")) sum<-0 i<-1 while (i<num) { if(num%%i==0){ sum<-sum+i } i<-i+1 } if(sum==num){ print(paste("perfect Number : ",num)) }else{ print(paste("Not perfect Number : ",num)) }

5. Write a R script to display multiplication table of a given input number.

Answer :

num = as.integer(readline(prompt = "Enter number :")) for(i in 1:10) { print(paste(num,'x', i, '=', num*i)) }

SET B:

1. Write a R program to get all prime numbers up to a given number.

Answer :

num = as.integer(readline(prompt="Enter a number: ")) flag = 0 if(num > 1) { flag = 1 for(i in 2:(num-1)) { if ((num %% i) == 0) { flag = 0 break } } } if(num == 2) flag = 1 if(flag == 1) { print(paste(num,"is a prime number")) } else { print(paste(num,"is not a prime number")) }

2. Accept the cost price and selling price from the keyboard. Find out if the seller has made a profit or loss and display how much profit or loss has been made.

Answer :

cost = as.integer(readline(prompt="enter cost of keyboard : ")) price = as.integer(readline(prompt="enter selling price of keyboard : ")) m <- cost - price if(m>0){ print(paste("Profit : ",m)) }else if(m<0){ m<-(-1)*m; print(paste("Loss : ",m)) }else{ print("NO profit NO loss") }

3. Accept the x and y coordinate of a point and find the quadrant in which the point lies.

Answer :

x = as.integer(readline(prompt="Enter the values for X : ")) y = as.integer(readline(prompt="Enter the values for Y : ")) if(x>0&&y>0){ print(paste("point lies in the First quadrant",x,y)) }else if(x<0&&y>0){ print(paste("point lies in the Second quadrant",x,y)) }else if(x<0&&y<0){ print(paste("point lies in the Third quadrant",x,y)) }else if (x>0&&y<0){ print(paste("point lies in the Fourth quadrant",x,y)) }else if (x==0&&y==0){ print(paste("point lies at the origin",x,y)) }

4. Write a program to check whether a input number is palindrome or not.

Answer :

n = as.integer(readline(prompt="Enter num : ")) temp<-n rev=0 while(n!=0){ print(n) dig<-n%%10 rev=(rev*10)+dig n<-n/10 n<-as.integer(n) } if(temp==rev){ print("The number is a palindrome!") }else{ print("The number not a palindrome!") }

5. Write a program to accept a number and count number of even, odd, zero digits within that number.

Answer :

numbers = c(1,2,3,0) count_odd = 0 count_even = 0 zero_num = 0 for (x in numbers){ if (x%%2){ count_even=count_even+1 }else if(x==0){ zero_num=zero_num+1 }else{ count_odd=count_odd+1 } } print(paste("Number of even numbers :",count_even)) print(paste("Number of odd numbers :",count_odd)) print(paste("Number of zeros :",zero_num))

SET C:

1. Use a while loop to simulate one stock price path starting at 100 and random normally distributed percentage jumps with mean 0 and standard deviation of 0.01 each period. How long does it take to reach above 150 or below 50?

Answer :

 

2. Implement a multiplication game. A while loop that gives the user two random numbers from 2 to 12 and asks the user to multiply them without using * operator.

Answer :