聊天 - 還記得這個BASIC程式嗎?

[魔術王子]

這應該是計算機概論常出的題目吧

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

當然啦,程式碼絕對不會這麼簡單

10 PRINT "     *"
20 PRINT "    ***"
30 PRINT "   *****"
40 PRINT "  *******"
50 PRINT " *********"
60 PRINT "***********"
70 PRINT ""

而是這樣

10 CLS
20 N=5
30 FOR I=1 TO 10 STEP 2
40 PRINT SPACE(N);
50 FOR J=1 TO I
60 PRINT "*";
70 NEXT J
80 PRINT
90 N=N-1
100 NEXT I

不相信的話,可以在下面的連結下載玩玩看
https://drive.google.com/file/d/1NBQ...ew?usp=sharing
印象中只記得這兩個程式

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

10 CLS
20 INPUT "輸入數字: ",N
30 FOR I=1 TO N
40 FOR J=1 TO I
50 PRINT "*";
60 NEXT J
70 PRINT
80 NEXT I

不曉得還能不能執行其他的程式

[ppp0600]

10 PRINT " *"
20 PRINT " ***"
30 PRINT " *****"
40 PRINT " *******"
50 PRINT " *********"
60 PRINT "***********"
70 PRINT ""

就是這個了

[getter]

以前學校教程式 ... 都說，趕快照著課本打 ... 第幾頁 ... 根本就沒有解釋
還說打完執行有結果 ... 就 OK 加分

打字速度慢的就吃大悶虧、吃大悶棍 ... 別人打完了都不知道第幾隻 ...
迪西連一隻都沒打完 ...

迪西的結論 ... 學程式設計前，要先學會英打

[mini]

日前google貼了個
兒童程式語言周年 的遊戲連結
玩了一下
其實還真不簡單 (邏輯比兒童不如~! )

程式語言
到了應用效能模式就會變得搞怪
為了達到目的不擇手段

PHP 語法:

j=-1
for i=1 to 高
  print space(高-i) + Format(j+2, "*")
  j=j+2
next 


所以如有機會去看那些高手應用
就不要抱著每行都要看懂的思維
寫得好的會在效能與維護間包裝得宜
寫的怪的
則是有看沒有懂
甚至自己過段時間去看(沒有註解)都會看不懂

[魔術王子]

作者: mini

日前google貼了個
兒童程式語言周年 的遊戲連結
玩了一下
其實還真不簡單 (邏輯比兒童不如~! )

程式語言
到了應用效能模式就會變得搞怪
為了達到目的不擇手段

PHP 語法:

j=-1
for i=1 to 高
  print space(高-i) + Format(j+2, "*")
  j=j+2
next 


所以如有機會去看那些高手應用
就不要抱著每行都要看懂的思維
寫得好的會在效能與維護間包裝得宜
寫的怪的
則是有看沒有懂
甚至自己過段時間去看(沒有註解)都會看不懂

這邏輯真的很棒耶
等一下再來試試看

另外今天一直在思索另一個程式

PHP 語法:

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

10 CLS
20 N=5
30 FOR I=1 TO 10 STEP 2
40 PRINT SPACE(N);
50 FOR J=1 TO I
60 PRINT "*";
70 NEXT J
80 PRINT
90 N=N-1
100 NEXT I
110 N=1
120 FOR I=9 TO 1 STEP -2
130 PRINT SPACE(N);
150 FOR J=1 TO I
160 PRINT "*";
170 NEXT J
180 PRINT
190 N=N+1
200 NEXT I 


寫完之後,覺得有點遜,因為迴圈分開兩次運算
這可以用三重回圈來設計,所以又想到下面的程式碼

PHP 語法:

10 CLS
20 A=1:B=10:C=2:N=5
25 FOR K=1 TO 2
30 FOR I=A TO B STEP C
40 PRINT SPACE(N);
50 FOR J=1 TO I
60 PRINT "*";
70 NEXT J
80 PRINT
90 IF K=1 N=N-1 ELSE N=N+1
100 NEXT I
110 A=9:B=1:N=1:C=-2
120 NEXT K 


其實是可以透過運算來改變數值,但這個程式在運算很差(我的數學很爛)
不但沒有先乘除後加減的概念,而且只能單次運算,也就是只能1+1,而不能1+2+6+5...

[魔術王子]

PHP 語法:

         *
        "*"*
       "*"*"*
      "*"*"*"*
     "*"*"*"*"*
    "*"*"*"*"*"*
   "*"*"*"*"*"*"*
  "*"*"*"*"*"*"*"*
 "*"*"*"*"*"*"*"*"*
"*"*"*"*"*"*"*"*"*"*

10 CLS
15 S="*"
20 FOR I=1 TO 10
30 PRINT SPACE(10-I);
40 FOR J=1 TO I
50 PRINT S;
60 NEXT J
70 S=S+"**"
75 PRINT
80 NEXT I 


發現一個有趣的bug
70行的狀況完全沒有考慮到

[mini]

作者: 魔術王子

PHP 語法:

         *
        "*"*
       "*"*"*
      "*"*"*"*
     "*"*"*"*"*
    "*"*"*"*"*"*
   "*"*"*"*"*"*"*
  "*"*"*"*"*"*"*"*
 "*"*"*"*"*"*"*"*"*
"*"*"*"*"*"*"*"*"*"*

10 CLS
15 S="*"
20 FOR I=1 TO 10
30 PRINT SPACE(10-I);
40 FOR J=1 TO I
50 PRINT S;
60 NEXT J
70 S=S+"**"
75 PRINT
80 NEXT I 


