灌水 - [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這個自創指令小王子取消了,因為不喜歡外加視窗
裡面有很多小王子從未想過的技巧,卻意外的設計出來,分享給大家

[魔術王子]

想不到真的可以...

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
*
**
***
****
*****

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

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

[魔術王子]

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
*
***
*****
*******
*********
***********
*********
*******
*****
***
*
*
***
*****
*******
*********
***********
*********
*******
*****
***
*
*
***
*****
*******
*********
***********
*********
*******
*****
***
*

[魔術王子]

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

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

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

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

[leowang]

看到這讓我想起求學時學程式語言"迴圈"

[mini]

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

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

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

不過講這麼多
這都屬於感性層面，實際碰到時就不是這麼讓人著迷 (會燒腦)
如果會讓人著迷或許你就擁有天才的腦迴路了吧~
(天才會對這感興趣，也難怪人際情感會比較弱，老天是公平的)