史萊姆論壇

返回   史萊姆論壇 > 綜合討論二區 > 生活話題、日常閒聊、喇勒唬爛灌水區
忘記密碼?
註冊帳號 論壇說明 標記討論區已讀

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』


發文 回覆
 
主題工具 顯示模式
舊 2018-10-03, 08:01 PM   #1
魔術王子
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 2404
精華: 0
現金: 12304 金幣
資產: 2675844 金幣
預設 灌水 - [Basic]還記得嗎~~~那個L(來)W(玩)

還記得這個程式嗎?
LWBasic來(L)玩(W)Basic
忘了嗎?
沒關係,連結在這https://drive.google.com/file/d/1NBQ...ew?usp=sharing

剛剛看了一下已經半年了,好快喔
然而這半年來,小王子可是一直再努力著改良程式
終於經過了半年的醞釀,終於讓小王子想到一個非常非長酷的名稱
就是幫這個程式命一個相當響亮的名字啦
注意了,這個程式的名稱正式改為GOBasic如何酷吧
GOBasic就是Game Of Basic的意思
新的連結在這
https://drive.google.com/file/d/1F17...ew?usp=sharing

不過程式內容確實有做了一些修改,包含加入陣列的功能(DIM),不過還只是一層陣列
還有Smart函式也有修改
CHOOSE這個自創指令小王子取消了,因為不喜歡外加視窗
裡面有很多小王子從未想過的技巧,卻意外的設計出來,分享給大家
__________________
魔術就是欣賞神奇的效果
如果魔術的秘密被破解了
那魔術就失去欣賞的價值
魔術王子 目前離線  
送花文章: 1285, 收花文章: 1390 篇, 收花: 3647 次
回覆時引用此帖
有 2 位會員向 魔術王子 送花:
mini (2018-10-05),Tamadbee (2018-12-20)
感謝您發表一篇好文章
舊 2018-10-04, 06:34 AM   #2 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 2404
精華: 0
現金: 12304 金幣
資產: 2675844 金幣
預設

想不到真的可以...

10 CLS
15 DIM N(3)
20 INPUT "輸入數字: ",N(1)
21 INPUT "輸入數字: ",N(2)
22 INPUT "輸入數字: ",N(3)
23 FOR K=1 TO 3
30 FOR I=1 TO N(K)
40 FOR J=1 TO I
50 PRINT "*";
60 NEXT J
70 PRINT
80 NEXT I
85 PRINT
90 NEXT K

輸入數字: 5
輸入數字: 10
輸入數字: 15
*
**
***
****
*****

*
**
***
****
*****
******
*******
********
*********
**********

*
**
***
****
*****
******
*******
********
*********
**********
***********
************
*************
**************
***************
魔術王子 目前離線  
送花文章: 1285, 收花文章: 1390 篇, 收花: 3647 次
回覆時引用此帖
舊 2018-10-04, 06:40 AM   #3 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 2404
精華: 0
現金: 12304 金幣
資產: 2675844 金幣
預設

SPACE函式可能沒考慮到DIM,今天來挑戰看看

10 CLS
15 DIM N(3)
16 FOR I=1 TO 3
20 INPUT "輸入數字: ",N(I)
21 NEXT I
22 FOR L=1 TO 3
30 A=1:B=10:C=2
40 FOR K=1 TO 2
50 FOR I=A TO B STEP C
60 PRINT SPACE(N(L));
70 FOR J=1 TO I
80 PRINT "*";
90 NEXT J
100 PRINT
110 IF K=1 N(L)=N(L)-1 ELSE N(L)=N(L)+1
120 NEXT I
130 A=9:B=1:N(L)=1:C=-2
140 NEXT K
150 NEXT L

輸入數字: 5
輸入數字: 10
輸入數字: 15
*
***
*****
*******
*********
***********
*********
*******
*****
***
*
*
***
*****
*******
*********
***********
*********
*******
*****
***
*
*
***
*****
*******
*********
***********
*********
*******
*****
***
*
魔術王子 目前離線  
送花文章: 1285, 收花文章: 1390 篇, 收花: 3647 次
回覆時引用此帖
舊 2018-10-04, 06:56 PM   #4 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時級別:39 | 在線時長:1693小時 | 升級還需:67小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 2404
精華: 0
現金: 12304 金幣
資產: 2675844 金幣
預設

https://drive.google.com/file/d/1F17...ew?usp=sharing
修改好了

10 CLS
20 INPUT "輸入菱形數量: ",C
30 DIM N(C)
40 FOR I=1 TO C
50 PRINT "輸入第";I;"個菱形"
60 INPUT "層數: ",N(I)
70 NEXT I
80 PRINT
90 FOR I=1 TO C
100 A=1:L=N(I)/2:L=L+1
110 FOR J=1 TO N(I)
120 IF J>N(I)/2 THEN PRINT SPACE(J-L); ELSE PRINT SPACE(L-J);
130 FOR K=1 TO A
140 PRINT "*";
150 NEXT K
160 PRINT
170 IF J>N(I)/2 THEN A=A-2 ELSE A=A+2
180 NEXT J
190 PRINT
200 NEXT I

