聊天 - 還記得這個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行的狀況完全沒有考慮到