|
|
|
|
  新手的程序~~请大家帮忙看一下~~~ - justto [ 2004-04-10 14:14 | 1,335 byte(s)]
Re: 新手的程序~~请大家帮忙看一下~~~ - ACp [ 2004-04-24 18:26 | 187 byte(s)]
Re: 新手的程序~~请大家帮忙看一下~~~ - alula [ 2004-04-24 17:35 | 26 byte(s)]
|
|
|
|
[Original]
[Print]
[Top]
|
#!/usr/bin/perl
print "TlHIS A GUESS NUMBER GAME.
";
print "Please press <Enter> to start...
";
<>;
print "Please input a number between 1 and 100:
";
$number=<STDIN>;
if(1<=$number<=20){
print "This number is too small.Try again...
";
$number=<STDIN>;
}elsif(21<=$number<=30){
print "This number is near the right one!Try again...
";
$number=<STDIN>;
}elsif(31<=$number<=35){
print "Trust yourselt!You will get it soon!Continue...
";
$number=<STDIN>;
}elsif(37<=$number<=50){
print "This number is near the right one!But it is bigger.Continue...
";
$number=<STDIN>;
}elsif(51<=$number<=100){
print "What a pity!This number is too big!Try again...
";
$number=<STDIN>
}else{
print "Congratulations!You are so clever!You get it!";
}
<>;
请指教，我不知道这个程序错在什么地方？
谢谢~~
|
|
|
[Original]
[Print]
[Top]
|
|
|
声明: 本页内容为中国Linux论坛的内容镜像，文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者，如果转载，请注明文章来源及相关版权信息。