[閒聊] 肥宅的第一支程式

看板Programming作者CGS0 (Mike Chen)時間5年前 (2019/06/04 01:39)推噓3(3推 0噓 8→)

留言11則, 6人參與討論串1/1

來講講肥宅當年寫程式的開頭好了，其實肥宅當年小學看過 Apple ][，國中時就讀當時台中市區的居仁國中，某次去當時的同班同學家看到 Apple ][，玩了一下遊戲，拿起旁邊的程式設計書，翻看了幾頁，就覺得寫程式蠻好玩的。回家後，肥宅因為當時成績好，跟肥宅的老爸要了一台電腦 PC/XT (Turbo 8 Mhz) ,CPU 8088 ,記憶體 640KB，肥宅一直記得當年的價錢 NT$22,000 ，當年小公務員老爸的薪水大概 NT$10,000，很謝謝老爸賞臉，當年我其實不知道物價，只會胡鬧。扣掉複製版的程式，肥宅印象中的第一支程式是支猜幾A幾B的程式。時隔三十年，當年的程式當然不會留下來，肥宅來仿作一下 10 RANDOMIZE 20 ANSA = INT(RND(1)*10) 30 ANSB = INT(RND(1)*10) 40 ANSC = INT(RND(1)*10) 50 IF (ANSA=ANSB) OR (ANSB=ANSC) OR (ANSC=ANSA) THEN GOTO 20 60 INPUT "Please Eeter A" ,A 70 INPUT "Please Enter B" ,B 80 INPUT "Please Enter C" ,C 90 IF (A=B) OR (B=C) OR (C=A) THEN GOTO 60 100 COUNTA=0 110 COUNTB=0 120 IF A = ANSA THEN COUNTA = 1 130 IF B = ANSB THEN COUNTA = COUNTA +1 140 IF C = ANSC THEN COUNTA = COUNTA +1 150 IF (A = ANSB) OR (A=ANSC) THEN COUNTB=1 160 IF (B = ANSA) OR (B=ANSC) THEN COUNTB=COUNTB + 1 170 IF (C = ANSA) OR (C=ANSC) THEN COUNTB=COUNTB + 1 180 IF (COUNTA = 3) THEN GOTO 220 190 PRINT COUNTA ; "A" ; COUNTB ; "B" 200 PRINT "Retry again." 210 GOTO 60 220 PRINT "You got correct number!!" 230 END 現在寫起來，當然比以前好看多了也考慮了更多事情，不過這就是肥宅當年的第一支程式，其實很簡單，很直接，就是想拿來當作玩遊戲而已，每個人學寫程式的理由不一樣，對於當年的肥宅來說，搞個小遊戲來玩是很簡單的。不知道看到這篇文章的諸多看倌們，自己第一支不是抄課本，抄同學的程式是甚麼呢？肥宅蠻想看看每個人當初玩票時，寫出來的第一支程式。 2019/06/06 修改一下文章 ,讓整篇更容易看懂 . 原文網址: https://www.facebook.com/CGSNOTES/posts/10157475765511340 -- 歡迎來到肥宅的多彩人生肥宅死老爸的親子世界 https://fb.me/cgschild 肥宅的胡言亂語 https://fb.me/cgsmisc 肥宅的職場人生 https://fb.me/cgsnotes 肥宅學禪 https://fb.me/cgszen -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.162.49.58 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Programming/M.1559583562.A.7BE.html ※ 編輯: CGS0 (1.162.49.58 臺灣), 06/04/2019 02:07:15