[Basic]還記得嗎~~~那個L(來)W(玩)
還記得這個程式嗎?
LWBasic來(L)玩(W)Basic 忘了嗎? 沒關係,連結在這https://drive.google.com/file/d/1NBQ...ew?usp=sharing 剛剛看了一下已經半年了,好快喔 然而這半年來,小王子可是一直再努力著改良程式 終於經過了半年的醞釀,終於讓小王子想到一個非常非長酷的名稱:on_90: 就是幫這個程式命一個相當響亮的名字啦:on_83: 注意了,這個程式的名稱正式改為GOBasic如何酷吧 GOBasic就是Game Of Basic的意思 新的連結在這 https://drive.google.com/file/d/1F17...ew?usp=sharing 不過程式內容確實有做了一些修改,包含加入陣列的功能(DIM),不過還只是一層陣列 還有Smart函式也有修改 CHOOSE這個自創指令小王子取消了,因為不喜歡外加視窗 裡面有很多小王子從未想過的技巧,卻意外的設計出來,分享給大家:on_58: |
想不到真的可以...:on_14:
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 |
看到這讓我想起求學時學程式語言"迴圈"
|
看到王子的那些經典排列例子
加上自己的經驗~ 忽然了解到 原來很多的基礎教學都是事出有因的... 以前在學還以為只是為了激發你 用最精簡的"邏輯" "實現"之 但實際接觸到一些應用時才知 原來這與圖像運算有關 可能很多人就算用上了 也不知原來以前的教學訓練就告訴你 這要解釋的通俗點有點難 所以這裡拿以前國中的 sin cos tan三角函數來解釋 很多人學了三角函數覺得一生都不會用到,不知這在學甚麼? mini是直到設計一個球碰撞(樂透球模擬器) 才知原來要定位與碰撞角會用到 XY座標與 三角函數 是相輔相成的 (如果用兩個二維面 就能運算 3D座標) 那前面的 * ** *** 則是與 記憶體陣列或精簡掃描 存取有關 雖然關聯沒有"XY座標與 三角函數"這麼緊密 但也都是【有果才有因】的出題典故 (先有陣列才想出*狀塔教學) 三角函數、拍π 與 微積分 都是 "有果才有因" 反算出來的 需求物 數學式子幾乎都是人類 反算出來的東西 先有結果再訂出如何有個固定的 因 得到 果 不過講這麼多 這都屬於感性層面,實際碰到時就不是這麼讓人著迷 (會燒腦) 如果會讓人著迷或許你就擁有天才的腦迴路了吧~ (天才會對這感興趣,也難怪人際情感會比較弱,老天是公平的) |
所有時間均為台北時間。現在的時間是 07:52 PM。 |
Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2024, Jelsoft Enterprises Ltd.
『服務條款』
* 有問題不知道該怎麼解決嗎?請聯絡本站的系統管理員 *