R Notebook

algolizm

q <- 7
w <- 5
q+w
#식으로 표현 하기 
cat(z,"+",y,"=",z+y)
plus <- function(z,y){
  return (z+y);
  
}
plus(3,8)

plus <- function(z,y){
  return (cat(z,"+",y,"=",z+y)); #반영하기 
  
}
plus(3,8)
##minus
cat(z,"-",y,"=",z-y)
minus <- function(z,y){
  return (z-y);
}
minus(3,8)

minus <- function(z,y){
  return (cat(z,"-",y,"=",z-y)); #반영하기 
  
}
minus(3,8)

#multi



div.float <- function(z,y){
  return (cat(z,"/",y,"=",z/y));
}
div.float(9,8)  

div.integer<- function(z,y){
  return (cat(z,"%/%",y,"=",z%/%y));
}
div.integer(9,8) 
  
div.remainder<- function(x,y){
  return (cat(x,"%%",y,"=",x%%y));
}
div.remainder(9,8) 

#계산기
x <- 3
op <- "+"
y <- 2

if(op=="+") plus (x,y) else
  if(op=="-") minus (x,y) else
    if(op=="*") multi (x,y) else 
      if(op=="/") div.float (x,y) else
        if(op=="%/%") div.integer (x,y) else
          if(op=="%%") div.remainder (x,y) else
            print("error")
    
calc(5,"+",6)   

calc2 <- function(x,op,y){
  switch (
    op,
    "+"=plus (x,y),
    "-"=minus (x,y),
    "*"=multi (x,y),
    "/"=div.float (x,y),
    "%/%="div.integer (x,y),
    "%%"=div.remainder (x,y)
  )
}    
    
 calc2(5,"+",6)  
 
 
 #=========선생님 프로그램 ===================
 
 x <- 7
y <- 5
x + y
# 식으로 표현하기
cat(x,"+",y,"=",x+y)
plus <- function(x,y){
  return (cat(x,"+",y,"=",x+y));
}
plus(3,8)
minus <- function(x,y){
  return (cat(x,"-",y,"=",x-y));
}
minus(3,8)
multi <- function(x,y){
  return (cat(x,"*",y,"=",x*y));
}
multi(3,8)
div.float <- function(x,y){
  return (cat(x,"/",y,"=",x/y));
}
div.float(8,3)
div.integer  <- function(x,y){
  return (cat(x,"%/%",y,"=",x%/%y));
}
div.integer(8,3)
div.remainder <- function(x,y){
  return (cat(x,"%%",y,"=",x%%y));
}
div.remainder(8,3)
## 계산기 
x <-3
op <- "+"
y <- 2
if(op=="+") plus(x,y) else
  if(op=="-") minus(x,y) else
    if(op=="*") multi(x,y) else
      if(op=="/") div.float(x,y) else
        if(op=="%/%") div.integer(x,y) else  
          if(op=="%%") div.remainder(x,y) else
            print("error")