String and Function in R Programming | R Programming Solved Assignment

Assignment 3: String and Function in R Programming

1. Write a R program to accept a string from user and display the length of the string.

Answer :

 

string <- readline(prompt = " Enter String ::") ans <- nchar(string) print(ans)

2. Write a R program to accept a string in lowercase and display it uppercase and vice versa

Answer :

string<-readline(prompt="Enter String : ") ans<-toupper(string) print(ans)

3. Write a program to check whether a input number is prime number or not using user defined function.

Answer : 

primenumber <- function(n) { div <- n/2 prime <- T for( i in 2:div) { if(n %% i == 0) prime <- FALSE } if(n==2) prime <- T if(prime){ print("Prime Number") } else{ print("Not a Prime Number") } } n = as.integer(readline(prompt = "Enter Number :")) primenumber(n)

SET A:

1. Write a program to calculate factorial of a input number using user defined function.

Answer : 

fact<-function(n){ fact<-1 for(i in 1:n){ fact <- fact*i a<-fact } print(a) } b = as.integer(readline(prompt = "Enter Number :")) fact(b)

2. Write R program to find the factors of a given number using user defined function

Answer : 

factors <- function(x) { for(i in 1:x) { if((x %% i) == 0) { print(i) } } } b = as.integer(readline(prompt = "Enter Number :")) factors(b)

3. Write a R Program to connect two different strings.

Answer:

str1 = 'Hello' str2 = 'World!' result = paste(str1,str2) print (result)

SET B:

1. Write a program to calculate xy using user defined function (Use default parameters)

Answer : 

add<-function(x,y){ c = x^y print(c) } x = as.integer(readline(prompt = "Enter Value of X :")) y= as.integer(readline(prompt = "Enter Value of Y :")) add(x,y)

2. Write R program to accept a string and character from user and replace all occurrences of that character from string with other character.

Answer : 

s = readline(prompt = "Enter the string :") c1 = readline(prompt = "Enter a character replace: :") c2 = readline(prompt = "Enter character to replace with: :") a<-chartr(c1,c2,c(s)) print(a)

3. Write a recursive function in R to calculate multiplication of all digits of a given input number.

Answer:

recursive.function <- function(x) { if (x == 0) return (1) else return ((as.integer(x%%10) + recursive.function(x/10))) } num = as.integer(readline(prompt = "Enter Number :")) a<-recursive.function(num) a<-a-1 print(a)

4. Write a function which accepts one number. Function should return 1 if the number is Perfect No, otherwise function should return 0.

Answer :

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

5. Write a function isPrime, which accepts an integer as parameter and returns 1 if the number is prime and 0 otherwise.

Answer :

isprime<-function(num){ 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) { return(1) } else { return(0) } } num1 = as.integer(readline(prompt="Enter a number: ")) print(isprime(num1))

SET C:

1. Write a R program to print the numbers from 1 to 100 and print "Fizz" for multiples of 3, print "Buzz" for multiples of 5, and print "FizzBuzz" for multiples of both.

Answer :

for (n in 1:100) { if (n %% 3 == 0 & n %% 5 == 0) {print("FizzBuzz")} else if (n %% 3 == 0) {print("Fizz")} else if (n %% 5 == 0) {print("Buzz")} else print(n) }

2. Write a program to calculate sum of following series up to n terms using user defined function Sum=X+X2 /2!+X3 /3!+……

Answer :

x<- as.integer(readline(prompt="Enter x number: ")) n<- as.integer(readline(prompt="Enter j number: ")) sum<-1 no_row <-1 for(i in 1:n) { no_row <- no_row*x/i no_row<-as.integer(no_row) sum <- sum + no_row } print(sum)