發現一個有趣的bug
70行的狀況完全沒有考慮到

說到這
那個行號是怎麼回事
10 跳到 15 又變成 20 ...?

[魔術王子]

作者: mini

說到這
那個行號是怎麼回事
10 跳到 15 又變成 20 ...?

BASIC程式寫法
習慣上我們會以10為單位,如果發覺中間有落掉程式碼,就可以有9次機會加入程式碼
如果9次都用光了,那可以使用RENUM指令讓行號重新排列,行號會從10,20,30開始編列,然後又有9次機會了

來談一下這個"玩具"吧
雖然是寫好玩,而且運算很差,可是若是連負值都無法運算,也太扯了
所以今天又修正蠻多問題的
https://drive.google.com/file/d/1NBQ...ew?usp=sharing

PHP 語法:

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

10 CLS
20 K=-1
30 FOR I=1 TO 10
40 PRINT SPACE(10-I);
50 FOR J=1 TO K+2
60 PRINT "*";
70 NEXT J
80 K=K+2
90 PRINT
100 NEXT I

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

10 CLS
20 S="*"
30 FOR I=1 TO 10
40 PRINT SPACE(10-I);
50 PRINT S;
60 PRINT
70 S=S+"**"
80 NEXT I 


沒有加入FORMAT指令,用迴圈替代

[getter]

想當年學校教程式設計怎麼教？ 迪西的狀況是
都嘛說「同學翻到第x頁，題號多少的程式碼，限時5分鐘打完。」

與其說學程式設計，不如說是趕鴨子上架的英打練習，結果就是，有學過英打的都是高分。
迪西都是 0~5 分。因為光打字輸入就輸了。

事後給迪西的印象就是 ... 要學好電腦、程式設計、文書處理、...... 。

最優先事項，先練好中英文打字吧。

[魔術王子]

作者: getter

想當年學校教程式設計怎麼教？ 迪西的狀況是
都嘛說「同學翻到第x頁，題號多少的程式碼，限時5分鐘打完。」

與其說學程式設計，不如說是趕鴨子上架的英打練習，結果就是，有學過英打的都是高分。
迪西都是 0~5 分。因為光打字輸入就輸了。

事後給迪西的印象就是 ... 要學好電腦、程式設計、文書處理、...... 。

最優先事項，先練好中英文打字吧。

我們是不一樣
那時代的電腦算是蠻新鮮的
所以二年級才有計算機概論,不過那時的我們實在太迷電腦了
所以放學就留在學校的電腦室,直到電腦室關門
所以我們幾乎一年級就打好基礎(跟學長學的)
然後我們科系三年級還有電腦輔助繪圖
話說標準打字好像是五指神功,兩手五根手指一起運作
不過我那時習慣三指,左手中指,右手食指跟中指頂多加個大拇指按空白鍵

記得那時的文書處理是彗星一號跟PE2
PE2有巨集(PE2.PRO)可以定義鍵盤功能也成為另類的程式設計

[getter]

作者: 魔術王子

我們是不一樣
那時代的電腦算是蠻新鮮的
所以二年級才有計算機概論,不過那時的我們實在太迷電腦了
所以放學就留在學校的電腦室,直到電腦室關門
所以我們幾乎一年級就打好基礎(跟學長學的)
然後我們科系三年級還有電腦輔助繪圖
話說標準打字好像是五指神功,兩手五根手指一起運作
不過我那時習慣三指,左手中指,右手食指跟中指頂多加個大拇指按空白鍵

記得那時的文書處理是彗星一號跟PE2
PE2有巨集(PE2.PRO)可以定義鍵盤功能也成為另類的程式設計

魔術王子的年代，代該跟迪西差不會代多 ... 當年也是 PE2/3、了不起就是 HE5、ET3

只能說，遇到了不會教、不想教的老師 ... 說好的上機，竟然變成打字 ... 當時一些
相關科系的老師說 ... 反正真正的程式大家未必學的會、寫的出來，不如多練練打字

[魔術王子]

作者: getter

魔術王子的年代，代該跟迪西差不會代多 ... 當年也是 PE2/3、了不起就是 HE5、ET3

只能說，遇到了不會教、不想教的老師 ... 說好的上機，竟然變成打字 ... 當時一些
相關科系的老師說 ... 反正真正的程式大家未必學的會、寫的出來，不如多練練打字

我學東西是很奇妙的
記得要學的時候,一個同學在螢幕上打dir然後跟我說這是列出檔案,可是當時我竟然不曉得他講這句話的意思,後來又有一個同學借我一本電腦基礎書,可是我看了內容,卻沒任何印象
奇怪的事來了,過了一個禮拜,我就忽然明白所有指令意義,然後將所有指令都看了一遍,就這樣學會了電腦
還有記得那時有一個非常好用的工具軟體PCTOOLS,那是一位學長教的,可是當天他在教時,我也是似懂非懂,後來他借我一本書,回去看了一遍,隔天,PCTOOLS我就靈活上手了
但是教,我就完全不會

[魔術王子]

https://drive.google.com/file/d/1NBQ...ew?usp=sharing
這段時間仍舊在思索克服一些問題,所以又重新設計,因此自然而然遇上一些bug
這次分享的只是修正這些bug,並無其他的改變
包含在Code輸入程式碼,若直接換行,會造成程式跳出(修正後可在中間加入程式碼,會自動編號)
保留字顏色分類改用String類別設計
就這樣而已