card1.R

#       Nabi Assignment -03

Globalcount <- function(parameterpass){
  count<-0
  repeat{
    count<-count+1
    if (count >parameterpass){
      print("count completed")
    break}
    print(paste("count No:-" ,count))}
  
}
Globalcount(5)

## [1] "count No:- 1"
## [1] "count No:- 2"
## [1] "count No:- 3"
## [1] "count No:- 4"
## [1] "count No:- 5"
## [1] "count completed"

callnum<-function(num){
  if(num<=0){
      if(num==0){
          print("You entered Zero")}
    else{
          print(paste("You entered negative No",num))}
                }# ifnum<=0
  else {
      print("You entered positive No",num)}
                      }#Function end

callnum(-1)

## [1] "You entered negative No -1"

callnum(0)

## [1] "You entered Zero"

callnum(1)

## [1] "You entered positive No"

whilecall <- function(A) {
  count<--0
  while(count<A){
    count<-count+1
    print(paste("Count No:",count))
  }#While Ends
}#Function Ends
whilecall(10)

## [1] "Count No: 1"
## [1] "Count No: 2"
## [1] "Count No: 3"
## [1] "Count No: 4"
## [1] "Count No: 5"
## [1] "Count No: 6"
## [1] "Count No: 7"
## [1] "Count No: 8"
## [1] "Count No: 9"
## [1] "Count No: 10"

Nwhileloop<-function(N){

L<-length(N)
L
suminit=0
i=1
while(i<=L){
  suminit=suminit+N[i]
  i=i+1
  }
print(suminit)}
r<-c(2,5,1,8,34,15,70,23,2)
r

## [1]  2  5  1  8 34 15 70 23  2

Nwhileloop(r) 

## [1] 160

Nforloop<-function(f){
  
  L<-length(f)
  L
  k=1
  suminit1<-0
  for(k in 1:L){
    suminit1=suminit1+f[k]
    k=k+1
            } 
  print(suminit1)}
j<-c(2,5,1,8,34,15,70,23,2)
j

## [1]  2  5  1  8 34 15 70 23  2

Nforloop(j)

## [1] 160

evencount<- function(m){
ecount <- 0
o<-length(m)
for(i in 1:o) 
{
  if (m[i] %% 2 == 0)
  {
    ecount=ecount+1
  }
  
  else
    next
  
} 

print(ecount)
}
x<-c(3,5,1,8,34,15,70,23,2)
x

## [1]  3  5  1  8 34 15 70 23  2

evencount(x)

## [1] 4

y=20           
factorial <- y
for(i in 1:(y-1))
{
  factorial = factorial * (y-i)
}
print(factorial)

## [1] 2.432902e+18

factorial(20)

## [1] 2.432902e+18

prime<- function(p){
    for(i in 2:(p%/%2))
      {  
        if((p%%i)==0)
          {
            print("The number is not prime")
             break
          }
        else
          {
            if(i==(p%/%2))
              {
                print("The number is prime")
                break
              }
        else
            next
          }
      }
  
}#end of Function

prime(14)

## [1] "The number is not prime"

prime(110)

## [1] "The number is not prime"

prime(99)

## [1] "The number is not prime"

prime(111)

## [1] "The number is not prime"

Factor<-function(F){

count=0
for(i in 2:(F%/%2))
{
  if((F%%i)==0)
  {
    print(i)
    count=count+1
    next
  }
  else
    next
}
}
Factor(34)

## [1] 2
## [1] 17

Factor(25)

## [1] 5

Factor(988)

## [1] 2
## [1] 4
## [1] 13
## [1] 19
## [1] 26
## [1] 38
## [1] 52
## [1] 76
## [1] 247
## [1] 494

Factor(786)

## [1] 2
## [1] 3
## [1] 6
## [1] 131
## [1] 262
## [1] 393