語法:
輸入菱形數量: 3
輸入第1個菱形
層數: 11
輸入第2個菱形
層數: 13
輸入第3個菱形
層數: 15

     *
    ***
   *****
  *******
 *********
***********
 *********
  *******
   *****
    ***
     *

      *
     ***
    *****
   *******
  *********
 ***********
*************
 ***********
  *********
   *******
    *****
     ***
      *

       *
      ***
     *****
    *******
   *********
  ***********
 *************
***************
 *************
  ***********
   *********
    *******
     *****
      ***
       *
魔術王子 目前離線  
送花文章: 1285, 收花文章: 1390 篇, 收花: 3647 次
回覆時引用此帖
舊 2018-12-18, 04:37 PM   #5 (permalink)
長老會員
 
leowang 的頭像
榮譽勳章
UID - 2461
在線等級: 級別:111 | 在線時長:12770小時 | 升級還需:222小時級別:111 | 在線時長:12770小時 | 升級還需:222小時級別:111 | 在線時長:12770小時 | 升級還需:222小時級別:111 | 在線時長:12770小時 | 升級還需:222小時級別:111 | 在線時長:12770小時 | 升級還需:222小時級別:111 | 在線時長:12770小時 | 升級還需:222小時
註冊日期: 2002-12-06
文章: 4729
精華: 0
現金: 101679 金幣
資產: 559577858 金幣
預設

看到這讓我想起求學時學程式語言"迴圈"
__________________
http://hisn.chin.googlepages.com/love.gif

金錢的數量,決定馬子的漂亮
硬碟的容量,決定男人的力量

製作Mail Logo按這裡
leowang 目前離線  
送花文章: 256, 收花文章: 1159 篇, 收花: 4925 次
回覆時引用此帖
向 leowang 送花的會員:
魔術王子 (2018-12-18)
感謝您發表一篇好文章
舊 2018-12-19, 10:50 AM   #6 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:88 | 在線時長:8211小時 | 升級還需:66小時級別:88 | 在線時長:8211小時 | 升級還需:66小時級別:88 | 在線時長:8211小時 | 升級還需:66小時級別:88 | 在線時長:8211小時 | 升級還需:66小時級別:88 | 在線時長:8211小時 | 升級還需:66小時級別:88 | 在線時長:8211小時 | 升級還需:66小時級別:88 | 在線時長:8211小時 | 升級還需:66小時級別:88 | 在線時長:8211小時 | 升級還需:66小時
註冊日期: 2002-12-07
文章: 12279
精華: 0
現金: 23944 金幣
資產: 3021444 金幣
預設

看到王子的那些經典排列例子
加上自己的經驗~ 忽然了解到
原來很多的基礎教學都是事出有因的...
以前在學還以為只是為了激發你
用最精簡的"邏輯" "實現"之
但實際接觸到一些應用時才知
原來這與圖像運算有關
可能很多人就算用上了 也不知原來以前的教學訓練就告訴你

這要解釋的通俗點有點難
所以這裡拿以前國中的 sin cos tan三角函數來解釋
很多人學了三角函數覺得一生都不會用到,不知這在學甚麼?
mini是直到設計一個球碰撞(樂透球模擬器)
才知原來要定位與碰撞角會用到
XY座標與 三角函數 是相輔相成的 (如果用兩個二維面 就能運算 3D座標)
那前面的
*
**
***
則是與 記憶體陣列或精簡掃描 存取有關
雖然關聯沒有"XY座標與 三角函數"這麼緊密
但也都是【有果才有因】的出題典故 (先有陣列才想出*狀塔教學)

三角函數、拍π 與 微積分 都是 "有果才有因"
反算出來的 需求物
數學式子幾乎都是人類 反算出來的東西
先有結果再訂出如何有個固定的 因 得到 果

不過講這麼多
這都屬於感性層面,實際碰到時就不是這麼讓人著迷 (會燒腦)
如果會讓人著迷或許你就擁有天才的腦迴路了吧~
(天才會對這感興趣,也難怪人際情感會比較弱,老天是公平的)
mini 目前離線  
送花文章: 1814, 收花文章: 7639 篇, 收花: 26168 次
回覆時引用此帖
向 mini 送花的會員:
魔術王子 (2018-12-19)
感謝您發表一篇好文章
發文 回覆


主題工具
顯示模式

發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用

相似的主題
主題 主題作者 討論區 回覆 最後發表
Visual Basic 6.0中文版 031268 一般電腦疑難討論區 4 2003-09-06 04:28 PM
尋找下載Visual BASIC的中文軟體 zong 一般電腦疑難討論區 1 2003-04-30 05:38 AM
有誰知道哪個網站可以下載Visual Basic 6.0中文版 tina007 一般電腦疑難討論區 0 2003-03-18 10:45 PM
Visual Basic muchwhy 一般電腦疑難討論區 0 2003-03-18 10:45 PM


所有時間均為台北時間。現在的時間是 04:47 AM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2019, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1