就是那个猜1~100中一个数字的游戏

本文来自: 人大经济论坛 S-Plus&R专版 版，详细出处参考： https://bbs.pinggu.org/forum.php? ... amp;from^^uid=3452377

x <- sample(1:100,1)
cat("请猜数字（1~100）","\n")  
repeat{
  y <-scan("",n=1)
if(y==x){
  cat("it's right!","end","\n")
}else if(y >x){  
    cat("it's bigger,","again pls","\n")
}else{
  cat("it's smaller,","again pls","\n")
}
if(x==y) break
}

这个符合你的要求不？

有 非常感谢!

我会以这个为例子去研究其他题目 再次感谢您!