第一篇：pascal語法解釋
我是在高一接觸pascal語言，因為參加NOI的需要，順理成章的要使用Turbo Pascal來寫程序了。半年后，我開始想著如何編寫Windows程序，又理所當(dāng)然的找上Delphi。初見Delphi，除了begin，end讓我覺得倍感親切外，Object Pascal里的增加的面向?qū)ο蟮恼Z法卻讓我很是吃驚，當(dāng)時的我可根本不懂什么叫面向過程，面向?qū)ο?；最可惡的是，國?nèi)那些教育家們，除了會拿著清華的那本精簡的不能再精簡的pascal教材照本宣科外，似乎再也沒有什么實質(zhì)性的工作了，傳說中的《Turbo Pascal大全》更是無處可尋，所以關(guān)于unit，interface這些Delphi里隨處可見的關(guān)鍵字我也很不明白。所幸，其后不久，我得到一本名為《計算機反病毒技術(shù)》的書，里面統(tǒng)統(tǒng)都是用Turbo Pascal編寫的源代碼，通過它我迅速明白了早已存在于Turbo Pascal中unit，interface等關(guān)鍵字的含義和用法，又以Delphi中的Help文檔為扶手，開始蹣跚學(xué)步了。
印象中，國內(nèi)Delphi作家似乎更偏愛編寫應(yīng)用實例類的技術(shù)書籍，至于語法這種東西，沒有幾個人愿意多去涉及，即使書中必須談及，也是寥寥數(shù)筆，匆匆?guī)н^，或者干脆與某本書類似。對Object Pascal語法講解最好，最權(quán)威的恐怕就算《Delphi5開發(fā)人員指南》了，這本書至今也是備受推崇的。但與如今泛濫的C++書籍相比，Delphi仍然遜色許多，也難怪很多新手特別是從來沒有接觸過pascal語言的新手，在學(xué)習(xí)Object Pascal時會遇到不少困難。自己的感覺是：在從Turbo Pascal向Delphi過渡的過程中，由于沒有正確的指引，走了很多彎路；由于沒有正確的橋梁，必須要一步實現(xiàn)大跨越。所以，在這里，我提出自己曾經(jīng)遇見的溝壑，路標(biāo)性給出我自己的認(rèn)識和總結(jié)，希望給入門的同學(xué)們一些幫助。我不打算詳細(xì)介紹語法知識，并假設(shè)你已經(jīng)有一點pascal語言和面向?qū)ο蟾拍畹幕A(chǔ)。要想學(xué)習(xí)相關(guān)詳細(xì)知識，我推薦各位一定要閱讀《Delphi開發(fā)人員指南》和Delphi Help文檔中的相關(guān)章節(jié)。
● 記錄體和類
習(xí)慣了在一個Program模塊內(nèi)寫完所有面向過程代碼的我，有幾天的時間一直未能徹底明白在非Unit模塊中，非繼承的自定義類的框架，語法是如何的，VCL源代碼雖然經(jīng)典，卻過于繁雜，不能讓我迅速掌握根本，我需要一個最簡單又最能說明問題，完整的可運行的代碼，苦于無處尋求答案，只好親自動手，探索對應(yīng)關(guān)系，終成其下兩段代碼。
program TP;{本代碼在Turbo Pascal 7.0下編譯通過} type MyRecord = record {...} end;var MR: MyRecord;procedure Procedure1;begin {Procedure1 Code} end;
{=========== main ===========} begin {以這個begin為標(biāo)志，主程序開始，其作用相當(dāng)于C/C++中的main函數(shù)} Procedure1;end.是一段及其簡單的包含記錄類型聲明和過程聲明的代碼，二者基本規(guī)則如下：用戶自定義的數(shù)據(jù)類型，需要放在以保留字“type”開頭的代碼段中；過程(procedure)和函數(shù)(function)要放在以保留字“var”開頭的代碼段中；最后一個夾在begin和end間的代碼段是主程序的開始，也就是整個程序的入口，作用相當(dāng)于C/C++里的main函數(shù),請注意，只有在以program保留字開頭的代碼模塊中，這個begin和end才具有程序入口的作用。
另外，在Turbo Pascal中已經(jīng)支持原始的面向?qū)ο?，它的聲明關(guān)鍵字是Object，與現(xiàn)在我們常見的Class不同。語法如下：
object Field;Field;...Method;
Method;end;
Method允許以下幾種形式：
procedure MethodName(:type);
或者function MethodName(:type):type;
或者constructor MethodName(: type [;:type]);[virtual];
或者destructor MethodName[(: type)];[virtual];
不錯的，構(gòu)造函數(shù)和析構(gòu)函數(shù)都支持virtual，在構(gòu)造函數(shù)中，還有一個有用的東西是Fail函數(shù)，當(dāng)構(gòu)造函數(shù)的初始化失敗時，它可以用來釋放已經(jīng)分配的資源。遺憾的是，Object里面還沒有區(qū)分私有共有。接下來的代碼，是Turbo Pascal的Help文檔中，關(guān)于Fail函數(shù)的演示代碼，可以讓大家對此有個較深的認(rèn)識，Turbo Pascal卻是是很強大和優(yōu)秀的。
type PBase = ^TBase;TBase = object(TObject){在這里就已經(jīng)出現(xiàn)Tobject了，是不是很親切？} constructor Init(FailMe: Boolean);end;
PDerived = ^TDerived;TDerived = object(TBase)constructor Init(FailMe: Boolean);end;
constructor TBase.Init(FailMe: Boolean);begin
inherited Init;
if FailMe then Fail;end;
constructor TDerived.Init(FailMe: Boolean);begin
if not inherited Init(FailMe)then
{判斷父類的初始化是否成功}
{ Ancestor failed to construct, we must fail too }
Fail;
{ Otherwise, proceed with construction } {...} end;var
P: PObject;
X: Boolean;begin
for X := False to True do begin
P := New(PDerived, Init(X));
if P <> nil then
begin
writeln(''Object constructed sucessfully'');
Dispose(P, Done);
end
else
writeln(''Object failed to construct'');end;end.回到Delphi中，再看下面的代碼：
program Delphi;
{代碼在Delphi7.0下編譯通過}
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TMyClass = class(TObject)public
constructor Create;
procedure PrintClassName;
private
ClassName: string;end;
var
MyClass: TMyClass;
constructor TMyClass.Create;begin
ClassName := ''TMyClass'';end;
procedure TMyClass.PrintClassName;begin
writeln(ClassName);end;
{=========== main ===========} begin
MyClass := TMyClass.Create;
MyClass.PrintClassName;
MyClass.Free;
readln;end.類作為用戶自定義的一種數(shù)據(jù)類型，其聲明的規(guī)則，成員函數(shù)、過程的實現(xiàn)方法都符合經(jīng)典 Pascal的基本規(guī)則，唯一不同的是保留字變了，從記錄體變成了類（詳細(xì)比較代碼結(jié)構(gòu)和語法規(guī)則），這也說明Object Pascal是在經(jīng)典Pascal的基礎(chǔ)上進(jìn)行了面向?qū)ο髢?nèi)容的語法擴充。當(dāng)然，內(nèi)部的運行機制并沒有表面語法擴充這么輕松，可那是編譯器的事情，在這里，我們完全不用理會。差點忘記告訴讀者怎么調(diào)試上面的代碼了：在IDE環(huán)境主菜單里選擇 File | New | Other，在New Item項里選擇Console Application，這時出現(xiàn)了代碼編輯框，再將上面的代碼貼入，F(xiàn)9，完成！
代碼內(nèi)的{$APPTYPE CONSOLE}是一個編譯開關(guān)，它告訴編譯器，這是控制臺程序，在格式上它與注釋的差別就是那個“$”符號；TMyClass = class(TObject)可以簡寫為
TMyClass = class，表示TMyClass類從TObject類繼承而來，TObject是Delpi中所有對象的祖先，這也是為什么我在代碼中沒有聲明Destroy過程卻仍然能夠使用的原因；Delphi中類的構(gòu)造很有趣，請注意MyClass := TMyClass.Create這一句，這與C++不同。readln使程序停頓下來，直到用戶按下回車鍵才結(jié)束程序退出。更多詳細(xì)內(nèi)容請參考《Delphi開發(fā)人員指南》2.17.1節(jié)。
上面兩段代碼相互對應(yīng)，雖然很簡單，不過我卻認(rèn)為他們在某種程度上很容易讓同學(xué)發(fā)現(xiàn)由經(jīng)典Pascal向Object Pascal過渡的一些方法，對Object Pascal的類定義語法有個初步了解，這是很重要的一步。當(dāng)初我要是能夠看到這兩段代碼，或許能少浪費很多時間了。
● unit模塊
在Turbo Pascal的Help文檔里，是這樣說明unit功能的：Units are the basis of modular programming inBorland Pascal.You use units to createlibraries and to divide large programs into logically related modules。傳統(tǒng)上，我們都將所有代碼集中在一個program模塊中，可是面對更加復(fù)雜的功能代碼，正確的劃分功能封裝功能對代碼管理和以后的維護(hù)有著重要的作用，而使用unit模塊正好解決了這些問題。其語法規(guī)則如下：
unit identifier;{ Heading }
interface { Public symbols }: uses { Uses clause } const { Constants } type { Types } var { Variables } procedure { Procedures } function { Functions } implementation { Private symbols }: uses { Uses clause } label { Labels } const { Constants } type { Types } var { Variables } procedure { Procedures} function { Functions } begin { Initialization } statement;{ Statements } statement end.Interface部分用來聲明對外接口，也就是可以被外部引用該文件的程序使用的函數(shù)和過程；implementation部分包含接口部分聲明的各種函數(shù)、過程具體實現(xiàn)的代碼；begin一直到最后的end之間都是初始化部分，可以為本unit內(nèi)的各種變量，過程，函數(shù)初始化。如果沒有內(nèi)容需要初始化，那么begin可以省略，但end.必須存在。
在Delphi下經(jīng)典Pascal中的unit部分有了變動，請看來源于Delphi Help文檔的說明： unit Unit1;interface uses { List of units goes here } { Interface section goes here } implementation uses { List of units goes here } { Implementation section goes here } initialization { Initialization section goes here } finalization { Finalization section goes here } end.可見Initialization部分的關(guān)鍵字begin，被Initialization取代了，并且增加了一個finalization部分。Initialization部分的代碼可以這樣寫： initialization begin {do something…} end;也可以這樣寫： initialization {do something…}
finalization部分的功能，有點類似于析構(gòu)函數(shù)，它主要針對本unit模塊中initialization部分初始化的資源進(jìn)行釋放，并且是在程序結(jié)束時運行，如果程序以Halt過程結(jié)束了，該部分的程序?qū)⒉荒軋?zhí)行。
Unit模塊中的interface等關(guān)鍵字和結(jié)構(gòu)初看似乎有些限制程序員的自由度，但也正是這種語法規(guī)定體現(xiàn)出Pascal語言的嚴(yán)謹(jǐn)和優(yōu)美，為減少程序出錯的幾率做出保證。
program相當(dāng)文章的提綱挈領(lǐng)，unit則是文章的各個段落。Delphi里，program模塊包含在.prj文件中，unit模塊包含在傳統(tǒng)的.pas文件中。這就是為什么在Delphi中我們經(jīng)常面對的是為各個窗口服務(wù)的unit模塊，而非在一個program中寫完所有代碼。不過我在Delpi的Help中看到這樣一句話：In traditional Pascal programming, all source code, including the main program, is stored in.pas files.不知道這算思考角度不同還是算bug，畢竟這種語法并非Delphi中才有，Turbo Pascal程序員也一直在采用這種方法組織程序結(jié)構(gòu)。
給出一個簡單的initialization例子。在菜單中選擇File | New | Application，再在窗體上放置一個按鈕，雙擊該按鈕編寫它的Click事件處理代碼，完整代碼如下：
unit Unit1;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);private { Private declarations } public { Public declarations } end;var Form1: TForm1;Msg: string;implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(Msg);Msg := ''second'';end;
initialization Msg := ''first'';end.以上所述，是過渡中兩個基本的重要問題，弄懂它們方可初步明白自己為什么要這樣編寫代碼，該在哪里編寫代碼，如何擴展代碼功能。
● 我推薦的參考書籍
Delphi參考書籍
《Delphi 5 開發(fā)人員指南》機械工業(yè)出版社 《Inside VCL》李維 電子工業(yè)出版社 《Delphi深度歷險》陳寬達(dá) 科學(xué)出版社 《Pascal精要》網(wǎng)絡(luò)下載電子版
Windows參考書籍
《Programming Windows》Charles Petzold 《Windows2000開發(fā)人員指南》中國水利水電出版社
Delphi組件參考書我暫時沒有發(fā)現(xiàn)特別好的，平時我主要依靠論壇，源代碼，Delphi自帶的Demo和文檔來學(xué)習(xí)組件的使用。
● 再說點
現(xiàn)在有一些大學(xué)取消了Pascal語言課程，去年的ACM大賽也取消了Pascal語言的使用，不禁心寒，啟蒙教育沒有人做了，這些都使得Delphi在學(xué)生中的處境更加艱難。在國內(nèi)的Delphi論壇上，常常見到許多半吊子程序員在享受Delphi的快速開發(fā)的時候，嘴巴里還在責(zé)備Delphi功能太弱，不能搞什么底層開發(fā)，甚至直接責(zé)怪Pascal語言，殊不知，在Dos年代，有多少著名軟件使用Pascal開發(fā)出來的呢，有多少底層控制程序有著Pascal的身影呢？現(xiàn)在我手頭上還有Pascal編寫的病毒代碼，反病毒代碼，IC芯片控制代碼。
或許正是Delphi的RAD能力降低了程序開發(fā)的門檻，讓很多半吊子進(jìn)入了程序界，RAD開發(fā)蒙蔽了許多半吊子編程者（稱呼他們?yōu)槌绦騿T或許稍欠火候）的眼睛，但是國內(nèi)的教育界同樣有著不可推卸的責(zé)任，選修課開VB的不少，講Delphi的很少，我曾經(jīng)還遇到過一個從心底里就瞧不起Delphi，不啻談?wù)摰睦蠋?，而事實上他根本就沒有用過Delphi。我現(xiàn)在常去外國網(wǎng)站，發(fā)現(xiàn)國內(nèi)被爭論不休的問題，在國外早就有人在做，并且做的非常棒。
第二篇：成語解釋例句及出處和語法
1． 一擁而入：
【解釋】：擁：擁擠。一下子全都擁了進(jìn)去，擠了進(jìn)去。
【出自】：明·馮夢龍《醒世恒言》卷十五：“眾人一擁而入，迎頭就把了緣拿住，押進(jìn)里面搜捉，不曾走了一個。”
例句：體育場的大門剛一打開，球迷們就一擁而入。2． 怒氣沖沖： 【解釋】：盛怒的樣子。
【出自】：清·魏秀仁《花月痕》第十二回：“［錢同秀］一手將煙燈砸在地下，說道：‘好好，你們做了一路！’就怒氣沖沖的出來上車?！?/p>
【示例】：張學(xué)海不等湯阿英說完，就～地質(zhì)問：‘陶阿毛有啥不同？他不也是工人嗎？’
沖沖：感情激動的樣子。形容非常生氣。例句：不知為什么，他怒氣沖沖地走進(jìn)了教室。3． 聚精會神：
【解釋】：會：集中。原指君臣協(xié)力，集思廣益。后形容精神高度集中?！境鲎浴浚簼h·王褒《圣主得賢臣頌》：“聚精會神，相得益（章）彰。” 【示例】：看校樣時的～，就和在寫作的時候一樣，因為我的目的要使它沒有一個錯字?！蜞u韜奮《經(jīng)歷·一個小小的過街樓》 【近義詞】：目不轉(zhuǎn)睛、專心致志、全神貫注 【反義詞】：心不在焉、神不守舍、心神不定
【語法】：聯(lián)合式；作主語、謂語、定語、狀語；含褒義 聚、會：聚集。形容注意力非常集中。
例句：教室里同學(xué)們都在聚精會神地聽老師講課。4． 自言自語：
【解釋】：自己一個人低聲嘀咕。
【出自】：元·無名氏《桃花女》第四折：“你這般鬼促促的，在這自言自語，莫不要出城去砍那桃樹嗎？” 自己和自己說話。
例句：在路口經(jīng)常可以看到一個老人，坐在那里自言自語。5． 千鈞一發(fā)：
【解釋】：比喻情況萬分危急。
【出自】：《漢書·枚乘傳》：“夫以一縷之任，系千鈞之重，上懸無極之高，下垂不測之淵，雖甚愚之人，猶知哀其將絕也。”唐·韓愈《與孟尚書書》：“其危如一發(fā)引千鈞?！?/p>
【示例】：正在～的時刻，一位不知名的解放軍戰(zhàn)士奮不顧身跳進(jìn)冰冷的河水中，救起了落水兒童?！窘x詞】：危在旦夕
【反義詞】：安然無恙、安如磐石
【語法】：主謂式；作謂語、定語；用于人或事十分危急 形容情況十分危急。
例句：就在要撞車的千鈞一發(fā)的時候，司機緊急剎住了汽車。6． 精兵簡政：
【解釋】：精減人員，縮減機構(gòu)。
【出自】：郭沫若《洪波曲》第十四章：“只要肯認(rèn)真抗戰(zhàn)，這種精兵簡政，分頭并進(jìn)，倒也似乎更要合理些了?！?【近義詞】：精打細(xì)算、縮衣節(jié)食 【反義詞】：疊床架屋、尾大不掉
【語法】：聯(lián)合式；作主語、賓語、定語；指精減人員，縮減機構(gòu)
簡：使簡化。
例句：有些單位必須精兵簡政，不斷提高工作效率。7． 五光十色：
【解釋】：形容色彩鮮艷，花樣繁多。
【出自】：南朝梁·江淹《麗色賦》：“五光徘徊，十色陸離?！?【示例】：故宮珍寶館的玻璃柜里，擺著～的稀世奇珍?！窘x詞】：五顏六色、萬紫千紅 【反義詞】：色彩單一
【語法】：聯(lián)合式；作謂語、定語、狀語；含褒義 例句：一到夜晚，五光十色的燈把廈門裝扮得更加美麗。8． 雨后春筍：
【解釋】：指春天下雨后，竹筍一下子就長出來很多。比喻事物迅速大量地涌現(xiàn)出來。
【出自】：宋·張耒《食筍》詩：“荒林春雨足，新筍迸龍雛?！?/p>
【示例】：國內(nèi)廢科舉，興學(xué)校，好象～，努力學(xué)習(xí)西方?！蛎珴蓶|《論人民民主專政》
形容新生事物大量涌現(xiàn)。
例句：改革開放以來，工廠如雨后春筍般地不斷涌現(xiàn)。9． 琳瑯滿目：
【解釋】：琳瑯：精美的玉石。滿眼都是珍貴的東西。形容美好的事物很多?！境鲎浴浚耗铣に巍⒘x慶《世說新語·容止》：“今日之行，觸目見琳瑯珠玉?！?【示例】：這些壽禮陳列在坤寧宮的東西廡中，～?！蛞ρ┷蟆独钭猿伞返诙淼谌徽?/p>
【近義詞】：金碧輝煌、美不勝收
【反義詞】：瘡痍滿目
【語法】：主謂式；作謂語、定語、狀語；指滿眼都是珍貴的東西 比喻眼前出現(xiàn)了許多精美的事物。
例句：那里展出的的東西琳瑯滿目，使我們的眼睛應(yīng)接不暇。10． 頂天立地：
【解釋】：頭頂云天，腳踏大地。形容形象高大，氣慨豪邁。
【出自】：宋·釋普濟《五燈會元》卷五十六：“汝等諸人，個個頂天立地?！痹ぜo(jì)君祥《趙氏孤兒》第一折：“我韓厥是一個頂天立地的男兒?！?【示例】：先生是楚國的棟梁，是～的柱石。◎郭沫若《屈原》第三幕 【近義詞】：英姿勃勃、威風(fēng)凜凜、氣概不凡 【反義詞】：瞻前顧后
【語法】：聯(lián)合式；作定語、補語；用于人 形容形象非常高大，氣概豪邁。
例句：他大公無私，真是一個堂堂正正、頂天立地的男子漢。11． 千方百計：
【解釋】：想盡或用盡一切辦法。
【出自】：《朱子語類·論語十七》：“譬如捉賊相似，須是著起氣力精神，千方百計去趕他?！?/p>
【示例】：這個老匪開初～想收買這支已經(jīng)武裝了的工人隊伍，可是工人們堅決拒絕加入匪股。◎曲波《林海雪原》十四 【近義詞】：想方設(shè)法
【反義詞】：無計可施、束手無策
【語法】：聯(lián)合式；作狀語、賓語；含褒義 方：方法。講：辦法。想盡和用盡各種辦法。
例句：老師千方百計調(diào)動我們的學(xué)習(xí)積極性?！?12． 津津有味：
【解釋】：津津：興趣濃厚的樣子。指吃得很有味道或談得很有興趣?！境鲎浴浚簼h·王褒《洞簫賦》：“哀悁悁之可懷兮，良醰醰而有味?！?【示例】：話是這樣說，可是談起理論，許寧還是一套套地向道靜談得～，頭頭是道。◎楊沫《青春之歌》第一部第十二章 【近義詞】：興致勃勃
【反義詞】：味同嚼蠟、索然無味、枯燥無味 【語法】：偏正式；作謂語、賓語；含褒義 例句：他正在津津有味地看著一本漫畫書。13． 爭先恐后：
【解釋】：搶著向前，唯恐落后。
【出自】：清·張春帆《宦海》第十四回：“一個個爭先恐后的直搶上來。” 【示例】：在學(xué)校舉行的運動會上，各班同學(xué)～，奮力爭先?！窘x詞】：力爭上游
【語法】：聯(lián)合式；作謂語、狀語；形容人的動作等 例句：發(fā)令槍一響，運動員們爭先恐后地在跑道上飛奔起來。14． 如饑似渴：
【解釋】：形容要求很迫切，好象餓了急著要吃飯，渴了急著要喝水一樣?！境鲎浴浚喝龂骸げ苤病敦?zé)躬》計：“遲奉圣顏，如渴如饑。”
【示例】：我～地把那二十幾頁的長文，一口氣讀下去?！蚬簟陡锩呵铩W(xué)生時代》
【近義詞】：迫不及待、手不釋卷
【反義詞】：不慌不忙、四平八穩(wěn)
【語法】：聯(lián)合式；作謂語、賓語、定語、狀語；含褒義 比喻要求很迫切，就像餓了急著要吃飯，渴了急著要喝水一樣。例句：同學(xué)們?nèi)琊囁瓶实嘏W(xué)習(xí)。15． 興高采烈：
【解釋】：興：原指志趣，后指興致；采：原指神采，后指精神；烈：旺盛。原指文章志趣高尚，言詞犀利。后多形容興致高，精神飽滿。
【出自】：南朝梁·劉勰《文心雕龍·體性》：“步夜俊俠，故興高而采烈。” 【示例】：阿二忽然對于曾滄海的威嚇全沒怕懼，反而～的說起來了。（茅盾《子夜》四）
【近義詞】：歡天喜地、喜氣洋洋 【反義詞】：無精打采、悶悶不樂
【語法】：聯(lián)合式；作謂語、定語、狀語；含褒義 興：興致。采：精神。烈：旺盛。形容非常高興的神情。例句：慶“六一”的游園活動中，同學(xué)們興高采烈地玩了許多游戲。16． 小心翼翼：
【解釋】：翼翼：嚴(yán)肅謹(jǐn)慎。本是嚴(yán)肅恭敬的意思?，F(xiàn)形容謹(jǐn)慎小心，一點不敢疏忽。
【出自】：《詩經(jīng)·大雅·大明》：“維此文王，小心翼翼?！?/p>
【示例】：母親～地起床做飯，心里欣喜地想，讓兒子多睡一會，不要驚醒他?！蝰T德英《迎春花》第二章 翼翼：嚴(yán)肅，謹(jǐn)慎的樣子。
例句：他小心翼翼地把花瓶擦干凈，然后輕輕地放在書桌上。17． 煥然一新：
【解釋】：煥然：鮮明光亮的樣子。改變舊面貌，出現(xiàn)嶄新的氣象。
【出自】：唐·張彥遠(yuǎn)《歷代名畫記·論鑒識收藏購求閱玩》：“其有晉宋名跡，煥然如新，已歷數(shù)百年，紙素彩色未甚敗?！?/p>
【示例】：依中國法度，造作旗幟大纛，～?！蚯濉り惓馈端疂G后傳》第十一回
【近義詞】：耳目一新、煥然如新 【反義詞】：依然如故
【語法】：偏正式；作謂語、賓語；含褒義
煥然：鮮明光亮的樣子。形容舊的面貌改變了，呈現(xiàn)出嶄新的面貌。例句：看到我們班煥然一新的精神面貌，校長臉上露出了欣慰的笑容。18． 沁透心脾：
例句：花兒開了，飄來了一陣陣沁透心脾的香味。19． 贊嘆不已：
【解釋】：已：止，完。連聲贊賞不止。
【出自】：清·吳敬梓《儒林外史》第34回：“莊紹光看了，贊嘆不已?！?例句：看到他寫了漂亮的毛筆字，大家贊嘆不已。20． 波瀾壯闊：
【解釋】：原形容水面遼闊?，F(xiàn)比喻聲勢雄壯或規(guī)模巨大。
【出自】：南朝·宋·鮑照《登大雷岸與妹書》：“旅客貧辛，波路壯闊。” 【示例】：七言詩須～，頓挫激昂，大開開闔耳?！蚯濉だ赏⒒薄稁熡言妭骼m(xù)錄》
【近義詞】：浩浩蕩蕩、氣勢磅礴 【反義詞】：一潭死水
【語法】：主謂式；作謂語、定語；含褒義，用于文章、運動等
例句：面對波瀾壯闊的大海，他十分激動。21． 初出茅廬：
【解釋】：茅廬：草房。原比喻新露頭腳。現(xiàn)比喻剛離開家庭或?qū)W校出來工作。缺乏經(jīng)驗。
【出自】：明·羅貫中《三國演義》第三九回：“直須驚破曹公膽，初出茅廬第一功。”
【示例】：那傻小子是“～”，我們準(zhǔn)可以掃光他！◎魯迅《彷惶·高老夫子》 【近義詞】：初露頭角、乳臭未干、初露鋒芒 【反義詞】：老成持重、老馬識途
【語法】：動賓式；作謂語、賓語、定語；用于剛出道 例句：他雖然初出茅廬，工作起來卻是有條有理。22． 舉世聞名：
【解釋】：舉世：全世界。全世界都知道。形容非常著名。
【出自】：北齊·顏之推《顏氏家訓(xùn)·雜藝》：“王逸少風(fēng)流才士，蕭散名人。舉世但知其書，翻以能自蔽也?！?/p>
【示例】：中國的象牙雕刻是杰出的，北京的山水人物和廣州的花卉動物牙雕，尤其～?！蚯啬痢陡吒呗N起的象鼻子》 【近義詞】：遐邇聞名、譽滿天下 【反義詞】：默默無聞
【語法】：主謂式；作謂語、賓語、定語；含褒義 例句：中國的萬里長城是舉世聞名的偉大建筑。23． 攻無不克：
【解釋】：克：攻下。沒有攻占不下來的。形容力量無比強大。
【出自】：《戰(zhàn)國策·秦策二》：“是知秦戰(zhàn)未嘗不勝，攻未嘗不取，所當(dāng)未嘗不
破也。”
【示例】：中國人民解放軍～，戰(zhàn)無不勝，所向披靡?！窘x詞】：戰(zhàn)無不勝
【語法】：兼語式；作謂語、定語；形容力量無比強大
例句：他領(lǐng)導(dǎo)的科研小組，十幾年來以攻無不克的氣勢，解決了一個又一個難題。
24． 胸有成竹：
【解釋】：原指畫竹子要在心里有一幅竹子的形象。后比喻在做事之前已經(jīng)拿定主意。
【出自】：宋·蘇軾《文與可畫筼筜谷偃竹記》：“故畫竹，必先得成竹于胸中?！?【示例】：毛委員～，決定馬上向南去追趕部隊?！蜿惒x《毛主席率領(lǐng)我們上井崗山》 成：完成，現(xiàn)成。
例句：這次考試，我胸有成竹，一定能取得好成績。25． 迫不及待：
【解釋】：迫：緊急。急迫得不能等待。形容心情急切。
【出自】：清·李汝珍《鏡花緣》第六回：“且系酒后游戲，該仙子何以迫不急待?！?/p>
【示例】：他～地推開門，走進(jìn)屋去?！窘x詞】：刻不容緩、急不可待 【反義詞】：待機而動
【語法】：偏正式；作謂語、狀語；形容心情急迫 例句：他那迫不及待的樣子，引起了一陣哄堂大笑。26． 別具一格：
【解釋】：別：另外。另有一種獨特的風(fēng)格。
【出自】：清·呂留良《與施愚山書》：“詠見贈詩，風(fēng)力又別具一格?！?【示例】：這個畫家的人物畫拙中見巧，～?！窘x詞】：標(biāo)新立異、別開生面、別有風(fēng)味 【反義詞】：如出一轍、千篇一律、依樣葫蘆
【語法】：動賓式；作謂語、定語；用于文學(xué)、藝術(shù)、書法等 別：別處的，獨特的。
例句：他寫的這本書構(gòu)思巧妙，別具一格。27． 不假思索：
【解釋】：假：假借，依靠。形容做事答話敏捷、熟練，用不著考慮。【出自】：宋·黃榦《黃勉齋文集》卷四：“戒懼謹(jǐn)獨，不待勉強，不假思索，只是一念之間，此意便在?！?/p>
【示例】：華安～，援筆立就，手捧所做呈上?！蛎鳌ゑT夢龍《警世通言》卷二十六
【近義詞】：一揮而就、脫口而出、一目十行 【反義詞】：慢條斯理、深思熟慮
【語法】：動賓式；作謂語、定語、狀語；指懶于思考，不負(fù)責(zé)任的辦事 例句：他復(fù)習(xí)得很全面，對于老師提的問題，他都能不假思索就回答出來。28． 神機妙算：
【解釋】：神、妙：形容高明；機、算：指計謀。驚人的機智，巧妙的計謀。形容善于估計復(fù)雜的變化的情勢，決定策略。
【出自】：《后漢書·王渙傳》：“又能以譎數(shù)發(fā)擿奸伏，京師稱嘆，以為渙有神算?！崩钯t注：“智算若神也。”
【示例】：（周）瑜大驚，慨然嘆日：‘孔明～，吾不如也?！?◎明·羅貫中《三
國演義》第四十六回 【近義詞】：錦囊妙計
【反義詞】：無計可施、束手無策
【語法】：聯(lián)合式；作謂語、賓語、定語；含褒義 例句：諸葛亮草船借箭，真是神機妙算?。?9． 理直氣壯：
【解釋】：理直：理由正確、充分；氣壯：氣勢旺盛。理由充分，說話氣勢就壯?！境鲎浴浚好鳌ゑT夢龍《古今小說》卷三十一：“便捉我到閻羅殿前，我也理直氣壯，不怕甚的?！?/p>
【示例】：只要我們～，怕他怎的！◎清·李寶嘉《官場現(xiàn)形記》第十七回 【近義詞】：振振有詞、義正言辭 【反義詞】：強詞奪理、理屈詞窮
【語法】：聯(lián)合式；作謂語、定語、狀語；含褒義 例句：他的話理直氣壯，說得大家不知如何回答。30． 完璧歸趙：
【解釋】：本指藺相如將和氏璧完好地自秦送回趙國。后比喻把原物完好地歸還本人。
【出自】：《史記·廉頗藺相如列傳》：“城入趙而璧留秦；城不入，臣請完璧歸趙?！?/p>
【示例】：請放心，不要多久，這兩件東西定會～。此事放在弟身上好啦。◎姚雪垠《李自成》第一卷第二十六章 【近義詞】：物歸原主 【反義詞】：支離破碎
【語法】：主謂式；作謂語、賓語；指物歸原主
例句：現(xiàn)在我把這本書完璧歸趙，請你查收。31． 同心協(xié)力：
【解釋】：心：思想；協(xié)：合。團結(jié)一致，共同努力。
【出自】：漢·賈誼《過秦論》：“且天下嘗同心并力攻秦矣，然困于險阻而不能進(jìn)者，豈勇力智慧不足哉？”《周書·崔謙傳》：“然后與宇文行臺，同心協(xié)力，電討不庭，則桓文之勛，復(fù)興于茲日矣?！?【示例】：只要我們大家～，就沒有克服不了的困難。【近義詞】：齊心協(xié)力
【反義詞】：勾心斗角，同床異夢
【語法】：聯(lián)合式；作謂語、定語、狀語；含褒義 例句：只要我們同心協(xié)力，就一定能戰(zhàn)勝困難。32． 開卷有益：
【解釋】：開卷：打開書本，指讀書；益：好處。讀書總有好處?！境鲎浴浚簳x·陶潛《與子儼等疏》：“開卷有得，便欣然忘食?！?【反義詞】：讀書無用
【語法】：主謂式；作賓語、定語、分句；指讀書總有好處 例句：要做到開卷有益，首先就要選擇讀好的書。33． 各抒己見：
【解釋】：抒：抒發(fā)，發(fā)表。各人充分發(fā)表自己的意見。
【出自】：唐·李翱《李文權(quán)文集·陵廟日時朔祭議》：“先儒穿鑿，各伸己見，皆托古圣賢之名以信其語，故其所記各不同也?！?/p>
【示例】：據(jù)我主意，何不～，出個式子，豈不新鮮些？ ◎清·李汝珍《鏡花緣》第七十四回
【近義詞】：各持己見、各抒所見
【語法】：動賓式；作謂語；指各人充分發(fā)表自己的意見 例句;在班級會議上，大家各抒己見，氣氛熱烈。34． 忐忑不安：
【解釋】：忐忑：心神不定。心神極為不安。
【出自】：清·吳趼人《糊涂世界》卷九：“兩道聽了這話，心里忐忑不定?！?【示例】：母親謹(jǐn)慎地窺視著一切動靜，心里～，她怕有人出賣星海?！蝰T德英《苦菜花》第十章
【近義詞】：惶惶不安、坐立不安 【反義詞】：心安理得、悠然自得
【語法】：聯(lián)合式；作謂語、定語、狀語；含貶義
例句：昨天晚上我忘了背課文，今天上語文課時，我忐忑不安，生怕被老師叫到。
35． 心驚肉跳：
【解釋】：形容擔(dān)心災(zāi)禍臨頭，恐慌不安。
【出自】：元·無名氏《爭報恩》第三折：“不知怎么，這一會兒心驚肉戰(zhàn)，這一雙好小腳兒再走也走不動了?！?/p>
【示例】：在那個悶熱的夜晚，發(fā)生了那種淑嫻現(xiàn)在想起還～的事情，使她的精神受到極大的創(chuàng)傷?！蝰T德英《迎春花》第十五章 【近義詞】：心膽俱裂、魂飛魄散 【反義詞】：神色不驚、鎮(zhèn)定自若
【語法】：聯(lián)合式；作謂語、賓語、補語；形容人極度驚懼恐慌 驚：驚慌。
例句：做了壞事的人，一遇到警察就會嚇得心驚肉跳。
36． 自作自受：
【解釋】：自己做了蠢事壞事，自己倒霉。
【出自】：宋·釋普濟《五燈會元》：“僧問金山穎：‘一百二十斤鐵枷，教阿誰擔(dān)？’穎曰：‘自作自受?！?/p>
【示例】：他這會子不說保養(yǎng)著些，還要捉弄人；明兒病了，叫他～?！蚯濉げ苎┣邸都t樓夢》第五十一回
【近義詞】：自食其果、自討苦吃、自投羅網(wǎng) 【語法】：連動式；作謂語、賓語；含貶義 例句：他今天落到這樣的下場，完全是自作自受。37． 大名鼎鼎：
【解釋】：鼎鼎：盛大的樣子。形容名氣很大。
【出自】：清·李寶嘉《官場現(xiàn)形記》第二十四回：“你一到京打聽人家，像他這樣大名鼎鼎，還怕有不曉得的?！?/p>
【示例】：當(dāng)時有華靈氈士者，～之學(xué)者?！蚯濉ち簡⒊陡裰聦W(xué)沿革考略》 【近義詞】：赫赫有名、名揚天下、舉世聞名、鼎鼎大名 【反義詞】：無名鼠輩、無聲無息
【語法】：主謂式；作定語；用于人和事物 例句：他現(xiàn)在已是一個大名鼎鼎的歌手了。38． 人聲鼎沸：
【解釋】：鼎：古代煮食器；沸：沸騰。形容人群的聲音吵吵嚷嚷，就象煮開了鍋一樣。
【出自】：明·馮夢龍《醒世恒言》卷十：“一日午后，劉方在店中收拾，只聽得人聲鼎沸?！?/p>
【示例】：廣場這時已是一片鑼鼓喧天，～。
【近義詞】：人歡馬叫、震耳欲聾 【反義詞】：萬籟俱寂、鴉雀無聲
【語法】：主謂式；作謂語、賓語、定語；比喻人聲嘈雜 例句：工地上，人聲鼎沸，一派繁忙緊張的景象。39． 車水馬龍：
【解釋】：車象流水，馬象游龍。形容來往車馬很多，連續(xù)不斷的熱鬧情景?！境鲎浴浚骸逗鬂h書·明德馬皇后紀(jì)》：“前過濯龍門上，見外家問起居者，車如流水，馬如游龍。”
【示例】：花天酒地，鬧個不休，～，日無暇晷。◎清·吳趼人《二十年目睹之怪現(xiàn)狀》第一回
【近義詞】：門庭若市、絡(luò)繹不絕 【反義詞】：門可羅雀、門庭冷落
【語法】：聯(lián)合式；作謂語、定語；形容繁華熱鬧的景象 例句：節(jié)日里，大街上車水馬龍，熱鬧極了。40． 摩肩接踵：
【解釋】：肩碰著肩，腳碰著腳。形容人多擁擠。
【出自】：《戰(zhàn)國策·齊策一》：“臨淄之途，車轂擊，人肩摩。”《宋史·李顯忠傳》：“入城，宣布德意，不戮一人，中原歸附者踵接?！?【示例】：節(jié)日的公園里，游人～，十分擁擠。【近義詞】：熙熙攘攘、熙來攘往 【反義詞】：地廣人稀
【語法】：聯(lián)合式；作謂語、定語、狀語；形容人多時 例句：春節(jié)前幾天的菜市場上，人們摩肩接踵，忙著買東西。41． 熙熙攘攘：
【解釋】：熙熙：和樂的樣子；攘攘：紛亂的樣子。形容人來人往，非常熱鬧擁擠。
【出自】：《史記·貨殖列傳》：“天下熙熙，皆為利來；天下攘攘，皆為利往。” 【示例】：共青團員都打扮成去遠(yuǎn)足的樣子，每人提了個提包，有的是掛包，～的會集在廠里的球場上。◎茹志娟《新當(dāng)選的團支書》 【近義詞】：人山人海、水泄不通 【反義詞】：門前冷落、門可羅雀
【語法】：聯(lián)合式；作謂語、定語；形容人多喧鬧
例句：節(jié)日期間，公園里熙熙攘攘，人們笑逐顏開，真熱鬧啊呀！42． 一絲不茍：
【解釋】：茍：茍且，馬虎。指做事認(rèn)真細(xì)致，一點兒不馬虎。
【出自】：清·吳敬梓《儒林外史》第四回：“上司訪知，見世叔一絲不茍，升遷就在指日?！?/p>
【示例】：我們在學(xué)習(xí)上，應(yīng)有～的精神?！窘x詞】：小心謹(jǐn)慎、小心翼翼、不茍言笑 【反義詞】：粗枝大葉、馬馬虎虎
【語法】：主謂式；作謂語、定語、補語；含褒義
例句：陳老師無論做什么事情都是那么認(rèn)真負(fù)責(zé)，一絲不茍。43． 惟妙惟肖：
【解釋】：描寫或模仿的非常逼真。
【示例】：她扮演一位英雄的母親，言談舉止，無不惟妙惟肖。【近義詞】：栩栩如生 【反義詞】：畫虎類犬
【語法】：聯(lián)合式；作謂語、定語、補語；含褒義
妙：好。肖：想像。
例句：這幅畫上的幾只小貓畫得惟妙惟肖，好像一叫這會跑出來似的。44． 鄭人買履：
【解釋】：用來諷刺只信教條，不顧實際的人?！境鲎浴浚骸俄n非子·外儲說左上》 【近義詞】：生搬硬套、死搬教條
【語法】：主謂式；作定語、狀語；含貶義
例句：我們做任何事情時都要根據(jù)實際情況，靈活處理，否則就會鬧鄭人買履的笑話。45． 自相矛盾：
【解釋】：矛：進(jìn)攻敵人的刺擊武器；盾：保護(hù)自己的盾牌。比喻自己說話做事前后抵觸。
【出自】：《韓非子·難一》：“楚人有鬻盾與矛者，譽之曰：‘吾盾之堅，莫之能陷也?！肿u其矛曰：‘吾矛之利，于物無不陷也?！蛟唬骸宰又葑又埽稳?？’其人勿能應(yīng)也。” 【示例】：這些理論～。
例句：說話做事不能前后抵觸，要不就會自相矛盾。46． 了如指掌：
【解釋】：了：明白；指掌：指著手掌。形容對事物了解得非常清楚，象把東西放在手掌里給人家看一樣。
【出自】：《論語·八佾》：“或問禘之說。子曰：‘不知也；知其說者之于天下也，其如示諸斯乎！’指其掌?！焙侮碳庖淘唬骸翱鬃又^或人言知禘禮之說者，于天下之事，如指示掌中之物，言其易了?！?/p>
【示例】：只這一相形之下，美丑高低，便～了。◎聞一多《冬夜評論》
【近義詞】：一目了然、一清二楚、洞若觀火 【反義詞】：疑團莫釋、一團漆黑
【語法】：偏正式；作謂語；指對事物十分了解
例句：陳教師教了我們班四年了，他對每一個同學(xué)的情況真是了如指掌?。?7． 不動聲色：
【解釋】：聲：言談；色：臉色。在緊急情況下，說話、神態(tài)仍跟平時一樣沒有變化。形容非常鎮(zhèn)靜。
【出自】：宋·歐陽修《相州晝錦堂記》：“垂紳正笏，不動聲色，而措天下于泰山之安。”
【示例】：他也～，勤勤慎慎辦他的公事?！蚯濉だ顚毤巍豆賵霈F(xiàn)形記》第十二回
【近義詞】：不露聲色、無動于衷、泰然自若 【反義詞】：不知所措、失魂落魄、手足無措
【語法】：動賓式；作謂語、定語、狀語；形容在緊急情況下不改變聲色 例句：接完電話，他不動聲色地走了出去。48． 若無其事：
【解釋】：象沒有那回事一樣。形容遇事沉著鎮(zhèn)定或不把事情放在心上?！境鲎浴浚厚T德英《苦菜花》第三章：“王柬芝若無其事地閂上門，又叫她點著燈，他那雙眼睛四處巡視著。” 【近義詞】：不動聲色、泰然自若 【反義詞】：六神無主、張皇失措
【語法】：動賓式；作謂語、定語、狀語；指人的態(tài)度
例句：我們都在緊張地復(fù)習(xí)準(zhǔn)備考試，他卻若無其事地看漫畫書。49． 無與倫比：
【解釋】：倫比：類比，匹敵。指事物非常完美，沒有能跟它相比的?！境鲎浴浚禾啤ろn愈《論佛骨表》：“數(shù)千百年以來，未有倫比?！?【示例】：在這段時間里，他受到祖國人民～的最熱情的接待。◎魏巍《東方·歸來》
【近義詞】：無可比擬、前所未有 【反義詞】：不相上下、同日而語
【語法】：復(fù)雜式；作謂語、定語；含褒義
50． 星羅棋布：
【解釋】：羅：羅列；布：分布。象天空的星星和棋盤上的棋子那樣分布著。形容數(shù)量很多，分布很廣。
【出自】：漢·班固《西都賦》：“列卒周匝，星羅云布。”
【示例】：到了晚上，那電氣燈，自來火，～，照耀得徹夜通明，光輝如同白晝。◎清·彭養(yǎng)鷗《黑籍冤魂》第十五回 【近義詞】：浩如煙海、漫山遍野 【反義詞】：寥若晨星
【語法】：聯(lián)合式；作謂語、定語、狀語；形容數(shù)量多分布廣 例句：大大小小的商店星羅棋布，熱鬧非凡。51． 美不勝收：
【解釋】：勝：盡。美好的東西很多，一時看不過來。
【出自】：清·錢泳《履園叢話·藝能·治庖》：“惟魚之一物，美不勝收?！?【示例】：展覽館里展出的各種工藝品琳瑯滿目，～。【近義詞】：琳瑯滿目 【反義詞】：不堪入目
【語法】：主謂式；作謂語、定語、補語；含褒義 例句：景區(qū)里的石雕美不勝收。
第三篇：pascal編程基礎(chǔ)練習(xí)題
pascal編程基礎(chǔ)練習(xí)題
一、不定項選擇和填空題
１、下列關(guān)于程序語言的敘述，不正確的是（）
Ａ、編寫機器代碼不比編寫匯編代碼容易
Ｂ、高級語言需要編譯成目標(biāo)代碼或通過解釋器解釋后才能被CPU執(zhí)行
Ｃ、同樣一段高級語言程序通過不同的編譯器可能產(chǎn)生不同的可執(zhí)行程序
Ｄ、匯編代碼可被CPU直接運行
Ｅ、不同的高級語言語法略有不同
２、下列哪一種程序設(shè)計語言是解釋執(zhí)行的（）
Ａ、Pascal
Ｂ、GWBASIC
Ｃ、C++
Ｄ、FORTRAN ３、解釋程序的功能是（）
Ａ、將高級語言程序轉(zhuǎn)換為目標(biāo)程序
Ｂ、將匯編語言程序轉(zhuǎn)換為目標(biāo)程序
Ｃ、解釋執(zhí)行高級語言程序
Ｄ、解釋執(zhí)行匯編語言程序
４、下列中沒有語法錯誤的PASCAL程序首都是（）
Ａ、PROGRAM A1;
Ｂ、PROGRAM A1(0utPut)
Ｃ、PROGRAM(Input,OutPut);
Ｄ、PROGRAM A1(Input OutPut);５、結(jié)構(gòu)化程序的結(jié)構(gòu)由三種基本結(jié)構(gòu)組成，下面哪個不屬于這三種基本結(jié)構(gòu)（）
Ａ、順序結(jié)構(gòu)
Ｂ、輸入輸出結(jié)構(gòu)構(gòu)
Ｃ、分支結(jié)構(gòu)
Ｄ、循環(huán)結(jié)構(gòu)
６、Pascal程序必須包括（）
Ａ、程序首部、說明部分、語句部分
Ｂ、程序首部、說明部分
Ｃ、說明部分、語句部分
Ｄ、程序首部、語句部分
７、標(biāo)準(zhǔn)Pascal程序說明部分的正確順序是（）
Ａ、LABEL—CONST—VAR—TYPE
Ｂ、VAR—CONST—LABEL—TYPE
Ｃ、LABEL—CONST—TYPE—VAR
Ｄ、CONST—VAR—TYPE—LABEL ８、下面對Pascal程序組成結(jié)構(gòu)的描述錯誤的是（）
Ａ、程序體可以為空
Ｂ、程序的注釋部分只能寫在程序中一條語句的最后
Ｃ、程序首都的參數(shù)部分可有可無
Ｄ、一個完整的PASCAL程序的主程序只能有一個
９、要編寫并執(zhí)行—個PASCAL程序，—般的步驟是（）
Ａ、①用編輯軟件編寫源程序
②用PASCAL的編譯程序把源程序轉(zhuǎn)換成目標(biāo)程序
③用連接程序把目標(biāo)程序轉(zhuǎn)換為可執(zhí)行程序
④運行可執(zhí)行程序
Ｂ、①用編輯軟件編寫源程序
②修改和調(diào)試源程序
③用PASCAL的編譯程序把源程序轉(zhuǎn)換成可執(zhí)行程序
④運行可執(zhí)行程序
Ｃ、①用編輯軟件編寫源程序
②用連接程序把源程序轉(zhuǎn)換成可執(zhí)行程序
③試運行可執(zhí)行程序
④修改后再運行可執(zhí)行程序
Ｄ、①用編輯軟件編寫源程序
②用連接程序把源程序轉(zhuǎn)換為目標(biāo)程序
③用PASCAL的編譯程序把目標(biāo)程序轉(zhuǎn)換為可執(zhí)行程序
④運行可執(zhí)行程序
１０、PASCAL源程序中不止確的注釋語句是（）
Ａ、用一對“{”和“}”括起來的字符串
Ｂ、用一對“/*”和“*/”括起來的字符串
Ｃ、用—對“(*”和“*)”括起來的字符串
Ｄ、A)或 B)１１、以下正確的PASCAL實數(shù)是（）
Ａ、0.56E2.5Ｂ、2.56E
2Ｃ、.318EＤ、34.E5 Ｅ、EＦ、3E-Ｇ、.1
5Ｈ、15.１２、每個Pascal程序的分程序中都必須包括（）
Ａ、變量說明、語句
Ｂ、語句
Ｃ、類型定義、變量說明、語句
Ｄ、常量說明、變量說明、語句 １３、下列中合法的Pascal標(biāo)識符是（）
Ａ、Char set
Ｂ、RECORD
Ｃ、Abs
Ｄ、π
Ｅ、A1B2C3 Ｆ、FOR
Ｇ、2ab
Ｈ、a[1] １４、設(shè)a、b、c為整型變量，并有以下程序段
Read(a);Readln(b,c);
Readln(c,b);Readln(a,b);
writeln(a,b,c)
若運行時輸入：
3＜ENTER＞5 6＜ENTER＞8 9＜ENTER＞
其中＜ENTER＞表示回車符，則輸出是（）
Ａ、12
3Ｂ、147
Ｃ、784 １５、下列表達(dá)式中，其值為TRUE的是（）
Ａ、150>=150
Ｂ、100>150
Ｃ、Abs(-200)<>200
Ｄ、Succ('A') Ｅ、'ab'<'abc' Ｆ、Succ(False)=True Ｇ、0dd(35+1)=FaLse Ｈ、219<>219 １６、有變量說明： VAR i1,i2:Integer; r1,r2:Real; b1,b2:Boolean; 設(shè)各變量均已賦值，下列中錯誤的賦值語句是（） Ａ、b2:=Ord(r1>r2) Ｂ、i2:=i1+r 1Ｃ、b1:=i1=i2 Ｄ、b1:=b1+b2 Ｅ、i2:=i1+i2 DIV i 1Ｆ、i1:=i1/i 2Ｇ、r2:=3/5*Sqr(r1+r2) Ｈ、r1:=r2+r1 １７、下面一段程序是用（）)語言書寫的 int funcl(int n){ int i,sum=0; for(i = 1;i＜=n;i++) sum+= i*i; return sum;} Ａ、FORTRAN Ｂ、PASCAL Ｃ、C Ｄ、PROLOG Ｅ、BASIC １８、設(shè)全集E={1，2，3，4，5}，集合A={1,4}，B={l，2, 5}，C={2，4)，則集合(A∩B)∪～C為（） Ａ、空集 Ｂ、{1} Ｃ、{3，5} Ｄ、{1，5} Ｅ、{1，3，5} １９、運算17 MOD 4的結(jié)果是（） Ａ、7 Ｂ、3Ｃ、1Ｄ、4 ２０、已知a、b、c、d、e、f、g均為整數(shù)變量，其值分別為2、4、6、8、10、12、14，若輸出結(jié)果為 4 10 14 則輸出語句應(yīng)是（） Ａ、Write(a:3,b:3);write(c:3,d:3,e:3);Write(f:3,g:3) Ｂ、Writeln(a:3,b:3);Write(c:3,d:3,e:3);Writeln(f:3,g:3) Ｃ、Writeln(a:3,b:3);Writeln(c:3,d:3,e:3);Writeln;Writeln(f:3,g:3); Ｄ、Write(a:3,b:3);Writeln;Write(c:3);Writeln(f:3,g:3);Write(f:3,g:3)２１、把整數(shù)7轉(zhuǎn)換為字符‘7’的表達(dá)式是哪一個（） Ａ、Chr(7)-0rd('0') Ｂ、Chr(7-0rd(0)) Ｃ、Chr(7+0rd('0')) Ｄ、Chr(7+0rd(0))２２、下列類型定義中，合法的是（） Ａ、TYPE a=10..10; Ｂ、TYPE b=0..Sqr(10); Ｃ、TYPE c=1.0..10.0; Ｄ、TYPE d=10..5;２３、以下運算符中運算優(yōu)先級最高的是（） Ａ、＋ Ｂ、OR Ｃ、>= Ｄ、DIV ２４、已知有如下說明： VAR a,b:Integer; c,d:Real; 下面賦值語句合法的是（） Ａ、c:=a+b Ｂ、a:=Trunc(c) Ｃ、a:=a+b/c Ｄ、b:=a div d ２５、設(shè)有變量說明：VAR s:(C,G,A,J,K);則函數(shù)Succ(A)的取值是（） Ａ、G Ｂ、3Ｃ、J Ｄ、B ２６、表達(dá)式True AND NOT Odd(-202)<(7-3<=4)的值是（） Ａ、True Ｂ、False Ｃ、0 Ｄ、1 ２７、下列常量說明中合法的是（） Ａ、CONST color=red..blue; Ｂ、CONST CONST=10*5;Ｃ、CONST x1:=3.9; Ｄ、CONST abc='abc';２８、已知a、b、c、d是同類型簡單變量，且都已有互不相同的值，執(zhí)行下列語句 b:=a; a:=c; d:=a; d:=b; 后，其值相等的變量是（） Ａ、a,d Ｂ、a,c Ｃ、c,b Ｄ、b,d ２９、下面合法的常量是（） Ａ、.2 5Ｂ、“RED” Ｃ、'%' Ｄ、3E-2.5 ３０、設(shè)a、b、c、d、e均為整型變量，且s= 13、b= 2、c= 10、d= 3、e=2，則表達(dá)式a-b*c DIV d MOD e的值是：（） Ａ、1 3Ｂ、-7 Ｃ、1 1Ｄ、0 信息學(xué)奧賽pascal程序設(shè)計復(fù)習(xí)題 一、讀下面程序段，請寫出程序運行結(jié)果。read(a,b)if a<=b then begin t:=a;a:=b;b:=t;end;else read(b,a)writeln(‘a(chǎn)+b=’,a+b);end.輸入：4，2，3，1 輸出： 二、編程題 1、編程將能被2、3整除，但被5除余1的最小自然數(shù)找出來。 2、已知某數(shù)是2，3，5的倍數(shù)，被11除余10，被13除余7，被17除余13。求滿足條件的最小自然數(shù)。（14684） 3、在屏幕上讀入一個四位數(shù)，將千百十個位上的數(shù)打印出來。 4、求滿足下列條件的三位數(shù)。(1)它的各位數(shù)字不同且不為零。 (2)這個數(shù)等于所有由它的各個數(shù)字所組成的兩位數(shù)的和。 5、在屏幕上讀入十個整數(shù)，并打印出來，并計算他們的和和平均數(shù)。 6、將一個不大于7位的自然數(shù)X的各位數(shù)字分離，并按從高位往低位的順序分行打印。 7、將一個不大于2147483647的自然數(shù)X的各位數(shù)字分離，并按從高位到低位的順序分行打印出來。 8、輸入30個數(shù)a1,a2,a3,?a30,計算x和y的值。 9、已知x=a1+a2+?+a30, y=a1+a2+?+a15-a16-a17?-a30.分別輸入一個班30個學(xué)生的語文成績，數(shù)學(xué)成績，英語成績。求出每位學(xué)生的總分和平均分。 一、單項選擇題（共20題，每題1.5分，共計30分。每題有且僅有一個正確答案。） 1．在以下各項中，（）不是CPU的組成部分。 A．控制器 B．運算器 C．寄存器 D．主板 2．在關(guān)系數(shù)據(jù)庫中，存放在數(shù)據(jù)庫中的數(shù)據(jù)的邏輯結(jié)構(gòu)以（）為主。 A．二叉樹 B．多叉樹 C．哈希表 D．二維表 3．在下列各項中，只有（）不是計算機存儲容量的常用單位。 A．Byte B．KB C．UB D．TB 4．ASCII碼的含義是（）。 A．二→十進(jìn)制轉(zhuǎn)換碼 B．美國信息交換標(biāo)準(zhǔn)代碼 C．?dāng)?shù)字的二進(jìn)制編碼 D．計算機可處理字符的唯一編碼 5．一個完整的計算機系統(tǒng)應(yīng)包括（）。 A．系統(tǒng)硬件和系統(tǒng)軟件 B．硬件系統(tǒng)和軟件系統(tǒng) C．主機和外部設(shè)備 D．主機、鍵盤、顯示器和輔助存儲器 6．IT的含義是（）。 A．通信技術(shù) B．信息技術(shù) C．網(wǎng)絡(luò)技術(shù) D．信息學(xué) 7．LAN的含義是（）。 A．因特網(wǎng) B．局域網(wǎng) C．廣域網(wǎng) D．城域網(wǎng) 8．冗余數(shù)據(jù)是指可以由其它數(shù)據(jù)導(dǎo)出的數(shù)據(jù)。例如，數(shù)據(jù)庫中已存放了學(xué)生的數(shù)學(xué)、語文和英語的三科成績，如果還存放三科成績的總分，則總分就可以看作冗余數(shù)據(jù)。冗余數(shù)據(jù)往往會造成數(shù)據(jù)的不一致。例如，上面4個數(shù)據(jù)如果都是輸入的，由于操作錯誤使總分不等于三科成績之和，就會產(chǎn)生矛盾。下面關(guān)于冗余數(shù)據(jù)的說法中，正確的是（）。 A．應(yīng)該在數(shù)據(jù)庫中消除一切冗余數(shù)據(jù) B．用高級語言編寫的數(shù)據(jù)處理系統(tǒng)，通常比用關(guān)系數(shù)據(jù)庫編寫的系統(tǒng)更容易消除冗余數(shù)據(jù) C．為了提高查詢效率，在數(shù)據(jù)庫中可以保留一些冗余數(shù)據(jù)，但更新時要做相容性檢驗 D．做相容性檢驗會降低效率，可以不理睬數(shù)據(jù)庫中的冗余數(shù)據(jù) 9．在下列各軟件，不屬于NOIP競賽（復(fù)賽）推薦使用的語言環(huán)境有（）。 A．gcc B．g++ C．Turbo C D．Free Pascal 10．以下斷電后仍能保存數(shù)據(jù)的有（）。 A．硬盤 B．高速緩存 C．顯存 D．RAM 11．在下列關(guān)于計算機語言的說法中，正確的有（）。 A．高級語言比匯編語言更高級，是因為它的程序的運行效率更高 B．隨著Pascal、C等高級語言的出現(xiàn)，機器語言和匯編語言已經(jīng)退出了歷史舞臺 C．高級語言比匯編語言程序更容易從一種計算機上移植到另一種計算機上 D．C是一種面向?qū)ο蟮母呒売嬎銠C語言 12．近20年來，許多計算機專家都大力推崇遞歸算法，認(rèn)為它是解決較復(fù)雜問題的強有力的工具。在下列關(guān)于遞歸算法的說法中，正確的是（）。 A．在1977年前后形成標(biāo)準(zhǔn)的計算機高級語言“FORTRAN77”禁止在程序使用遞歸，原因之一是該方法可能會占用更多的內(nèi)存空間 B．和非遞歸算法相比，解決同一個問題，遞歸算法一般運行得更快一些 C．對于較復(fù)雜的問題，用遞歸方式編程一般比非遞歸方式更難一些 D．對于已經(jīng)定義好的標(biāo)準(zhǔn)數(shù)學(xué)函數(shù) sin(x)，應(yīng)用程序中的語句“y=sin(sin(x));”就是一種遞歸調(diào)用 13．一個無法靠自身的控制終止的循環(huán)成為“死循環(huán)”，例如，在C語言程序中，語句“while(1)printf(“*”);”就是一個死循環(huán)，運行時它將無休止地打印*號。下面關(guān)于死循環(huán)的說法中，只有（）是正確的。 A．不存在一種算法，對任何一個程序及相應(yīng)的輸入數(shù)據(jù)，都可以判斷是否會出現(xiàn)死循環(huán)，因而，任何編譯系統(tǒng)都不做死循環(huán)檢查 B．有些編譯系統(tǒng)可以檢測出死循環(huán) C．死循環(huán)屬于語法錯誤，既然編譯系統(tǒng)能檢查各種語法錯誤，當(dāng)然也應(yīng)該能檢查出死循環(huán) D．死循環(huán)與多進(jìn)程中出現(xiàn)的“死鎖”差不多，而死鎖是可以檢測的，因而，死循環(huán)也可以檢測的14．在Pascal語言中，表達(dá)式（23 or 2 xor 5）的值是（）。 A．18 B．1 C．23 D．32 15．在Pascal語言中，判斷整數(shù)a等于0或b等于0或c等于0的正確的條件表達(dá)式是（）。 A．not((a<>0)or (b<>0)or (c<>0))B．not((a<>0)and(b<>0)and(c<>0))C．not((a=0)and(b=0))or(c<>0)D．(a=0)and(b=0)and(c=0) 16．地面上有標(biāo)號為A、B、C的三根柱，在A柱上放有10個直徑相同中間有孔的圓盤，從上到下依次編號為1，2，3??，將A柱上的部分盤子經(jīng)過B柱移入C柱，也可以在B柱上暫存。如果B柱上的操作記錄為“進(jìn)、進(jìn)、出、進(jìn)、進(jìn)、出、出、進(jìn)、進(jìn)、出、進(jìn)、出、出”。那么，在C柱上，從下到上的編號為（）。 A．2 4 3 6 5 7 B．2 4 1 2 5 7 C．2 4 3 1 7 6 D．2 4 3 6 7 5 17．與十進(jìn)制數(shù)1770對應(yīng)的八進(jìn)制數(shù)是（）。 A．3350 B．3351 C．3352 D．3540 18．設(shè)A=B=True，C=D=False，一下邏輯運算表達(dá)式值為假的有（）。 A．(「A∧B)∨(C∧D∨A) B．「(((A∧B)∨C)∧D) C．A∧(B∨C∨D)∨D D．(A∧(D∨C))∧B 19．(2070)16 +(34)8 的結(jié)果是（）。A．（8332）10 B．（208A）16 C．（100000000110）2 D．(20212)8 20．已知7個節(jié)點的二叉樹的先根遍歷是1 2 4 5 6 3 7（數(shù)字為節(jié)點的編號，以下同），中根遍歷是4 2 6 5 1 7 3，則該二叉樹的后根遍歷是（）。 A．4 6 5 2 7 3 1 B．4 6 5 2 1 3 7 C．4 2 3 1 5 4 7 D．4 6 5 3 1 7 2 1樓 2007-11-2 20:38 回復(fù) 楓葉寒霜 二、問題求解（共2題，每題5分，共計10分）。 1、（子集劃分）將n個數(shù)（1，2，?，n）劃分成r個子集。每個數(shù)都恰好屬于一個子集，任何兩個不同的子集沒有共同的數(shù)，也沒有空集。將不同劃分方法的總數(shù)記為S(n,r)。例如，S(4,2)=7，這7種不同的劃分方法依次為{(1),(234)}，{(2),(134)}，{(3),(124)}，{(4),(123)}，{(12),(34)}，{(13),(24)}，{(14),(23)}。當(dāng)n=6，r=3時，S(6,3)=______________。 （提示：先固定一個數(shù)，對于其余的5個數(shù)考慮S(5,3)與S(5,2)，再分這兩種情況對原固定的數(shù)進(jìn)行分析。） 2、（最短路線）某城市的街道是一個很規(guī)整的矩形網(wǎng)絡(luò)（見下圖），有7條南北向的縱街，5條東西向的橫街?，F(xiàn)要從西南角的A走到東北角的B，最短的走法共有多少種？___________(圖畫不了) 三、閱讀程序?qū)懡Y(jié)果（共4題，每題8分，共計32分。） 1、program j301;var i,a,b,c,x,y:integer; p:array[0..4] of integer;begin y:=20; for i:=0 to 4 do read(p); readln; a:=(p[0]+p[1])+(p[2]+p[3]+p[4])div 7; b:=p[0]+p[1] div((p[2]+p[3])div p[4]); c:=p[0]*p[1] div p[2]; x:=a+b-p[(p[3]+3)mod 4]; if(x>10) then y:=y+(b*100-a)div(p[p[4] mod 3]*5) else y:=y+20+(b*100-c)div(p[p[4] mod 3]*5); writeln(x,',',y);end.{注：本例中，給定的輸入數(shù)據(jù)可以避免分母為0或數(shù)組元素下表越界。} 輸入：6 6 5 5 3 輸出：______________________ 2、program j302;var a,b:integer;var x,y:^integer; procedure fun(a,b:integer);var k:integer; begin k:=a;a:=b;b:=k;end;begin a:=3;b:=6; x:=@a;y:=@b; fun(x^,y^); writeln(a,',',b);end.輸出：_______________________________ 3、program j303; var a1:array[1..50] of integer;var i,j,t,t2,n,n2:integer;begin n:=50; for i:=1 to n do a1:=0; n2:=round(sqrt(n)); for i:=2 to n2 do if(a1=0)then begin t2:=n div i; for j:=2 to t2 do a1[i*j]:=1; end; t:=0; for i:=2 to n do if(a1=0)then begin write(i:4);inc(t); if(t mod 10=0)then writeln; end; writeln;end.輸出：_____________________________________________ _____________________________________________ 4、Program j304;Type str1=string[100];Str2=string[200];Var S1:str1;s2:str2; Function isalpha(c:char):Boolean;Var i:integer;Begin i:=ord?; if((i>=65)and(i<=90))or((i>=97)and(i<=122))then isalpha:=true else isalpha:=false;end; function isdigit(c:char):Boolean;var i:integer;begin i:=ord?;if(i>=48)and(i<=57)then isdigit:=true else isdigit:=false;end; procedure expand(s1:str1;var s2:str2);var i,j:integer;a,b,c:char;begin j:=1;c:=char(1);i:=0; while(i<=ord(s1[0]))do begin inc(i);c:=s1; if c='-' then begin {1} a:=s1[i-1];b:=s1[i+1]; if(isalpha(a)and isalpha(b))or(isdigit(a)and isdigit(b))then begin dec(j); while(ord(upcase(a)) begin s2[j]:=a;inc(j);inc(a);end; end else begin s2[j]:=c;inc(j);end;end{1} else begin s2[j]:=c;inc(j);end;end;s2[0]:=char(j-2);end;begin readln(s1);expand(s1,s2);writeln(s2);end.2樓 2007-11-2 20:38 回復(fù) 楓葉寒霜 輸入：wer2345d-h454-82qqq 輸出：__________________________ 四、完善程序（前4空，每空2.5分，后6空，每空3分，共28分）。 1、（求字符的逆序）下面的程序的功能是輸入若干行字符串，每輸入一行，就按逆序輸出該行，最后鍵入-1終止程序。 請將程序補充完整。 Program j401; type str1=string[100];var line:str1;kz:integer; procedure reverse(var s:str1);var I,j:integer;t:char;begin i:=1;j:=length(s); while(i t:=s;s:=s[j];s[j]:=t; ;; end;end;begin writeln(‘continue?-1 for end.’); readln(kz); while()do begin readln(line); ; writeln(line); writeln(‘continue?-1 for end.’); readln(kz); end;end.2 3 3 2-1 1 3 4 1 1 5 4 4 5 5 2、（棋盤覆蓋問題）在一個2k×2 k個方格組成的棋盤中恰有一個方格與其它方格不同（圖中標(biāo)記為-1的方格），稱之為特殊方格?，F(xiàn)用L型（占3個小方格）紙片覆蓋棋盤上除特殊方格的所有部分，各紙片不得重疊，于是，用到的紙片數(shù)恰好是（4 k-1）/3。在下表給出的一個覆蓋方案中，k=2，相同的3各數(shù)字構(gòu)成一個紙片。 下面給出的程序使用分治法設(shè)計的，將棋盤一分為四，依次處理左上角、右上角、左下角、右下角，遞歸進(jìn)行。請將程序補充完整。 (圖畫不了...郁悶)Program j402; type arr1=array[1..65] of integer; arr2=array[1..65] of arr1; var board:arr2;tile:integer;size,dr,dc:integer;procedure chessboard(tr,tc:integer;dr,dc:integer;var size:integer);var t,s:integer;begin if(size=1)then; t:=tile;inc(tile); s:=size div 2; if then chessboard(tr,tc,dr,dc,s)else begin board[tr+s-1]:=t; end; if(dr else begin board[tr+s-1][tc+s]:=t; ;end; if(dr>=tr+s)and(dc board[tr+s][tc+s]:=t; ;end; if(dr>=tr+s)and(dc>=tc+s)then chessboard(tr+s,tc+s,dr,dc,s)else begin board[tr+s][tc+s]:=t;;end;end; procedure prt1(n:integer);var I,j:integer;begin for I:=1 to n do begin for j:=1 to n do write(board[j]:3); writeln;end;end;begin writeln(‘input size(4/8/16/64):’); readln(size);writeln(‘input the position of special block(x,y):’); readln(dr,dc);board[dr][dc]:=-1; tile:=1;chessboard(1,1,dr,dc,size);prt1(size);end.3樓 2007-11-2 20:38 回復(fù) 222.187.96.* 請問有答案嗎？ 6樓 2007-12-13 10:57 回復(fù) 楓葉寒霜 NOIP2007年普及組（Pascal語言）參考答案與評分標(biāo)準(zhǔn) 一、單項選擇題：（每題1.5分）1.D 2.D 3.C 4.B 5.B 6.B 7.B 8.C 9.C 10.A 11.C 12.A 13.A 14.A 15.B 16.D 17.C 18.D 19.A 20.A 二、問題求解：（每題 5分） 1．90 2．210 三、閱讀程序?qū)懡Y(jié)果 1.15, 46（對1個數(shù)給4分，無逗號扣1分） 2.3, 6 3.2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 4.wer2345defgh45456782qqq 四、完善程序(前4空（①--④），每空2.5分，后6空（⑤--⑩），每空3分) （說明：以下各程序填空可能還有一些等價的寫法，各省可請本省專家審定和上機驗證，不一定上報科學(xué)委員會審查） 1．① inc(i)或i:=i+1 ② dec(j)或 j:=j-1 ③ kz<>-1 ④ reverse(line) 2.⑤ exit ⑥(dr⑦ chessboard(tr,tc,tr+s-1,tc+s-1,s)⑧ chessboard(tr,tc+s,tr+s-1,tc+s,s)⑨ chessboard(tr+s,tc,tr+s,tc+s-1,s)⑩ chessboard(tr+s,tc+s,tr+s,tc+s,s) 第九屆全國青少年信息學(xué)奧林匹克聯(lián)賽初賽試題及答案 (普及組PASCAL語言 二小時完成)●● 全部試題答案均要求寫在答卷紙上，寫在試卷紙上一律無效 ●● 一．選擇一個正確答案代碼(A／B／C／D／E)，填入每題的括號內(nèi)(每題1．5分，共30分)1．下列計算機設(shè)備中，既是輸入設(shè)備，又是輸出設(shè)備的是()。A)鍵盤 B)觸摸屏 C)掃描儀 D)投影儀 E)數(shù)字化儀 2．下列分辨率的顯示器所顯示出的圖像，最清晰的是()。A)800*600 B)1024*768 C)640*480 D)1280*1024 E)800*1000 3．下列說法中，正確的是()。 A)在內(nèi)存中，可執(zhí)行程序用二進(jìn)制碼表示，源程序用八進(jìn)制表示。B)程序和數(shù)據(jù)在內(nèi)存中都是用二進(jìn)制碼表示的。C)內(nèi)存中數(shù)據(jù)的存取是以二進(jìn)制位為單位的。D)中央處理器CPU執(zhí)行的每條指令的長度都不同。 E)一般來說，在計算機內(nèi)部，中文信息用十六進(jìn)制表示，英文信息用八進(jìn)制表示。 4．下列說法中，錯誤的是()。 A)程序是指令的序列，它有三種結(jié)構(gòu)：順序、分支和循環(huán)。B)地址總線決定了中央處理器CPU所能訪問的最大內(nèi)存空間的大小。C)中央處理器CPU內(nèi)部有寄存器組，用來存儲數(shù)據(jù)。D)不同廠家生產(chǎn)的CPU所能處理的指令集不一定相同。E)數(shù)據(jù)傳輸過程中不可能會出錯。 5．CPU訪問內(nèi)存的速度比訪問下列哪個存儲設(shè)備要慢()。A)寄存器 B)硬盤 C)軟盤 D)磁帶 E)光盤 6．下列電子郵件地址，正確的是()。 A)wang@hotmail.com B)cai@jcc.pc.tool@rf.edu.jp C)162.105.111.22 D)ccf.edu.cn E)http：//004km.cn 7．?dāng)?shù)字圖像文件可以用下列哪個軟件來編輯()。A)畫筆(Paintbrush)B)記事簿(Notepad)C)Recorder D)WinRAR E)MidiSoft 8．下列哪個軟件不是操作系統(tǒng)軟件的名字()。A)Windows XP B)DOS C)Linux D)OS／2 E)Arch／Info 9．下列哪個不是個人計算機的硬件組成部分()。A)主板 B)操作系統(tǒng) C)電源 D)硬盤 E)軟驅(qū) 10．圖靈(Alan Turing)是()。 A)美國人 B)英國人 C)德國人 D)匈牙利人 E)法國人 11．第一個給計算機寫程序的人是()。A)Alan Mathison Turing B)Ada Lovelace C)John von Neumann D)John McCarthy E)Edsger Wybe Dijkstra 12．十進(jìn)制數(shù)2003等值于二進(jìn)制數(shù)()。 A)11111010011 B)10000011 C)110000111 D)010000011l E)1111010011 13．運算式(2008)10－(3723)8的結(jié)果是()。 A)(-1715)10 B)(5)10 C)(-5)16 D)(111)2 E)(3263)8 14．下列關(guān)于程序語言的敘述，不正確的是()。A)編寫機器代碼不比編寫匯編代碼容易。 B)高級語言需要編譯成目標(biāo)代碼或通過解釋器解釋后才能被CPU執(zhí)行。C)同樣一段高級語言程序通過不同的編譯器可能產(chǎn)生不同的可執(zhí)行程序。D)匯編代碼可被CPU直接運行。E)不同的高級語言語法略有不同。 15．假設(shè)A=true，B=false，C=true，D=true，邏輯運算表達(dá)式A∧B∨C∧D的值是()。A)true B)false C)0 D)1 E)NULL 16．一個高度為h的二叉樹最小元素數(shù)目是()。A)2h+l B)h C)2h-1 D)2h E)2h-l 17．已知隊列(13，2，11，34，41，77，5，7，18，26，15)，第一個進(jìn)入隊列的元素是13，則第五個出隊列的元素是()。 A)5 B)41 C)77 D)13 E)18 18．下列關(guān)于文件的敘述，不正確的是()。A)一個可執(zhí)行程序其實也是一個文件。B)文件可大可小，大的文件一張軟盤裝不下。 C)一個文件夾下面可以有兩個同名的文件，只要它們的大小不同就行了。D)文件的創(chuàng)建日期和最新修改日期可以在資源管理器中看到。E)某些文件的內(nèi)容可以用記事本(Notepad)看到。19．活動硬盤的容量比固定硬盤的容量()。A)大 B)小 C)相等 D)不一定大 E)大致相等 20．IP地址是一個()位二進(jìn)制碼。A)8 B)16 C)32 D)64 E)12 二．問題求解(每題5分，共10分)1．現(xiàn)在市場上有一款汽車A很熱銷，售價是2萬美元。汽車A每加侖汽油可以行駛20英里。普通汽車每年大約行駛12000英里。油價是每加侖1美元。不久我公司就要推出新款節(jié)油汽車B，汽車B每加侖汽油可以行駛30英里?，F(xiàn)在我們要為B制定價格(它的價格略高于A)：我們預(yù)計如果用戶能夠在兩年內(nèi)通過節(jié)省油錢把B高出A的價錢彌補回來，則他們就會購買B，否則就不會購買B。那么B的最高價格應(yīng)為 萬美元。 2．無向圖G有16條邊，有3個4度頂點、4個3度頂點，其余頂點的度均小于3，則G至少有 個頂點。 三．閱讀程序(每題8分，共32分)1．program Programl； var a，x，y，okl，ok2：integer； begin a ：=100： x：=l0； y：=20； okl：=5： ok2：=0； if((x>y)or((y<>20)and(okl=0))and(ok2<>0))then a：=1 else if((okl<>0)and(ok2=、0))then a：=-1 else a：=0； writeln(a)； end． 輸出： 2．program Program2； var a，t：string； i，j：integer； begin a：=`morning`； j：= l； for i：=2 to 7 do if(a[j] 3．program Program3； Var a，b，c，d，sum：longint； begin read(a，b，c，d)； a：=a mod 23： b：=b mod 28； c：=c mod 33； sum：=a*5544+b* 14421+c*1288-d;sum：=sum+21252;sum：=sum mod 21252;if(sum=0)then sum：=21252;writeln(sum)； end． 輸入：283 102 23 320 輸出： 4．program program4； var a： array[0．．5] of integer； sum，n，max，i，j，k：integer； cover：array[0．．22000]of boolean； begin read(a[5]，a[4]，a[3]，a[2]，a[1]，a[0])； if((a[5]=0)and(a[3]=0)and(a[1]=0))then begin a[5]：=a[4]；a[4]：=a[2]； a[3]：=a[0]； a[2]：=0 a[0]：=0； end： for i：=0 to 5 do if(a[i]>10)then a[i]：=10+(a[i] mod 2)； sum：=0： for i：=0 to 5 do sum：=sum+a[i]*(6-i)； if((sum mod 2)<>0)then begin writeln(`Can``t be divided.`)； Exit;End;sum：=sum div 2； max：=0； cover[0]：=True； for i：=1 to sum*2 do cover[i]：=False； for i：=0 to 5 do begin j：=0； while(j 輸入：4 7 9 20 56 48 輸入：1000 7 101 20 55 1 輸入：2000 5 l 1 0 0 輸出： 輸出： 輸出： 四、完善程序(第l空2分，其余每空3分共28分)1．一元二次方程 題目描述： 方程ax＾2+bx+c=0，要求給出它的實數(shù)解． 輸 入： 三個實數(shù)：a，b，c，是方程的三個系數(shù)(a≠0)． 輸 出： 如果無實數(shù)解，則輸出“No solution”； 如果有兩個相等的實數(shù)解，則輸出其中一個，四舍五入到小數(shù)點后面3位； 如果有兩個不等的實數(shù)解，則解與解之間用逗號隔開，同樣要四舍五入到小數(shù)點后3位。 輸入樣例： l 2 1 輸出樣例：-1.000 程 序： program Program41； var a，b，c，m：real； begin read(a，b，c)； m：=b*b-4*a*c； if(①)then begin write(② ：0：3)； write(` , `);write((-1*b-sqrt(m))／(2*a)：0：end else if(④)then write(⑤)else begin write(`No solution`)； end ③)； end． 2．翻硬幣 題目描述： 一摞硬幣共有m枚，每一枚都是正面朝上。取下最上面的一枚硬幣，將它翻面后放回原處。然后取下最上面的2枚硬幣，將他們一起翻面后再放回原處。再取3枚，取4枚??直至m枚。然后再從這摞硬幣最上面的一枚開始，重復(fù)剛才的做法。這樣一直做下去，直到這摞硬幣中的每一枚又都是正面朝上為止。例如，m為1時，翻兩次即可。m為2時，翻3次即可；m為3時，翻9次即可；m為4時，翻11次即可；m為5時，翻24次即可；?；m為30時，翻899次即可；? 輸 入： 僅有的一個數(shù)字是這摞硬幣的枚數(shù)m，0 為了使這摞硬幣中的每一枚又都是正面朝上所必需翻的次數(shù)。輸入樣例： 30 輸出樣例： 899 程 序： program Programl； var m：integer； function solve(m：integer)：integer； vat i，t，d：integer； flag：boolean;begin if(m=1)then so1ve：= ① else begin d：=2*m+1； t：= 2;i：= 1;flag：=False； repeat if(t=1)then begin solve：= ② flag：=True； end else if(③)then begin solve：=i*m-1； flag：=True； end else t：= ④ ； i：=i+1； until flag； end end;begin read(m);if((m＞0)and(m＜1000))then writeln(⑤);end.第九屆全國青少年信息學(xué)奧林匹克聯(lián)賽初賽試題 普及組參考答案 一、選擇一個正確答案代碼（A/B/C/D/E），填入每題的括號內(nèi)（每題1.5分，多選無分，共30分） 題號 1 2 3 4 5 6 7 8 9 10 選擇 B D B E A A A E B B 題號 11 12 13 14 15 16 17 18 19 20 選擇 B A B D A B B C D C 二．問題解答（每題5分，共10分）1．答： 2.04 2．答： 11 三．閱讀程序，并寫出程序的正確運行結(jié)果：(每題8分，共32分)（1）程序的運行結(jié)果是：-1（2）程序的運行結(jié)果是；mo（3）程序的運行結(jié)果是：8910（4）程序的運行結(jié)果是：Can't be divided Can be divided Can't be divided 四．根據(jù)題意，將程序補充完整(第1空2分，其余每空3分 共28分)PASCAL語言 ================= 題一 ① m>0 ②(-l*b+sqrt(m))／(2*a)； ③ 3 ④ ABS（M）＜0.0001 ⑤-1*b/(2*a):0:3 題二 ① 2 ② i*m ③ t=2*m ④(t*2)mod d ⑤ solve(m) 信息學(xué)初賽試題 ------------------奧賽題庫 加入時間：2005-10-18 9:25:46 yczxwang 點擊：501 相關(guān)信息 一、單選題（共25題，每題2分，合計50分） 1.計算機內(nèi)采用________存儲各種信息。 a)二進(jìn)制 b)六十進(jìn)制 c)十進(jìn)制 d)八進(jìn)制 2.下列語言中，用________書寫的代碼是不需要編譯就可以在機器上運行的。 a)C++語言 b)匯編語言 c)Pascal語言 d)機器語言 3.提出圖靈機理論的是________。 a)圖靈 Turing b)馮·諾依曼 von Neumann c)里奇 Ritchie d)蓋茨 Gates 4.C語言的創(chuàng)始人為________。 a)圖靈 Turing b)馮·諾依曼 von Neumann c)里奇 Ritchie d)斯特勞斯特魯普 Stroustrup 5.以下________不是棧的基本運算。 a)刪除棧頂元素 b)刪除棧底元素 c)判斷棧是否為空 d)將棧置為空棧 6.計算機軟件保護(hù)法旨在保護(hù)軟件的________。 a)著作權(quán) b)使用權(quán) c)銷售權(quán) d)復(fù)制權(quán) 7.Linux是一種________。 a)繪圖軟件 b)程序設(shè)計語言 c)操作系統(tǒng) d)網(wǎng)絡(luò)瀏覽器 8.NOI比賽中，提交文件的文件名應(yīng)該_________。 a)全部大寫 b)全部小寫 c)大小寫無所謂 d)按照題目要求大小寫 9.下列軟件中_____是文字編輯軟件。 a)WinZIP b)Linux c)Word d)free pascal compiler 10.CPU是________的英文縮寫。 a)硬盤 b)中央處理器 c)高級程序語言 d)核心寄存器 11.NOI比賽中，提交的源代碼文件應(yīng)該存放在_________。 a)任意地方 b)用戶目錄中 c)用戶目錄下的任意目錄中 d)用戶目錄下對應(yīng)的題目目錄中 12.目前常見的個人計算機使用__________位的CPU。 a)64 b)32 c)16 d)8 13.下列字串中，________是一個可能的電子信箱地址。 a)ddd.tod.com b)125.31.57.1 c)http://004km.cn d)email@web.de.com.kr 14.高級程序設(shè)計語言編寫的源程序代碼，需要經(jīng)過_______才能被計算機直接運行。 a)解釋 b)編譯 c)破解 d)刪除 15.下列名詞中，________不是高級程序設(shè)計語言。 a)JAVA b)Windows c)Pascal d)C++ 16.一般來說，一種數(shù)據(jù)結(jié)構(gòu)就是_________。 a)一種數(shù)據(jù)的表示方法 b)一種數(shù)據(jù)的操作方法 c)一種數(shù)據(jù)的表示及其相關(guān)操作 d)一種編程方法 17.目前NOI規(guī)定使用的操作系統(tǒng)是________。 a)Windows系列 b)OS/2 c)Unix d)Linux 18.與二進(jìn)制數(shù)01011010等值的十六進(jìn)制數(shù)為________。 a)55 b)AA c)A5 d)5A 19.計算機術(shù)語“算法”指的是__________。 a)代數(shù)運算方法 b)邏輯運算方法 c)解決問題的、有具體步驟的方法 d)統(tǒng)計方法 20.一個字節(jié)為________比特。 a)4 b)8 c)16 d)32 21.下列名詞中，________不是網(wǎng)絡(luò)傳輸協(xié)議的名稱。 a)ftp b)telnet c)http d)email 22.計算機中訪問速度最快而又最緊缺的存儲資源是________。 a)寄存器 b)主存儲器 c)高速緩存 d)外圍存儲設(shè)備 23.隊列元素的進(jìn)隊出隊原則是________。 a)先進(jìn)先出 b)先進(jìn)后出 c)后進(jìn)先出 d)只進(jìn)不出 24.NOI的全稱是（）。 a)National Office in Industry b)Natural Orange in India c)National Olympiad in Informatics d)Naval Officer in Information 25.ACM/ICPC是一項________。 a)國際高中生程序設(shè)計競賽 b)國際大學(xué)生程序設(shè)計競賽 c)國際大學(xué)生創(chuàng)造發(fā)明大賽 d)國際中學(xué)生科技夏令營 二、不定項選擇題（共10題，每題2分，合計20分） 26.顯示器是一種________。 a)輸入設(shè)備 b)存儲設(shè)備 c)輸出設(shè)備 d)寄存器 27.程序的結(jié)構(gòu)有________。 a)順序結(jié)構(gòu) b)倒序結(jié)構(gòu) c)選擇結(jié)構(gòu) d)循環(huán)結(jié)構(gòu) 28.計算機中，常用KB作為內(nèi)存大小的單位，1KB是________字節(jié)。 a)1000 b)1000000 c)1024 d)1048576 29.操作系統(tǒng)的主要功能是________。 a)管理硬件 b)管理文件系統(tǒng) c)系統(tǒng)監(jiān)控和維護(hù)安全 d)編譯高級語言程序 30.下列關(guān)于文件的敘述，________是不正確的。 a)可執(zhí)行程序可以保存為文件形式 b)文件可大可小，大的文件用一張軟盤可能裝不下 c)一個文件夾下面可以有兩個同名的文件，只要它們的大小不同就行了 d)Linux環(huán)境中，普通用戶可以讀些系統(tǒng)中所有文件 31.衡量一個算法的優(yōu)劣應(yīng)該關(guān)注________。 a)正確性 b)輸出格式 c)空間效率 d)時間效率 32.下列關(guān)于程序語言的敘述，________是不正確的。 a)編寫機器代碼比編寫匯編代碼容易 b)高級語言需要編譯成目標(biāo)代碼或通過解釋器解釋后才能被CPU執(zhí)行 c)匯編代碼可被CPU直接運行 d)不同的CPU可能擁有不同的機器代碼指令集 33.下列物品中那些不是軟件________。 a)CPU b)硬盤 c)光驅(qū) d)Linux 34.數(shù)據(jù)結(jié)構(gòu)中，________都是樹的一種。 a)二叉樹 b)堆 c)循環(huán)鏈表 d)霍夫曼樹 35.在計算機上，由于________的限制我們無法精確表示一個無理數(shù)。 a)顯示器大小 b)存儲位數(shù) c)運算速度 d)算法效率 三、判斷正誤，正確用“T”表示，錯誤用“F”表示。（共5題，每題2分，合計10分） 36.常見的高級程序設(shè)計語言有Java, C++, C, Pascal, Basic 等。 37.計算機中，漢字的編碼主要有 國標(biāo)碼（GB）和 大五碼（BIG）兩種。 38.根據(jù)摩爾定律，CPU的性能價格比每18個月翻一倍。 39.常用的漢字輸入法有五筆、智能ABC、激光照排等。 40.Windows是個人電腦上唯一的操作系統(tǒng)。 四、填空題（共5題，每題4分，合計20分） 41.用十六進(jìn)制的地址編碼給存儲器的字節(jié)編地址，其地址是0000到FFFF，則該存儲器的容量是 ________________字節(jié)（用數(shù)字準(zhǔn)確表示，不使用K、M等簡寫單位）。 42.世界上第一臺通用電子計算機ENIAC，于________年誕生于美國賓夕法尼亞州立大學(xué)摩爾分校。 43.NOI比賽中，某道題目的名稱是first，題目要求提交源代碼；某選手在比賽用機上的用戶名是 user18，用戶主目錄是/home/user18，該選手使用Pascal語言編程，則該選手在提交first題目的源代碼 文件時，該源代碼文件的全路徑名是（包括目錄名和文件名）________。（Pascal源代碼文件的后綴名 為.pas） 44.Linux系統(tǒng)中，管理員用戶（超級用戶）的缺省用戶名是________。 45.在順序表（2，5，7，10，14，15，18，23，35，41，52）中，用二分法查找12，所需的關(guān)鍵碼 比較的次數(shù)為________。 答案： 一.單選題 1.a 2.d 3.a 4.c 5.b 6.a 7.c 8.d 9.c 10.b 11.d 12.b 13.d 14.b 15.b 16.c 17.a 18.d 19.c 20.b 21.d 22.a 23.a 24.c 25.b 二.不定項選擇題 26.c 27.acd 28.c 29.abc 30.cd 31.acd 32.ac 33.abc 34.abd 35.b 三．判斷正誤 36.T 37.T 38.T 39.F 40.F 四.填空題 41.65536 42.1946 43./home/user18/first/first.pas 44.root 45.4 uses crt;var headx,armlx,armrx,bodyx,legx,heady,armly,armry,bodyy,legy:integer;blood:integer;eblood:array [1..9] of integer;etowards,towards,x:string;earmrx,earmlx,elegx,ebodyx,eheadx:array [1..9] of integer;head,arml,armr,body,leg:char;i1,i:integer;ehead,earml,earmr,ebody,eleg:char;stepstart,steps,enerys,enerys1:integer;firststart:integer;kk:char;active,enery:array [1..9] of integer;time:longint;skilling,deaths,skilllevel:integer;skilltime:longint;skillactive:string;freezing:integer;label 1;procedure printplayer(pr:integer);begin if pr=0 then begin textcolor(red);gotoxy(headx,heady);write(head);gotoxy(armlx,armly);write(arml);gotoxy(armrx,armry);write(armr);gotoxy(bodyx,bodyy);write(body);gotoxy(legx,legy);write(leg);textcolor(white);end else begin textcolor(green);gotoxy(eheadx[pr],17);write(ehead);gotoxy(earmlx[pr],18);write(earml);gotoxy(earmrx[pr],18);write(earmr);gotoxy(ebodyx[pr],18);write(ebody);gotoxy(elegx[pr],19);write(eleg);textcolor(white);end;end;function locationOK(lOk:integer):boolean;var lOk1:integer;begin locationOK:=true;for lOK1:=1 to i-1 do if enery[lOk1]=enery[i] then locationOK:=false;if enery[i]=bodyx then locationOK:=false;end;procedure printstep;var psp:integer;begin gotoxy(stepstart,20);for psp:=1 to steps do write('=');end;function direct(dr:integer):boolean;var dr1:integer;begin direct:=true;for dr1:=1 to enerys do if(enery[dr1]=dr)and(active[dr1]=1)direct:=false;end;procedure clearplayer(cp:integer);begin gotoxy(cp,19);write(' ');gotoxy(cp-1,18);write(' ');gotoxy(cp,17);write(' ');end;procedure turnside;begin gotoxy(38,24);write(' ');gotoxy(38,24);write(towards);end;procedure fightover(fo:string);begin if fo='left' then begin gotoxy(armlx-1,armly); then write('=');gotoxy(armlx-1,armly);write(' ');end;if fo='right' then begin gotoxy(armrx+1,armry);write('=');gotoxy(armrx+1,armry);write(' ');end;end;procedure ifs(is1:string);var is2,is3:integer;is4:string;is5:array [1..9] of integer;begin for is2:=1 to enerys do is5[is2]:=eblood[is2];if is1='left' then for is2:=1 to enerys do if active[is2]=1 then begin if armlx-1=earmrx[is2] then eblood[is2]:=eblood[is2]-5;if armlx-1=ebodyx[is2] then eblood[is2]:=eblood[is2]-10;if armlx-1=earmlx[is2] then eblood[is2]:=eblood[is2]-15;end;if is1='right' then for is2:=1 to enerys do if active[is2]=1 then begin if armrx+1=earmlx[is2] then eblood[is2]:=eblood[is2]-5;if armrx+1=ebodyx[is2] then eblood[is2]:=eblood[is2]-10;if armrx+1=earmrx[is2] then eblood[is2]:=eblood[is2]-15;end;for is2:=1 to enerys do if active[is2]=1 then if abs(enery[is2]-headx)<=3 then begin gotoxy(enery[is2],23);str(is5[is2],is4);for is3:=1 to length(is4)do write(' ');gotoxy(enery[is2],23);write(eblood[is2]);end;end;procedure levelup(lu:integer);var lu1:string;lu2:char;lu3:integer;begin case lu of 1:lu1:='frozen the enemy';end;gotoxy(30,25);write('press ''g'' to get the new skill');repeat lu2:=readkey;until lu2='g';gotoxy(30,25);write(' ');gotoxy(1,25);write('You''ve gotten a new skill:press ''f'' to ',lu1,'.Press Enter to continue');lu2:=readkey;gotoxy(1,25);for lu3:=1 to 79 do write(' ');end;procedure killing;var kill:integer;kill1:string;begin for kill:=1 to enerys do if(eblood[kill]<=0)and(active[kill]=1)then begin clearplayer(enery[kill]);enerys1:=enerys1-1;active[kill]:=0;gotoxy(enery[kill],21);write(' ');gotoxy(enery[kill],22);write(' ');gotoxy(enery[kill],23);str(eblood[kill],kill1);for i1:=1 to length(kill1)do write(' ');deaths:=deaths+1;if(deaths=10+skilllevel*5)and(skilllevel+1<2)then begin skilllevel:=skilllevel+1;skilling:=skilllevel;deaths:=0;levelup(skilllevel);end;end;end;procedure printblood;begin gotoxy(51,24);write(' ');gotoxy(51,24);write(blood);end;procedure printbloods(pb:integer);begin gotoxy(enery[pb],21);write('');gotoxy(enery[pb],22);write('');gotoxy(enery[pb],23);write(eblood[pb]);end;procedure useskill(us:integer);var us1:integer;begin case us of 1:begin time:=time-240000;freezing:=1;for us1:=1 to enerys do if active[us1]=1 then begin textcolor(blue);gotoxy(eheadx[us1],17);write(ehead);gotoxy(earmlx[us1],18);write(earml);gotoxy(earmrx[us1],18);write(earmr);gotoxy(ebodyx[us1],18);write(ebody);gotoxy(elegx[us1],19);write(eleg);textcolor(white);end;end;//case of //2: end;end;begin towards:='left';headx:=40;heady:=17;armlx:=39;armly:=18;armrx:=41;armry:=18;bodyx:=40;bodyy:=18;legx:=40;legy:=19;blood:=100;head:='';arml:='=';armr:='=';body:='';leg:='A';ehead:='';earml:='=';earmr:='=';ebody:='';eleg:='A';clrscr;randomize;gotoxy(30,24);write('towards:',towards);gotoxy(45,24);write('blood:',blood);printplayer(0);skilltime:=1000000;skillactive:='active';gotoxy(60,24);write('skill:',skillactive);repeat if enerys1=0 then begin enerys:=random(8)+1;enerys1:=enerys;steps:=random(60)+enerys;repeat stepstart:=random(75-steps)+1;until(legx>stepstart)and(legx ');gotoxy(legx,14);write(' ');gotoxy(30,25);write(' printplayer(0);if random(5)=1 then begin '); gotoxy(10,25);write('You''ve gotten a bag,open it to added your blood.(press ''o'')');repeat kk:=readkey;until kk='o';gotoxy(10,25);write(' ');if blood+80<100 then blood:=blood+80 else blood:=100;printblood;end;end else begin firststart:=1;printstep;end;for i:=1 to enerys do begin printplayer(i);active[i]:=1;eblood[i]:=100;printbloods(i);end;end;if keypressed then begin kk:=readkey;case kk of 'a':begin towards:='left';if(bodyx-1>stepstart)and(direct(bodyx-1))then begin headx:=headx-1;armlx:=armlx-1;armrx:=armrx-1;bodyx:=bodyx-1;legx:=legx-1;clearplayer(headx+1);printplayer(0);turnside; end;end;'d':begin towards:='right';if(bodyx+1 ');gotoxy(66,24);write(skillactive);useskill(skilling);end;end;time:=time+2000;skilltime:=skilltime+2000;end;if time>=40000 then begin time:=0;if freezing=1 then begin freezing:=0;for i:=1 to enerys do if active[i]=1 then printplayer(i);end;for i:=1 to enerys do if active[i]=1 then begin if enery[i]-headx>0 then etowards:='left' else etowards:='right';if abs(enery[i]-headx)>3 then begin if etowards='left' then begin enery[i]:=enery[i]-1;earmlx[i]:=earmlx[i]-1;earmrx[i]:=earmrx[i]-1;ebodyx[i]:=ebodyx[i]-1;eheadx[i]:=eheadx[i]-1;elegx[i]:=elegx[i]-1;clearplayer(eheadx[i]+1);printplayer(i);end;if etowards='right' then begin enery[i]:=enery[i]+1;earmlx[i]:=earmlx[i]+1;earmrx[i]:=earmrx[i]+1;ebodyx[i]:=ebodyx[i]+1;eheadx[i]:=eheadx[i]+1;elegx[i]:=elegx[i]+1;clearplayer(eheadx[i]-1);printplayer(i);end;if etowards='left' then i1:=1 else i1:=-1;gotoxy(enery[i]+i1,21);write(' ');gotoxy(enery[i]+i1,22);write(' ');gotoxy(enery[i]+i1,23);str(eblood[i],x);for i1:=1 to length(x)do write(' ');printbloods(i);end else begin if etowards='left' then begin gotoxy(earmlx[i]-1,18);write('=');gotoxy(earmlx[i]-1,18);write(' ');if earmlx[i]-1=armrx then blood:=blood-1;if earmlx[i]-1=bodyx then blood:=blood-2;if earmlx[i]-1=armlx then blood:=blood-3;end;if etowards='right' then begin gotoxy(earmrx[i]+1,18);write('=');gotoxy(earmrx[i]+1,18);write(' ');if earmrx[i]+1=armlx then blood:=blood-1;if earmrx[i]+1=bodyx then blood:=blood-2;if earmrx[i]+1=armrx then blood:=blood-3;end;printblood;if blood<=0 then goto 1;end; end;end;time:=time+1;skilltime:=skilltime+1;if(skilltime>=1000000)and(skillactive='not active')then begin skillactive:='active';gotoxy(66,24);write(' ');gotoxy(66,24);write(skillactive);end;if skilltime>=10000000 then skilltime:=8000000;until 1=0;1:clrscr;gotoxy(30,12);write('game over');readln;end.第四篇：pascal競賽試題及答案
第五篇：pascal射擊游戲完整版
點擊咨詢 