6-5 프로그래밍 예제 - readline(), cat()

readline()

사용자에게 어떤 값을 입력 받을 때 사용 

 

 

n <- readline(prompt=” 숫자를 입력하세요: ”)

cat(“입력한 숫자는”, n, “입니다. \n”)

 

cat()

값을 출력 

 

1~100까지 수 중 정답 맞추기

num<-round(runif(1)*100, digits = 0)
guess<- -1
cat("Guess a number between 0 and 100.\n")

while(guess != num){
  guess<-readline(prompt="Guess number:")
  guess<-as.integer(guess)
  if(guess == num){
    cat("Congratulation,",num,"is right.\n")
  } else if (guess < num){
    cat("It's smaller!\n")
  } else if (guess > num){
    cat("It's bigger!\n")
  }
}