程序的流程控制和autolis(編輯修改稿)
2025-06-17 09:43 本頁面
【文章內(nèi)容簡介】 剩余的 33個錢最多買 66小雞 ， 雞的總數(shù)為99（ 小于 100） ， 所以 公雞的數(shù)量應(yīng)小于 32。 小雞的數(shù)量只能是100減去母雞與公雞之和 。 當公雞的數(shù)量和錢數(shù)都等于 100時 ， 打印這組解 。 【 例 31】 解百錢買百雞程序 (defun chicken( / hen cock chick cost) (setq hen 1) (while ( hen 20)；母雞的數(shù)量不超過 20 (setq cock 1) (while ( cock 32)；公雞的可能數(shù)量不超過 32 (setq chick ( 100 hen cock))；小雞的數(shù)量 (setq cost (+ (* 3 hen)(* 2 cock)(* chick)))； 3種雞的錢數(shù) (if (= cost 100) (print (list 母雞 = hen 公雞 = cock 小雞 = chick)) ) (setq cock (1+ cock))；公雞的數(shù)量加 1 ) (setq hen (1+ hen)) ；母雞的數(shù)量加 1 ) (princ)；靜默退出 ) 說明： ① 程序的第 3行 (setq hen 1)不可缺少 ， 否則第 4行 (while ( hen 20)中的 hen將是無定義的 。 ② 第 5行 (setq cock 1)若改寫在第 3行 (setq hen 1 cock 1)， 雖然沒有語法錯誤 ， 但內(nèi)層循環(huán) cock的值第一次從 1增加到 32后 ， 就固定為 32， 出現(xiàn)了算法錯誤 。 ③ 程序的第 12行 (setq cock (1+ cock))不能只寫成 (1+ cock)， 表達式 (1+ cock)返回 cock+1的值 ， 但 cock的值不變 ， 這是 1+ 函數(shù)與 C語言 ++ 運算的不同之處 。 ④ 第 10行 (print (list “母雞 =” hen “ 公雞 =” cock “ 小雞 =” chick))若寫成 (print “母雞 =” hen “ 公雞 =” cock “ 小雞 =” chick)是錯誤的 ，因為 print函數(shù)只需一個變元 。 ⑤ 程序結(jié)束前的 (princ)表達式不返回任何值 ， 因為它是該函數(shù)的最后一個表達式 ， 所以該函數(shù)將不返回任何值 ， 這樣就不會干擾print函數(shù)的正常打印信息 。 加載該程序之后 ， 在 “ Command:”提示下鍵入 (chicken)， 輸出以下結(jié)果： (母雞 = 2 公雞 = 30 小雞 = 68) (母雞 = 5 公雞 = 25 小雞 = 70) (母雞 = 8 公雞 = 20 小雞 = 72) (母雞 = 11 公雞 = 15 小雞 = 74) (母雞 = 14 公雞 = 10 小雞 = 76) (母雞 = 17 公雞 = 5 小雞 = 78) AutoLISP程序文件 AutoLISP文件的特點 AutoLISP文件的擴展名為 .lsp， 是由若干個 AutoLISP表達式構(gòu)成的 。 一個 LISP文件可定義多個函數(shù)或 AutoCAD命令 。 表達式相當于語句 。 一個表達式可以分寫在若干行上 ， 一行可以寫若干個表達式 。 連續(xù)的多個空格相當于一個空格 。 以下是一個表達式分寫在若干行上的實例：
法律信息相關(guān)推薦
鄂ICP備17016276號-1