来讲讲肥宅当年写程式的开头好了，其实肥宅当年小学看过 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://webptt.com/cn.aspx?n=bbs/Programming/M.1559583562.A.7BE.html ※ 编辑: CGS0 (1.162.49.58 台湾), 06/04/2019 02:07:15 ※ 编辑: CGS0 (39.12.133.44 台湾), 06/21/2019 14:06:00