史萊姆論壇 - 出題練習-猜數字遊戲

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - 出題練習-猜數字遊戲 (http://forum.slime.com.tw/thread214382.html)

飛鳥	2007-08-21 04:39 PM

出題練習-猜數字遊戲

就像一般的節目有猜數字遊戲

就一個0~100的數字，藝人在猜這樣，猜錯要罰

輸出結果如下：

PHP 語法:


		
			
                        ++++猜數字遊戲++++

請輸入 0~100 之間的數字：50
請輸入 0 ~ 50 之間的數字：33
請輸入 0 ~ 33 之間的數字：20
請輸入 0 ~ 20 之間的數字：10
請輸入 0 ~ 10 之間的數字：5
請輸入 0 ~ 5 之間的數字：3

++++++答對了！++++++
按任何鍵結束

我是用perl寫啦！大家練習練習吧:on_79:

程式執行結果

程式碼一星期後公佈

wenneng

2007-08-24 03:10 PM

我先寫個C語言版原始碼

PHP 語法:


		
			
#include<stdio.h>

#include<stdlib.h>

#include<time.h>



void main(){

    int rndNum, gNum, rangeMax = 100, rangeMin = 0;



    srand(time(NULL));

    rndNum = rand() % 99 + 1;

    printf("++++猜數字遊戲++++\n\n");

    do{

        printf("請輸入 %d ~ %d 之間的數字：", rangeMin, rangeMax);

        scanf("%d", &gNum);

        if(gNum >= rangeMax || gNum <= rangeMin) printf("+++++超出範圍！+++++\n");

        else if(gNum > rndNum) rangeMax = gNum;

        else if(gNum < rndNum) rangeMin = gNum;

    }while(gNum != rndNum);

    printf("++++++答對了！++++++\n");

}

飛鳥	2007-08-28 03:38 PM

以下是perl語言寫法

PHP 語法:


		
			
#!perl 

print "\t\t\t++++猜數字遊戲++++\n\n";

my $no = int((rand time()/10000000)*0.8);
#print "$no\n";
    print "請輸入 0~100 之間的數字：";
my $up=100;
my $down=0;
while(1){
    $pp=<>;
    chomp $pp;
    if($no==$pp){
        print "\n++++++答對了！++++++\n按任何鍵結束";
        <>;
        last;
    }elsif ($no < $pp && $pp < $up){
        $up=$pp;
        print "請輸入 $down ~ $up 之間的數字：";
    }elsif ($no > $pp && $pp > $down){
        $down=$pp;
        print "請輸入 $down ~ $up 之間的數字：";
    }else{print "超出範圍!\n請輸入 $down ~ $up 之間的數字：";}
}

所有時間均為台北時間。現在的時間是 04:49 PM。

SEO by vBSEO 3.6.1