第一篇：pascal語法解釋

我是在高一接觸pascal語言，因為參加NOI的需要，順理成章的要使用Turbo Pascal來寫程序了。半年后，我開始想著如何編寫Windows程序，又理所當然的找上Delphi。初見Delphi，除了begin，end讓我覺得倍感親切外，Object Pascal里的增加的面向對象的語法卻讓我很是吃驚，當時的我可根本不懂什么叫面向過程，面向對象；最可惡的是，國內那些教育家們，除了會拿著清華的那本精簡的不能再精簡的pascal教材照本宣科外，似乎再也沒有什么實質性的工作了，傳說中的《Turbo Pascal大全》更是無處可尋，所以關于unit，interface這些Delphi里隨處可見的關鍵字我也很不明白。所幸，其后不久，我得到一本名為《計算機反病毒技術》的書，里面統統都是用Turbo Pascal編寫的源代碼，通過它我迅速明白了早已存在于Turbo Pascal中unit，interface等關鍵字的含義和用法，又以Delphi中的Help文檔為扶手，開始蹣跚學步了。

印象中，國內Delphi作家似乎更偏愛編寫應用實例類的技術書籍，至于語法這種東西，沒有幾個人愿意多去涉及，即使書中必須談及，也是寥寥數筆，匆匆帶過，或者干脆與某本書類似。對Object Pascal語法講解最好，最權威的恐怕就算《Delphi5開發人員指南》了，這本書至今也是備受推崇的。但與如今泛濫的C++書籍相比，Delphi仍然遜色許多，也難怪很多新手特別是從來沒有接觸過pascal語言的新手，在學習Object Pascal時會遇到不少困難。自己的感覺是：在從Turbo Pascal向Delphi過渡的過程中，由于沒有正確的指引，走了很多彎路；由于沒有正確的橋梁，必須要一步實現大跨越。所以，在這里，我提出自己曾經遇見的溝壑，路標性給出我自己的認識和總結，希望給入門的同學們一些幫助。我不打算詳細介紹語法知識，并假設你已經有一點pascal語言和面向對象概念的基礎。要想學習相關詳細知識，我推薦各位一定要閱讀《Delphi開發人員指南》和Delphi Help文檔中的相關章節。

● 記錄體和類

習慣了在一個Program模塊內寫完所有面向過程代碼的我，有幾天的時間一直未能徹底明白在非Unit模塊中，非繼承的自定義類的框架，語法是如何的，VCL源代碼雖然經典，卻過于繁雜，不能讓我迅速掌握根本，我需要一個最簡單又最能說明問題，完整的可運行的代碼，苦于無處尋求答案，只好親自動手，探索對應關系，終成其下兩段代碼。

program TP;{本代碼在Turbo Pascal 7.0下編譯通過} type MyRecord = record {...} end;var MR: MyRecord;procedure Procedure1;begin {Procedure1 Code} end;

{=========== main ===========} begin {以這個begin為標志，主程序開始，其作用相當于C/C++中的main函數} Procedure1;end.是一段及其簡單的包含記錄類型聲明和過程聲明的代碼，二者基本規則如下：用戶自定義的數據類型，需要放在以保留字“type”開頭的代碼段中；過程(procedure)和函數(function)要放在以保留字“var”開頭的代碼段中；最后一個夾在begin和end間的代碼段是主程序的開始，也就是整個程序的入口，作用相當于C/C++里的main函數,請注意，只有在以program保留字開頭的代碼模塊中，這個begin和end才具有程序入口的作用。

另外，在Turbo Pascal中已經支持原始的面向對象，它的聲明關鍵字是Object，與現在我們常見的Class不同。語法如下：

object Field;Field;...Method;

Method;end;

Method允許以下幾種形式：

procedure MethodName(:type);

或者function MethodName(:type):type;

或者constructor MethodName(: type [;:type]);[virtual];

或者destructor MethodName[(: type)];[virtual];

不錯的，構造函數和析構函數都支持virtual，在構造函數中，還有一個有用的東西是Fail函數，當構造函數的初始化失敗時，它可以用來釋放已經分配的資源。遺憾的是，Object里面還沒有區分私有共有。接下來的代碼，是Turbo Pascal的Help文檔中，關于Fail函數的演示代碼，可以讓大家對此有個較深的認識，Turbo Pascal卻是是很強大和優秀的。

type PBase = ^TBase;TBase = object(TObject){在這里就已經出現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.類作為用戶自定義的一種數據類型，其聲明的規則，成員函數、過程的實現方法都符合經典 Pascal的基本規則，唯一不同的是保留字變了，從記錄體變成了類（詳細比較代碼結構和語法規則），這也說明Object Pascal是在經典Pascal的基礎上進行了面向對象內容的語法擴充。當然，內部的運行機制并沒有表面語法擴充這么輕松，可那是編譯器的事情，在這里，我們完全不用理會。差點忘記告訴讀者怎么調試上面的代碼了：在IDE環境主菜單里選擇 File | New | Other，在New Item項里選擇Console Application，這時出現了代碼編輯框，再將上面的代碼貼入，F9，完成！

代碼內的{$APPTYPE CONSOLE}是一個編譯開關，它告訴編譯器，這是控制臺程序，在格式上它與注釋的差別就是那個“$”符號；TMyClass = class(TObject)可以簡寫為

TMyClass = class，表示TMyClass類從TObject類繼承而來，TObject是Delpi中所有對象的祖先，這也是為什么我在代碼中沒有聲明Destroy過程卻仍然能夠使用的原因；Delphi中類的構造很有趣，請注意MyClass := TMyClass.Create這一句，這與C++不同。readln使程序停頓下來，直到用戶按下回車鍵才結束程序退出。更多詳細內容請參考《Delphi開發人員指南》2.17.1節。

上面兩段代碼相互對應，雖然很簡單，不過我卻認為他們在某種程度上很容易讓同學發現由經典Pascal向Object Pascal過渡的一些方法，對Object Pascal的類定義語法有個初步了解，這是很重要的一步。當初我要是能夠看到這兩段代碼，或許能少浪費很多時間了。

● 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。傳統上，我們都將所有代碼集中在一個program模塊中，可是面對更加復雜的功能代碼，正確的劃分功能封裝功能對代碼管理和以后的維護有著重要的作用，而使用unit模塊正好解決了這些問題。其語法規則如下：

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部分用來聲明對外接口，也就是可以被外部引用該文件的程序使用的函數和過程；implementation部分包含接口部分聲明的各種函數、過程具體實現的代碼；begin一直到最后的end之間都是初始化部分，可以為本unit內的各種變量，過程，函數初始化。如果沒有內容需要初始化，那么begin可以省略，但end.必須存在。

在Delphi下經典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部分的關鍵字begin，被Initialization取代了，并且增加了一個finalization部分。Initialization部分的代碼可以這樣寫： initialization begin {do something…} end;也可以這樣寫： initialization {do something…}

finalization部分的功能，有點類似于析構函數，它主要針對本unit模塊中initialization部分初始化的資源進行釋放，并且是在程序結束時運行，如果程序以Halt過程結束了，該部分的程序將不能執行。

Unit模塊中的interface等關鍵字和結構初看似乎有些限制程序員的自由度，但也正是這種語法規定體現出Pascal語言的嚴謹和優美，為減少程序出錯的幾率做出保證。

program相當文章的提綱挈領，unit則是文章的各個段落。Delphi里，program模塊包含在.prj文件中，unit模塊包含在傳統的.pas文件中。這就是為什么在Delphi中我們經常面對的是為各個窗口服務的unit模塊，而非在一個program中寫完所有代碼。不過我在Delpi的Help中看到這樣一句話：In traditional Pascal programming, all source code, including the main program, is stored in.pas files.不知道這算思考角度不同還是算bug，畢竟這種語法并非Delphi中才有，Turbo Pascal程序員也一直在采用這種方法組織程序結構。

給出一個簡單的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 開發人員指南》機械工業出版社 《Inside VCL》李維 電子工業出版社 《Delphi深度歷險》陳寬達 科學出版社 《Pascal精要》網絡下載電子版

Windows參考書籍

《Programming Windows》Charles Petzold 《Windows2000開發人員指南》中國水利水電出版社

Delphi組件參考書我暫時沒有發現特別好的，平時我主要依靠論壇，源代碼，Delphi自帶的Demo和文檔來學習組件的使用。

● 再說點

現在有一些大學取消了Pascal語言課程，去年的ACM大賽也取消了Pascal語言的使用，不禁心寒，啟蒙教育沒有人做了，這些都使得Delphi在學生中的處境更加艱難。在國內的Delphi論壇上，常常見到許多半吊子程序員在享受Delphi的快速開發的時候，嘴巴里還在責備Delphi功能太弱，不能搞什么底層開發，甚至直接責怪Pascal語言，殊不知，在Dos年代，有多少著名軟件使用Pascal開發出來的呢，有多少底層控制程序有著Pascal的身影呢？現在我手頭上還有Pascal編寫的病毒代碼，反病毒代碼，IC芯片控制代碼。

或許正是Delphi的RAD能力降低了程序開發的門檻，讓很多半吊子進入了程序界，RAD開發蒙蔽了許多半吊子編程者（稱呼他們為程序員或許稍欠火候）的眼睛，但是國內的教育界同樣有著不可推卸的責任，選修課開VB的不少，講Delphi的很少，我曾經還遇到過一個從心底里就瞧不起Delphi，不啻談論的老師，而事實上他根本就沒有用過Delphi。我現在常去外國網站，發現國內被爭論不休的問題，在國外早就有人在做，并且做的非常棒。

第二篇：成語解釋例句及出處和語法

1． 一擁而入：

【解釋】：擁：擁擠。一下子全都擁了進去，擠了進去。

【出自】：明·馮夢龍《醒世恒言》卷十五：“眾人一擁而入，迎頭就把了緣拿住，押進里面搜捉，不曾走了一個。”

例句：體育場的大門剛一打開，球迷們就一擁而入。2． 怒氣沖沖： 【解釋】：盛怒的樣子。

【出自】：清·魏秀仁《花月痕》第十二回：“［錢同秀］一手將煙燈砸在地下，說道：‘好好，你們做了一路！’就怒氣沖沖的出來上車。”

【示例】：張學海不等湯阿英說完，就～地質問：‘陶阿毛有啥不同？他不也是工人嗎？’

沖沖：感情激動的樣子。形容非常生氣。例句：不知為什么，他怒氣沖沖地走進了教室。3． 聚精會神：

【解釋】：會：集中。原指君臣協力，集思廣益。后形容精神高度集中。【出自】：漢·王褒《圣主得賢臣頌》：“聚精會神，相得益（章）彰。” 【示例】：看校樣時的～，就和在寫作的時候一樣，因為我的目的要使它沒有一個錯字。◎鄒韜奮《經歷·一個小小的過街樓》 【近義詞】：目不轉睛、專心致志、全神貫注 【反義詞】：心不在焉、神不守舍、心神不定

【語法】：聯合式；作主語、謂語、定語、狀語；含褒義 聚、會：聚集。形容注意力非常集中。

例句：教室里同學們都在聚精會神地聽老師講課。4． 自言自語：

【解釋】：自己一個人低聲嘀咕。

【出自】：元·無名氏《桃花女》第四折：“你這般鬼促促的，在這自言自語，莫不要出城去砍那桃樹嗎？” 自己和自己說話。

例句：在路口經常可以看到一個老人，坐在那里自言自語。5． 千鈞一發：

【解釋】：比喻情況萬分危急。

【出自】：《漢書·枚乘傳》：“夫以一縷之任，系千鈞之重，上懸無極之高，下垂不測之淵，雖甚愚之人，猶知哀其將絕也。”唐·韓愈《與孟尚書書》：“其危如一發引千鈞。”

【示例】：正在～的時刻，一位不知名的解放軍戰士奮不顧身跳進冰冷的河水中，救起了落水兒童。【近義詞】：危在旦夕

【反義詞】：安然無恙、安如磐石

【語法】：主謂式；作謂語、定語；用于人或事十分危急 形容情況十分危急。

例句：就在要撞車的千鈞一發的時候，司機緊急剎住了汽車。6． 精兵簡政：

【解釋】：精減人員，縮減機構。

【出自】：郭沫若《洪波曲》第十四章：“只要肯認真抗戰，這種精兵簡政，分頭并進，倒也似乎更要合理些了。” 【近義詞】：精打細算、縮衣節食 【反義詞】：疊床架屋、尾大不掉

【語法】：聯合式；作主語、賓語、定語；指精減人員，縮減機構

簡：使簡化。

例句：有些單位必須精兵簡政，不斷提高工作效率。7． 五光十色：

【解釋】：形容色彩鮮艷，花樣繁多。

【出自】：南朝梁·江淹《麗色賦》：“五光徘徊，十色陸離。” 【示例】：故宮珍寶館的玻璃柜里，擺著～的稀世奇珍。【近義詞】：五顏六色、萬紫千紅 【反義詞】：色彩單一

【語法】：聯合式；作謂語、定語、狀語；含褒義 例句：一到夜晚，五光十色的燈把廈門裝扮得更加美麗。8． 雨后春筍：

【解釋】：指春天下雨后，竹筍一下子就長出來很多。比喻事物迅速大量地涌現出來。

【出自】：宋·張耒《食筍》詩：“荒林春雨足，新筍迸龍雛。”

【示例】：國內廢科舉，興學校，好象～，努力學習西方。◎毛澤東《論人民民主專政》

形容新生事物大量涌現。

例句：改革開放以來，工廠如雨后春筍般地不斷涌現。9． 琳瑯滿目：

【解釋】：琳瑯：精美的玉石。滿眼都是珍貴的東西。形容美好的事物很多。【出自】：南朝·宋·劉義慶《世說新語·容止》：“今日之行，觸目見琳瑯珠玉。” 【示例】：這些壽禮陳列在坤寧宮的東西廡中，～。◎姚雪垠《李自成》第二卷第三十一章

【近義詞】：金碧輝煌、美不勝收

【反義詞】：瘡痍滿目

【語法】：主謂式；作謂語、定語、狀語；指滿眼都是珍貴的東西 比喻眼前出現了許多精美的事物。

例句：那里展出的的東西琳瑯滿目，使我們的眼睛應接不暇。10． 頂天立地：

【解釋】：頭頂云天，腳踏大地。形容形象高大，氣慨豪邁。

【出自】：宋·釋普濟《五燈會元》卷五十六：“汝等諸人，個個頂天立地。”元·紀君祥《趙氏孤兒》第一折：“我韓厥是一個頂天立地的男兒。” 【示例】：先生是楚國的棟梁，是～的柱石。◎郭沫若《屈原》第三幕 【近義詞】：英姿勃勃、威風凜凜、氣概不凡 【反義詞】：瞻前顧后

【語法】：聯合式；作定語、補語；用于人 形容形象非常高大，氣概豪邁。

例句：他大公無私，真是一個堂堂正正、頂天立地的男子漢。11． 千方百計：

【解釋】：想盡或用盡一切辦法。

【出自】：《朱子語類·論語十七》：“譬如捉賊相似，須是著起氣力精神，千方百計去趕他。”

【示例】：這個老匪開初～想收買這支已經武裝了的工人隊伍，可是工人們堅決拒絕加入匪股。◎曲波《林海雪原》十四 【近義詞】：想方設法

【反義詞】：無計可施、束手無策

【語法】：聯合式；作狀語、賓語；含褒義 方：方法。講：辦法。想盡和用盡各種辦法。

例句：老師千方百計調動我們的學習積極性。》 12． 津津有味：

【解釋】：津津：興趣濃厚的樣子。指吃得很有味道或談得很有興趣。【出自】：漢·王褒《洞簫賦》：“哀悁悁之可懷兮，良醰醰而有味。” 【示例】：話是這樣說，可是談起理論，許寧還是一套套地向道靜談得～，頭頭是道。◎楊沫《青春之歌》第一部第十二章 【近義詞】：興致勃勃

【反義詞】：味同嚼蠟、索然無味、枯燥無味 【語法】：偏正式；作謂語、賓語；含褒義 例句：他正在津津有味地看著一本漫畫書。13． 爭先恐后：

【解釋】：搶著向前，唯恐落后。

【出自】：清·張春帆《宦海》第十四回：“一個個爭先恐后的直搶上來。” 【示例】：在學校舉行的運動會上，各班同學～，奮力爭先。【近義詞】：力爭上游

【語法】：聯合式；作謂語、狀語；形容人的動作等 例句：發令槍一響，運動員們爭先恐后地在跑道上飛奔起來。14． 如饑似渴：

【解釋】：形容要求很迫切，好象餓了急著要吃飯，渴了急著要喝水一樣。【出自】：三國魏·曹植《責躬》計：“遲奉圣顏，如渴如饑。”

【示例】：我～地把那二十幾頁的長文，一口氣讀下去。◎郭沫若《革命春秋·學生時代》

【近義詞】：迫不及待、手不釋卷

【反義詞】：不慌不忙、四平八穩

【語法】：聯合式；作謂語、賓語、定語、狀語；含褒義 比喻要求很迫切，就像餓了急著要吃飯，渴了急著要喝水一樣。例句：同學們如饑似渴地努力學習。15． 興高采烈：

【解釋】：興：原指志趣，后指興致；采：原指神采，后指精神；烈：旺盛。原指文章志趣高尚，言詞犀利。后多形容興致高，精神飽滿。

【出自】：南朝梁·劉勰《文心雕龍·體性》：“步夜俊俠，故興高而采烈。” 【示例】：阿二忽然對于曾滄海的威嚇全沒怕懼，反而～的說起來了。（茅盾《子夜》四）

【近義詞】：歡天喜地、喜氣洋洋 【反義詞】：無精打采、悶悶不樂

【語法】：聯合式；作謂語、定語、狀語；含褒義 興：興致。采：精神。烈：旺盛。形容非常高興的神情。例句：慶“六一”的游園活動中，同學們興高采烈地玩了許多游戲。16． 小心翼翼：

【解釋】：翼翼：嚴肅謹慎。本是嚴肅恭敬的意思。現形容謹慎小心，一點不敢疏忽。

【出自】：《詩經·大雅·大明》：“維此文王，小心翼翼。”

【示例】：母親～地起床做飯，心里欣喜地想，讓兒子多睡一會，不要驚醒他。◎馮德英《迎春花》第二章 翼翼：嚴肅，謹慎的樣子。

例句：他小心翼翼地把花瓶擦干凈，然后輕輕地放在書桌上。17． 煥然一新：

【解釋】：煥然：鮮明光亮的樣子。改變舊面貌，出現嶄新的氣象。

【出自】：唐·張彥遠《歷代名畫記·論鑒識收藏購求閱玩》：“其有晉宋名跡，煥然如新，已歷數百年，紙素彩色未甚敗。”

【示例】：依中國法度，造作旗幟大纛，～。◎清·陳忱《水滸后傳》第十一回

【近義詞】：耳目一新、煥然如新 【反義詞】：依然如故

【語法】：偏正式；作謂語、賓語；含褒義

煥然：鮮明光亮的樣子。形容舊的面貌改變了，呈現出嶄新的面貌。例句：看到我們班煥然一新的精神面貌，校長臉上露出了欣慰的笑容。18． 沁透心脾：

例句：花兒開了，飄來了一陣陣沁透心脾的香味。19． 贊嘆不已：

【解釋】：已：止，完。連聲贊賞不止。

【出自】：清·吳敬梓《儒林外史》第34回：“莊紹光看了，贊嘆不已。” 例句：看到他寫了漂亮的毛筆字，大家贊嘆不已。20． 波瀾壯闊：

【解釋】：原形容水面遼闊。現比喻聲勢雄壯或規模巨大。

【出自】：南朝·宋·鮑照《登大雷岸與妹書》：“旅客貧辛，波路壯闊。” 【示例】：七言詩須～，頓挫激昂，大開開闔耳。◎清·郎廷槐《師友詩傳續錄》

【近義詞】：浩浩蕩蕩、氣勢磅礴 【反義詞】：一潭死水

【語法】：主謂式；作謂語、定語；含褒義，用于文章、運動等

例句：面對波瀾壯闊的大海，他十分激動。21． 初出茅廬：

【解釋】：茅廬：草房。原比喻新露頭腳。現比喻剛離開家庭或學校出來工作。缺乏經驗。

【出自】：明·羅貫中《三國演義》第三九回：“直須驚破曹公膽，初出茅廬第一功。”

【示例】：那傻小子是“～”，我們準可以掃光他！◎魯迅《彷惶·高老夫子》 【近義詞】：初露頭角、乳臭未干、初露鋒芒 【反義詞】：老成持重、老馬識途

【語法】：動賓式；作謂語、賓語、定語；用于剛出道 例句：他雖然初出茅廬，工作起來卻是有條有理。22． 舉世聞名：

【解釋】：舉世：全世界。全世界都知道。形容非常著名。

【出自】：北齊·顏之推《顏氏家訓·雜藝》：“王逸少風流才士，蕭散名人。舉世但知其書，翻以能自蔽也。”

【示例】：中國的象牙雕刻是杰出的，北京的山水人物和廣州的花卉動物牙雕，尤其～。◎秦牧《高高翹起的象鼻子》 【近義詞】：遐邇聞名、譽滿天下 【反義詞】：默默無聞

【語法】：主謂式；作謂語、賓語、定語；含褒義 例句：中國的萬里長城是舉世聞名的偉大建筑。23． 攻無不克：

【解釋】：克：攻下。沒有攻占不下來的。形容力量無比強大。

【出自】：《戰國策·秦策二》：“是知秦戰未嘗不勝，攻未嘗不取，所當未嘗不

破也。”

【示例】：中國人民解放軍～，戰無不勝，所向披靡。【近義詞】：戰無不勝

【語法】：兼語式；作謂語、定語；形容力量無比強大

例句：他領導的科研小組，十幾年來以攻無不克的氣勢，解決了一個又一個難題。

24． 胸有成竹：

【解釋】：原指畫竹子要在心里有一幅竹子的形象。后比喻在做事之前已經拿定主意。

【出自】：宋·蘇軾《文與可畫筼筜谷偃竹記》：“故畫竹，必先得成竹于胸中。” 【示例】：毛委員～，決定馬上向南去追趕部隊。◎陳伯鈞《毛主席率領我們上井崗山》 成：完成，現成。

例句：這次考試，我胸有成竹，一定能取得好成績。25． 迫不及待：

【解釋】：迫：緊急。急迫得不能等待。形容心情急切。

【出自】：清·李汝珍《鏡花緣》第六回：“且系酒后游戲，該仙子何以迫不急待。”

【示例】：他～地推開門，走進屋去。【近義詞】：刻不容緩、急不可待 【反義詞】：待機而動

【語法】：偏正式；作謂語、狀語；形容心情急迫 例句：他那迫不及待的樣子，引起了一陣哄堂大笑。26． 別具一格：

【解釋】：別：另外。另有一種獨特的風格。

【出自】：清·呂留良《與施愚山書》：“詠見贈詩，風力又別具一格。” 【示例】：這個畫家的人物畫拙中見巧，～。【近義詞】：標新立異、別開生面、別有風味 【反義詞】：如出一轍、千篇一律、依樣葫蘆

【語法】：動賓式；作謂語、定語；用于文學、藝術、書法等 別：別處的，獨特的。

例句：他寫的這本書構思巧妙，別具一格。27． 不假思索：

【解釋】：假：假借，依靠。形容做事答話敏捷、熟練，用不著考慮。【出自】：宋·黃榦《黃勉齋文集》卷四：“戒懼謹獨，不待勉強，不假思索，只是一念之間，此意便在。”

【示例】：華安～，援筆立就，手捧所做呈上。◎明·馮夢龍《警世通言》卷二十六

【近義詞】：一揮而就、脫口而出、一目十行 【反義詞】：慢條斯理、深思熟慮

【語法】：動賓式；作謂語、定語、狀語；指懶于思考，不負責任的辦事 例句：他復習得很全面，對于老師提的問題，他都能不假思索就回答出來。28． 神機妙算：

【解釋】：神、妙：形容高明；機、算：指計謀。驚人的機智，巧妙的計謀。形容善于估計復雜的變化的情勢，決定策略。

【出自】：《后漢書·王渙傳》：“又能以譎數發擿奸伏，京師稱嘆，以為渙有神算。”李賢注：“智算若神也。”

【示例】：（周）瑜大驚，慨然嘆日：‘孔明～，吾不如也。’ ◎明·羅貫中《三

國演義》第四十六回 【近義詞】：錦囊妙計

【反義詞】：無計可施、束手無策

【語法】：聯合式；作謂語、賓語、定語；含褒義 例句：諸葛亮草船借箭，真是神機妙算啊！29． 理直氣壯：

【解釋】：理直：理由正確、充分；氣壯：氣勢旺盛。理由充分，說話氣勢就壯。【出自】：明·馮夢龍《古今小說》卷三十一：“便捉我到閻羅殿前，我也理直氣壯，不怕甚的。”

【示例】：只要我們～，怕他怎的！◎清·李寶嘉《官場現形記》第十七回 【近義詞】：振振有詞、義正言辭 【反義詞】：強詞奪理、理屈詞窮

【語法】：聯合式；作謂語、定語、狀語；含褒義 例句：他的話理直氣壯，說得大家不知如何回答。30． 完璧歸趙：

【解釋】：本指藺相如將和氏璧完好地自秦送回趙國。后比喻把原物完好地歸還本人。

【出自】：《史記·廉頗藺相如列傳》：“城入趙而璧留秦；城不入，臣請完璧歸趙。”

【示例】：請放心，不要多久，這兩件東西定會～。此事放在弟身上好啦。◎姚雪垠《李自成》第一卷第二十六章 【近義詞】：物歸原主 【反義詞】：支離破碎

【語法】：主謂式；作謂語、賓語；指物歸原主

例句：現在我把這本書完璧歸趙，請你查收。31． 同心協力：

【解釋】：心：思想；協：合。團結一致，共同努力。

【出自】：漢·賈誼《過秦論》：“且天下嘗同心并力攻秦矣，然困于險阻而不能進者，豈勇力智慧不足哉？”《周書·崔謙傳》：“然后與宇文行臺，同心協力，電討不庭，則桓文之勛，復興于茲日矣。” 【示例】：只要我們大家～，就沒有克服不了的困難。【近義詞】：齊心協力

【反義詞】：勾心斗角，同床異夢

【語法】：聯合式；作謂語、定語、狀語；含褒義 例句：只要我們同心協力，就一定能戰勝困難。32． 開卷有益：

【解釋】：開卷：打開書本，指讀書；益：好處。讀書總有好處。【出自】：晉·陶潛《與子儼等疏》：“開卷有得，便欣然忘食。” 【反義詞】：讀書無用

【語法】：主謂式；作賓語、定語、分句；指讀書總有好處 例句：要做到開卷有益，首先就要選擇讀好的書。33． 各抒己見：

【解釋】：抒：抒發，發表。各人充分發表自己的意見。

【出自】：唐·李翱《李文權文集·陵廟日時朔祭議》：“先儒穿鑿，各伸己見，皆托古圣賢之名以信其語，故其所記各不同也。”

【示例】：據我主意，何不～，出個式子，豈不新鮮些？ ◎清·李汝珍《鏡花緣》第七十四回

【近義詞】：各持己見、各抒所見

【語法】：動賓式；作謂語；指各人充分發表自己的意見 例句;在班級會議上，大家各抒己見，氣氛熱烈。34． 忐忑不安：

【解釋】：忐忑：心神不定。心神極為不安。

【出自】：清·吳趼人《糊涂世界》卷九：“兩道聽了這話，心里忐忑不定。” 【示例】：母親謹慎地窺視著一切動靜，心里～，她怕有人出賣星海。◎馮德英《苦菜花》第十章

【近義詞】：惶惶不安、坐立不安 【反義詞】：心安理得、悠然自得

【語法】：聯合式；作謂語、定語、狀語；含貶義

例句：昨天晚上我忘了背課文，今天上語文課時，我忐忑不安，生怕被老師叫到。

35． 心驚肉跳：

【解釋】：形容擔心災禍臨頭，恐慌不安。

【出自】：元·無名氏《爭報恩》第三折：“不知怎么，這一會兒心驚肉戰，這一雙好小腳兒再走也走不動了。”

【示例】：在那個悶熱的夜晚，發生了那種淑嫻現在想起還～的事情，使她的精神受到極大的創傷。◎馮德英《迎春花》第十五章 【近義詞】：心膽俱裂、魂飛魄散 【反義詞】：神色不驚、鎮定自若

【語法】：聯合式；作謂語、賓語、補語；形容人極度驚懼恐慌 驚：驚慌。

例句：做了壞事的人，一遇到警察就會嚇得心驚肉跳。

36． 自作自受：

【解釋】：自己做了蠢事壞事，自己倒霉。

【出自】：宋·釋普濟《五燈會元》：“僧問金山穎：‘一百二十斤鐵枷，教阿誰擔？’穎曰：‘自作自受。’”

【示例】：他這會子不說保養著些，還要捉弄人；明兒病了，叫他～。◎清·曹雪芹《紅樓夢》第五十一回

【近義詞】：自食其果、自討苦吃、自投羅網 【語法】：連動式；作謂語、賓語；含貶義 例句：他今天落到這樣的下場，完全是自作自受。37． 大名鼎鼎：

【解釋】：鼎鼎：盛大的樣子。形容名氣很大。

【出自】：清·李寶嘉《官場現形記》第二十四回：“你一到京打聽人家，像他這樣大名鼎鼎，還怕有不曉得的。”

【示例】：當時有華靈氈士者，～之學者。◎清·梁啟超《格致學沿革考略》 【近義詞】：赫赫有名、名揚天下、舉世聞名、鼎鼎大名 【反義詞】：無名鼠輩、無聲無息

【語法】：主謂式；作定語；用于人和事物 例句：他現在已是一個大名鼎鼎的歌手了。38． 人聲鼎沸：

【解釋】：鼎：古代煮食器；沸：沸騰。形容人群的聲音吵吵嚷嚷，就象煮開了鍋一樣。

【出自】：明·馮夢龍《醒世恒言》卷十：“一日午后，劉方在店中收拾，只聽得人聲鼎沸。”

【示例】：廣場這時已是一片鑼鼓喧天，～。

【近義詞】：人歡馬叫、震耳欲聾 【反義詞】：萬籟俱寂、鴉雀無聲

【語法】：主謂式；作謂語、賓語、定語；比喻人聲嘈雜 例句：工地上，人聲鼎沸，一派繁忙緊張的景象。39． 車水馬龍：

【解釋】：車象流水，馬象游龍。形容來往車馬很多，連續不斷的熱鬧情景。【出自】：《后漢書·明德馬皇后紀》：“前過濯龍門上，見外家問起居者，車如流水，馬如游龍。”

【示例】：花天酒地，鬧個不休，～，日無暇晷。◎清·吳趼人《二十年目睹之怪現狀》第一回

【近義詞】：門庭若市、絡繹不絕 【反義詞】：門可羅雀、門庭冷落

【語法】：聯合式；作謂語、定語；形容繁華熱鬧的景象 例句：節日里，大街上車水馬龍，熱鬧極了。40． 摩肩接踵：

【解釋】：肩碰著肩，腳碰著腳。形容人多擁擠。

【出自】：《戰國策·齊策一》：“臨淄之途，車轂擊，人肩摩。”《宋史·李顯忠傳》：“入城，宣布德意，不戮一人，中原歸附者踵接。” 【示例】：節日的公園里，游人～，十分擁擠。【近義詞】：熙熙攘攘、熙來攘往 【反義詞】：地廣人稀

【語法】：聯合式；作謂語、定語、狀語；形容人多時 例句：春節前幾天的菜市場上，人們摩肩接踵，忙著買東西。41． 熙熙攘攘：

【解釋】：熙熙：和樂的樣子；攘攘：紛亂的樣子。形容人來人往，非常熱鬧擁擠。

【出自】：《史記·貨殖列傳》：“天下熙熙，皆為利來；天下攘攘，皆為利往。” 【示例】：共青團員都打扮成去遠足的樣子，每人提了個提包，有的是掛包，～的會集在廠里的球場上。◎茹志娟《新當選的團支書》 【近義詞】：人山人海、水泄不通 【反義詞】：門前冷落、門可羅雀

【語法】：聯合式；作謂語、定語；形容人多喧鬧

例句：節日期間，公園里熙熙攘攘，人們笑逐顏開，真熱鬧啊呀！42． 一絲不茍：

【解釋】：茍：茍且，馬虎。指做事認真細致，一點兒不馬虎。

【出自】：清·吳敬梓《儒林外史》第四回：“上司訪知，見世叔一絲不茍，升遷就在指日。”

【示例】：我們在學習上，應有～的精神。【近義詞】：小心謹慎、小心翼翼、不茍言笑 【反義詞】：粗枝大葉、馬馬虎虎

【語法】：主謂式；作謂語、定語、補語；含褒義

例句：陳老師無論做什么事情都是那么認真負責，一絲不茍。43． 惟妙惟肖：

【解釋】：描寫或模仿的非常逼真。

【示例】：她扮演一位英雄的母親，言談舉止，無不惟妙惟肖。【近義詞】：栩栩如生 【反義詞】：畫虎類犬

【語法】：聯合式；作謂語、定語、補語；含褒義

妙：好。肖：想像。

例句：這幅畫上的幾只小貓畫得惟妙惟肖，好像一叫這會跑出來似的。44． 鄭人買履：

【解釋】：用來諷刺只信教條，不顧實際的人。【出自】：《韓非子·外儲說左上》 【近義詞】：生搬硬套、死搬教條

【語法】：主謂式；作定語、狀語；含貶義

例句：我們做任何事情時都要根據實際情況，靈活處理，否則就會鬧鄭人買履的笑話。45． 自相矛盾：

【解釋】：矛：進攻敵人的刺擊武器；盾：保護自己的盾牌。比喻自己說話做事前后抵觸。

【出自】：《韓非子·難一》：“楚人有鬻盾與矛者，譽之曰：‘吾盾之堅，莫之能陷也。’又譽其矛曰：‘吾矛之利，于物無不陷也。’或曰：‘以子之矛陷子之盾，何如？’其人勿能應也。” 【示例】：這些理論～。

例句：說話做事不能前后抵觸，要不就會自相矛盾。46． 了如指掌：

【解釋】：了：明白；指掌：指著手掌。形容對事物了解得非常清楚，象把東西放在手掌里給人家看一樣。

【出自】：《論語·八佾》：“或問禘之說。子曰：‘不知也；知其說者之于天下也，其如示諸斯乎！’指其掌。”何晏集解引包咸曰：“孔子謂或人言知禘禮之說者，于天下之事，如指示掌中之物，言其易了。”

【示例】：只這一相形之下，美丑高低，便～了。◎聞一多《冬夜評論》

【近義詞】：一目了然、一清二楚、洞若觀火 【反義詞】：疑團莫釋、一團漆黑

【語法】：偏正式；作謂語；指對事物十分了解

例句：陳教師教了我們班四年了，他對每一個同學的情況真是了如指掌啊！47． 不動聲色：

【解釋】：聲：言談；色：臉色。在緊急情況下，說話、神態仍跟平時一樣沒有變化。形容非常鎮靜。

【出自】：宋·歐陽修《相州晝錦堂記》：“垂紳正笏，不動聲色，而措天下于泰山之安。”

【示例】：他也～，勤勤慎慎辦他的公事。◎清·李寶嘉《官場現形記》第十二回

【近義詞】：不露聲色、無動于衷、泰然自若 【反義詞】：不知所措、失魂落魄、手足無措

【語法】：動賓式；作謂語、定語、狀語；形容在緊急情況下不改變聲色 例句：接完電話，他不動聲色地走了出去。48． 若無其事：

【解釋】：象沒有那回事一樣。形容遇事沉著鎮定或不把事情放在心上。【出自】：馮德英《苦菜花》第三章：“王柬芝若無其事地閂上門，又叫她點著燈，他那雙眼睛四處巡視著。” 【近義詞】：不動聲色、泰然自若 【反義詞】：六神無主、張皇失措

【語法】：動賓式；作謂語、定語、狀語；指人的態度

例句：我們都在緊張地復習準備考試，他卻若無其事地看漫畫書。49． 無與倫比：

【解釋】：倫比：類比，匹敵。指事物非常完美，沒有能跟它相比的。【出自】：唐·韓愈《論佛骨表》：“數千百年以來，未有倫比。” 【示例】：在這段時間里，他受到祖國人民～的最熱情的接待。◎魏巍《東方·歸來》

【近義詞】：無可比擬、前所未有 【反義詞】：不相上下、同日而語

【語法】：復雜式；作謂語、定語；含褒義

50． 星羅棋布：

【解釋】：羅：羅列；布：分布。象天空的星星和棋盤上的棋子那樣分布著。形容數量很多，分布很廣。

【出自】：漢·班固《西都賦》：“列卒周匝，星羅云布。”

【示例】：到了晚上，那電氣燈，自來火，～，照耀得徹夜通明，光輝如同白晝。◎清·彭養鷗《黑籍冤魂》第十五回 【近義詞】：浩如煙海、漫山遍野 【反義詞】：寥若晨星

【語法】：聯合式；作謂語、定語、狀語；形容數量多分布廣 例句：大大小小的商店星羅棋布，熱鬧非凡。51． 美不勝收：

【解釋】：勝：盡。美好的東西很多，一時看不過來。

【出自】：清·錢泳《履園叢話·藝能·治庖》：“惟魚之一物，美不勝收。” 【示例】：展覽館里展出的各種工藝品琳瑯滿目，～。【近義詞】：琳瑯滿目 【反義詞】：不堪入目

【語法】：主謂式；作謂語、定語、補語；含褒義 例句：景區里的石雕美不勝收。

第三篇：pascal編程基礎練習題

pascal編程基礎練習題

一、不定項選擇和填空題

１、下列關于程序語言的敘述，不正確的是（）

Ａ、編寫機器代碼不比編寫匯編代碼容易

Ｂ、高級語言需要編譯成目標代碼或通過解釋器解釋后才能被CPU執行

Ｃ、同樣一段高級語言程序通過不同的編譯器可能產生不同的可執行程序

Ｄ、匯編代碼可被CPU直接運行

Ｅ、不同的高級語言語法略有不同

２、下列哪一種程序設計語言是解釋執行的（）

Ａ、Pascal

Ｂ、GWBASIC

Ｃ、C++

Ｄ、FORTRAN ３、解釋程序的功能是（）

Ａ、將高級語言程序轉換為目標程序

Ｂ、將匯編語言程序轉換為目標程序

Ｃ、解釋執行高級語言程序

Ｄ、解釋執行匯編語言程序

４、下列中沒有語法錯誤的PASCAL程序首都是（）

Ａ、PROGRAM A1;

Ｂ、PROGRAM A1(0utPut)

Ｃ、PROGRAM(Input,OutPut);

Ｄ、PROGRAM A1(Input OutPut);５、結構化程序的結構由三種基本結構組成，下面哪個不屬于這三種基本結構（）

Ａ、順序結構

Ｂ、輸入輸出結構構

Ｃ、分支結構

Ｄ、循環結構

６、Pascal程序必須包括（）

Ａ、程序首部、說明部分、語句部分

Ｂ、程序首部、說明部分

Ｃ、說明部分、語句部分

Ｄ、程序首部、語句部分

７、標準Pascal程序說明部分的正確順序是（）

Ａ、LABEL—CONST—VAR—TYPE

Ｂ、VAR—CONST—LABEL—TYPE

Ｃ、LABEL—CONST—TYPE—VAR

Ｄ、CONST—VAR—TYPE—LABEL ８、下面對Pascal程序組成結構的描述錯誤的是（）

Ａ、程序體可以為空

Ｂ、程序的注釋部分只能寫在程序中一條語句的最后

Ｃ、程序首都的參數部分可有可無

Ｄ、一個完整的PASCAL程序的主程序只能有一個

９、要編寫并執行—個PASCAL程序，—般的步驟是（）

Ａ、①用編輯軟件編寫源程序

②用PASCAL的編譯程序把源程序轉換成目標程序

③用連接程序把目標程序轉換為可執行程序

④運行可執行程序

Ｂ、①用編輯軟件編寫源程序

②修改和調試源程序

③用PASCAL的編譯程序把源程序轉換成可執行程序

④運行可執行程序

Ｃ、①用編輯軟件編寫源程序

②用連接程序把源程序轉換成可執行程序

③試運行可執行程序

④修改后再運行可執行程序

Ｄ、①用編輯軟件編寫源程序

②用連接程序把源程序轉換為目標程序

③用PASCAL的編譯程序把目標程序轉換為可執行程序

④運行可執行程序

１０、PASCAL源程序中不止確的注釋語句是（）

Ａ、用一對“{”和“}”括起來的字符串

Ｂ、用一對“/*”和“*/”括起來的字符串

Ｃ、用—對“(*”和“*)”括起來的字符串

Ｄ、A)或 B)１１、以下正確的PASCAL實數是（）

Ａ、0.56E2.5Ｂ、2.56E

2Ｃ、.318EＤ、34.E5 Ｅ、EＦ、3E-Ｇ、.1

5Ｈ、15.１２、每個Pascal程序的分程序中都必須包括（）

Ａ、變量說明、語句

Ｂ、語句

Ｃ、類型定義、變量說明、語句

Ｄ、常量說明、變量說明、語句 １３、下列中合法的Pascal標識符是（）

Ａ、Char set

Ｂ、RECORD

Ｃ、Abs

Ｄ、π

Ｅ、A1B2C3 Ｆ、FOR

Ｇ、2ab

Ｈ、a[1] １４、設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 １５、下列表達式中，其值為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;

設各變量均已賦值，下列中錯誤的賦值語句是（）

Ａ、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 １８、設全集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的結果是（）

Ａ、7

Ｂ、3Ｃ、1Ｄ、4 ２０、已知a、b、c、d、e、f、g均為整數變量，其值分別為2、4、6、8、10、12、14，若輸出結果為

4

10

14

則輸出語句應是（）

Ａ、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)２１、把整數7轉換為字符‘7’的表達式是哪一個（）

Ａ、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;２３、以下運算符中運算優先級最高的是（）

Ａ、＋

Ｂ、OR

Ｃ、>=

Ｄ、DIV ２４、已知有如下說明：

VAR

a,b:Integer;

c,d:Real;

下面賦值語句合法的是（）

Ａ、c:=a+b

Ｂ、a:=Trunc(c)

Ｃ、a:=a+b/c

Ｄ、b:=a div d ２５、設有變量說明：VAR s:(C,G,A,J,K);則函數Succ(A)的取值是（）

Ａ、G

Ｂ、3Ｃ、J

Ｄ、B ２６、表達式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是同類型簡單變量，且都已有互不相同的值，執行下列語句

b:=a;

a:=c;

d:=a;

d:=b;

后，其值相等的變量是（）

Ａ、a,d

Ｂ、a,c

Ｃ、c,b

Ｄ、b,d ２９、下面合法的常量是（）

Ａ、.2

5Ｂ、“RED”

Ｃ、'%'

Ｄ、3E-2.5 ３０、設a、b、c、d、e均為整型變量，且s=

13、b=

2、c=

10、d=

3、e=2，則表達式a-b*c DIV d MOD e的值是：（）

Ａ、1

3Ｂ、-7

Ｃ、1

1Ｄ、0

信息學奧賽pascal程序設計復習題

一、讀下面程序段，請寫出程序運行結果。read(a,b)if a<=b then begin t:=a;a:=b;b:=t;end;else read(b,a)writeln(‘a+b=’,a+b);end.輸入：4，2，3，1 輸出：

二、編程題

1、編程將能被2、3整除，但被5除余1的最小自然數找出來。

2、已知某數是2，3，5的倍數，被11除余10，被13除余7，被17除余13。求滿足條件的最小自然數。（14684）

3、在屏幕上讀入一個四位數，將千百十個位上的數打印出來。

4、求滿足下列條件的三位數。(1)它的各位數字不同且不為零。

(2)這個數等于所有由它的各個數字所組成的兩位數的和。

5、在屏幕上讀入十個整數，并打印出來，并計算他們的和和平均數。

6、將一個不大于7位的自然數X的各位數字分離，并按從高位往低位的順序分行打印。

7、將一個不大于2147483647的自然數X的各位數字分離，并按從高位到低位的順序分行打印出來。

8、輸入30個數a1,a2,a3,?a30,計算x和y的值。

9、已知x=a1+a2+?+a30, y=a1+a2+?+a15-a16-a17?-a30.分別輸入一個班30個學生的語文成績，數學成績，英語成績。求出每位學生的總分和平均分。

第四篇：pascal競賽試題及答案

一、單項選擇題（共20題，每題1.5分，共計30分。每題有且僅有一個正確答案。）

1．在以下各項中，（）不是CPU的組成部分。

A．控制器

B．運算器

C．寄存器

D．主板

2．在關系數據庫中，存放在數據庫中的數據的邏輯結構以（）為主。

A．二叉樹

B．多叉樹

C．哈希表

D．二維表

3．在下列各項中，只有（）不是計算機存儲容量的常用單位。

A．Byte

B．KB

C．UB

D．TB

4．ASCII碼的含義是（）。

A．二→十進制轉換碼

B．美國信息交換標準代碼

C．數字的二進制編碼

D．計算機可處理字符的唯一編碼

5．一個完整的計算機系統應包括（）。

A．系統硬件和系統軟件

B．硬件系統和軟件系統

C．主機和外部設備

D．主機、鍵盤、顯示器和輔助存儲器

6．IT的含義是（）。

A．通信技術

B．信息技術

C．網絡技術

D．信息學

7．LAN的含義是（）。

A．因特網

B．局域網

C．廣域網

D．城域網

8．冗余數據是指可以由其它數據導出的數據。例如，數據庫中已存放了學生的數學、語文和英語的三科成績，如果還存放三科成績的總分，則總分就可以看作冗余數據。冗余數據往往會造成數據的不一致。例如，上面4個數據如果都是輸入的，由于操作錯誤使總分不等于三科成績之和，就會產生矛盾。下面關于冗余數據的說法中，正確的是（）。

A．應該在數據庫中消除一切冗余數據

B．用高級語言編寫的數據處理系統，通常比用關系數據庫編寫的系統更容易消除冗余數據

C．為了提高查詢效率，在數據庫中可以保留一些冗余數據，但更新時要做相容性檢驗

D．做相容性檢驗會降低效率，可以不理睬數據庫中的冗余數據

9．在下列各軟件，不屬于NOIP競賽（復賽）推薦使用的語言環境有（）。

A．gcc

B．g++

C．Turbo C

D．Free Pascal

10．以下斷電后仍能保存數據的有（）。

A．硬盤

B．高速緩存

C．顯存

D．RAM 11．在下列關于計算機語言的說法中，正確的有（）。

A．高級語言比匯編語言更高級，是因為它的程序的運行效率更高

B．隨著Pascal、C等高級語言的出現，機器語言和匯編語言已經退出了歷史舞臺

C．高級語言比匯編語言程序更容易從一種計算機上移植到另一種計算機上

D．C是一種面向對象的高級計算機語言

12．近20年來，許多計算機專家都大力推崇遞歸算法，認為它是解決較復雜問題的強有力的工具。在下列關于遞歸算法的說法中，正確的是（）。

A．在1977年前后形成標準的計算機高級語言“FORTRAN77”禁止在程序使用遞歸，原因之一是該方法可能會占用更多的內存空間

B．和非遞歸算法相比，解決同一個問題，遞歸算法一般運行得更快一些

C．對于較復雜的問題，用遞歸方式編程一般比非遞歸方式更難一些

D．對于已經定義好的標準數學函數 sin(x)，應用程序中的語句“y=sin(sin(x));”就是一種遞歸調用

13．一個無法靠自身的控制終止的循環成為“死循環”，例如，在C語言程序中，語句“while(1)printf(“*”);”就是一個死循環，運行時它將無休止地打印*號。下面關于死循環的說法中，只有（）是正確的。

A．不存在一種算法，對任何一個程序及相應的輸入數據，都可以判斷是否會出現死循環，因而，任何編譯系統都不做死循環檢查

B．有些編譯系統可以檢測出死循環

C．死循環屬于語法錯誤，既然編譯系統能檢查各種語法錯誤，當然也應該能檢查出死循環

D．死循環與多進程中出現的“死鎖”差不多，而死鎖是可以檢測的，因而，死循環也可以檢測的14．在Pascal語言中，表達式（23 or 2 xor 5）的值是（）。

A．18

B．1

C．23

D．32

15．在Pascal語言中，判斷整數a等于0或b等于0或c等于0的正確的條件表達式是（）。

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．地面上有標號為A、B、C的三根柱，在A柱上放有10個直徑相同中間有孔的圓盤，從上到下依次編號為1，2，3??，將A柱上的部分盤子經過B柱移入C柱，也可以在B柱上暫存。如果B柱上的操作記錄為“進、進、出、進、進、出、出、進、進、出、進、出、出”。那么，在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．與十進制數1770對應的八進制數是（）。

A．3350

B．3351

C．3352

D．3540

18．設A=B=True，C=D=False，一下邏輯運算表達式值為假的有（）。

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 的結果是（）。A．（8332）10

B．（208A）16

C．（100000000110）2

D．(20212)8

20．已知7個節點的二叉樹的先根遍歷是1 2 4 5 6 3 7（數字為節點的編號，以下同），中根遍歷是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

回復

楓葉寒霜

二、問題求解（共2題，每題5分，共計10分）。

1、（子集劃分）將n個數（1，2，?，n）劃分成r個子集。每個數都恰好屬于一個子集，任何兩個不同的子集沒有共同的數，也沒有空集。將不同劃分方法的總數記為S(n,r)。例如，S(4,2)=7，這7種不同的劃分方法依次為{(1),(234)}，{(2),(134)}，{(3),(124)}，{(4),(123)}，{(12),(34)}，{(13),(24)}，{(14),(23)}。當n=6，r=3時，S(6,3)=______________。

（提示：先固定一個數，對于其余的5個數考慮S(5,3)與S(5,2)，再分這兩種情況對原固定的數進行分析。）

2、（最短路線）某城市的街道是一個很規整的矩形網絡（見下圖），有7條南北向的縱街，5條東西向的橫街。現要從西南角的A走到東北角的B，最短的走法共有多少種？___________(圖畫不了)

三、閱讀程序寫結果（共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.{注：本例中，給定的輸入數據可以避免分母為0或數組元素下表越界。} 輸入：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

回復

楓葉寒霜

輸入：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個方格組成的棋盤中恰有一個方格與其它方格不同（圖中標記為-1的方格），稱之為特殊方格。現用L型（占3個小方格）紙片覆蓋棋盤上除特殊方格的所有部分，各紙片不得重疊，于是，用到的紙片數恰好是（4 k-1）/3。在下表給出的一個覆蓋方案中，k=2，相同的3各數字構成一個紙片。

下面給出的程序使用分治法設計的，將棋盤一分為四，依次處理左上角、右上角、左下角、右下角，遞歸進行。請將程序補充完整。

(圖畫不了...郁悶)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=tc+s)then chessboard(tr,tc+s,dr,dc,s)

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

回復

222.187.96.* 請問有答案嗎？

6樓

2007-12-13 10:57

回復

楓葉寒霜

NOIP2007年普及組（Pascal語言）參考答案與評分標準

一、單項選擇題：（每題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

三、閱讀程序寫結果

1.15, 46（對1個數給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分)

（說明：以下各程序填空可能還有一些等價的寫法，各省可請本省專家審定和上機驗證，不一定上報科學委員會審查）

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)

第九屆全國青少年信息學奧林匹克聯賽初賽試題及答案

(普及組PASCAL語言 二小時完成)●● 全部試題答案均要求寫在答卷紙上，寫在試卷紙上一律無效 ●● 一．選擇一個正確答案代碼(A／B／C／D／E)，填入每題的括號內(每題1．5分，共30分)1．下列計算機設備中，既是輸入設備，又是輸出設備的是()。A)鍵盤 B)觸摸屏 C)掃描儀 D)投影儀 E)數字化儀 2．下列分辨率的顯示器所顯示出的圖像，最清晰的是()。A)800*600 B)1024*768 C)640*480 D)1280*1024 E)800*1000 3．下列說法中，正確的是()。

A)在內存中，可執行程序用二進制碼表示，源程序用八進制表示。B)程序和數據在內存中都是用二進制碼表示的。C)內存中數據的存取是以二進制位為單位的。D)中央處理器CPU執行的每條指令的長度都不同。

E)一般來說，在計算機內部，中文信息用十六進制表示，英文信息用八進制表示。

4．下列說法中，錯誤的是()。

A)程序是指令的序列，它有三種結構：順序、分支和循環。B)地址總線決定了中央處理器CPU所能訪問的最大內存空間的大小。C)中央處理器CPU內部有寄存器組，用來存儲數據。D)不同廠家生產的CPU所能處理的指令集不一定相同。E)數據傳輸過程中不可能會出錯。

5．CPU訪問內存的速度比訪問下列哪個存儲設備要慢()。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：//www.tmdps.cn 7．數字圖像文件可以用下列哪個軟件來編輯()。A)畫筆(Paintbrush)B)記事簿(Notepad)C)Recorder D)WinRAR E)MidiSoft 8．下列哪個軟件不是操作系統軟件的名字()。A)Windows XP B)DOS C)Linux D)OS／2 E)Arch／Info 9．下列哪個不是個人計算機的硬件組成部分()。A)主板 B)操作系統 C)電源 D)硬盤 E)軟驅 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．十進制數2003等值于二進制數()。

A)11111010011 B)10000011 C)110000111 D)010000011l E)1111010011 13．運算式(2008)10－(3723)8的結果是()。

A)(-1715)10 B)(5)10 C)(-5)16 D)(111)2 E)(3263)8 14．下列關于程序語言的敘述，不正確的是()。A)編寫機器代碼不比編寫匯編代碼容易。

B)高級語言需要編譯成目標代碼或通過解釋器解釋后才能被CPU執行。C)同樣一段高級語言程序通過不同的編譯器可能產生不同的可執行程序。D)匯編代碼可被CPU直接運行。E)不同的高級語言語法略有不同。

15．假設A=true，B=false，C=true，D=true，邏輯運算表達式A∧B∨C∧D的值是()。A)true B)false C)0 D)1 E)NULL 16．一個高度為h的二叉樹最小元素數目是()。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)，第一個進入隊列的元素是13，則第五個出隊列的元素是()。

A)5 B)41 C)77 D)13 E)18 18．下列關于文件的敘述，不正確的是()。A)一個可執行程序其實也是一個文件。B)文件可大可小，大的文件一張軟盤裝不下。

C)一個文件夾下面可以有兩個同名的文件，只要它們的大小不同就行了。D)文件的創建日期和最新修改日期可以在資源管理器中看到。E)某些文件的內容可以用記事本(Notepad)看到。19．活動硬盤的容量比固定硬盤的容量()。A)大 B)小 C)相等 D)不一定大 E)大致相等 20．IP地址是一個()位二進制碼。A)8 B)16 C)32 D)64 E)12 二．問題求解(每題5分，共10分)1．現在市場上有一款汽車A很熱銷，售價是2萬美元。汽車A每加侖汽油可以行駛20英里。普通汽車每年大約行駛12000英里。油價是每加侖1美元。不久我公司就要推出新款節油汽車B，汽車B每加侖汽油可以行駛30英里。現在我們要為B制定價格(它的價格略高于A)：我們預計如果用戶能夠在兩年內通過節省油錢把B高出A的價錢彌補回來，則他們就會購買B，否則就不會購買B。那么B的最高價格應為

萬美元。

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，要求給出它的實數解． 輸 入：

三個實數：a，b，c，是方程的三個系數(a≠0)． 輸 出：

如果無實數解，則輸出“No solution”；

如果有兩個相等的實數解，則輸出其中一個，四舍五入到小數點后面3位； 如果有兩個不等的實數解，則解與解之間用逗號隔開，同樣要四舍五入到小數點后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枚。然后再從這摞硬幣最上面的一枚開始，重復剛才的做法。這樣一直做下去，直到這摞硬幣中的每一枚又都是正面朝上為止。例如，m為1時，翻兩次即可。m為2時，翻3次即可；m為3時，翻9次即可；m為4時，翻11次即可；m為5時，翻24次即可；?；m為30時，翻899次即可；?

輸 入：

僅有的一個數字是這摞硬幣的枚數m，0

為了使這摞硬幣中的每一枚又都是正面朝上所必需翻的次數。輸入樣例： 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.第九屆全國青少年信息學奧林匹克聯賽初賽試題 普及組參考答案

一、選擇一個正確答案代碼（A/B/C/D/E），填入每題的括號內（每題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 三．閱讀程序，并寫出程序的正確運行結果：(每題8分，共32分)（1）程序的運行結果是：-1（2）程序的運行結果是；mo（3）程序的運行結果是：8910（4）程序的運行結果是：Can't be divided Can be divided Can't be divided 四．根據題意，將程序補充完整(第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)

信息學初賽試題

------------------奧賽題庫

加入時間：2005-10-18 9:25:46

yczxwang

點擊：501 相關信息

一、單選題（共25題，每題2分，合計50分）

1.計算機內采用________存儲各種信息。

a)二進制 b)六十進制 c)十進制 d)八進制

2.下列語言中，用________書寫的代碼是不需要編譯就可以在機器上運行的。

a)C++語言 b)匯編語言 c)Pascal語言 d)機器語言

3.提出圖靈機理論的是________。

a)圖靈 Turing b)馮·諾依曼 von Neumann c)里奇 Ritchie d)蓋茨 Gates

4.C語言的創始人為________。

a)圖靈 Turing b)馮·諾依曼 von Neumann c)里奇 Ritchie d)斯特勞斯特魯普 Stroustrup

5.以下________不是棧的基本運算。

a)刪除棧頂元素 b)刪除棧底元素 c)判斷棧是否為空 d)將棧置為空棧

6.計算機軟件保護法旨在保護軟件的________。

a)著作權 b)使用權 c)銷售權 d)復制權

7.Linux是一種________。

a)繪圖軟件 b)程序設計語言 c)操作系統 d)網絡瀏覽器

8.NOI比賽中，提交文件的文件名應該_________。

a)全部大寫

b)全部小寫 c)大小寫無所謂

d)按照題目要求大小寫

9.下列軟件中_____是文字編輯軟件。

a)WinZIP

b)Linux

c)Word

d)free pascal compiler

10.CPU是________的英文縮寫。

a)硬盤 b)中央處理器 c)高級程序語言 d)核心寄存器

11.NOI比賽中，提交的源代碼文件應該存放在_________。

a)任意地方

b)用戶目錄中 c)用戶目錄下的任意目錄中

d)用戶目錄下對應的題目目錄中

12.目前常見的個人計算機使用__________位的CPU。

a)64

b)32

c)16

d)8

13.下列字串中，________是一個可能的電子信箱地址。

a)ddd.tod.com

b)125.31.57.1

c)http://www.tmdps.cn

d)email@web.de.com.kr

14.高級程序設計語言編寫的源程序代碼，需要經過_______才能被計算機直接運行。

a)解釋

b)編譯

c)破解

d)刪除

15.下列名詞中，________不是高級程序設計語言。

a)JAVA

b)Windows

c)Pascal

d)C++

16.一般來說，一種數據結構就是_________。

a)一種數據的表示方法

b)一種數據的操作方法

c)一種數據的表示及其相關操作

d)一種編程方法

17.目前NOI規定使用的操作系統是________。

a)Windows系列

b)OS/2

c)Unix

d)Linux

18.與二進制數01011010等值的十六進制數為________。

a)55 b)AA c)A5 d)5A

19.計算機術語“算法”指的是__________。

a)代數運算方法

b)邏輯運算方法 c)解決問題的、有具體步驟的方法

d)統計方法

20.一個字節為________比特。

a)4

b)8

c)16

d)32

21.下列名詞中，________不是網絡傳輸協議的名稱。

a)ftp

b)telnet

c)http

d)email

22.計算機中訪問速度最快而又最緊缺的存儲資源是________。

a)寄存器

b)主存儲器

c)高速緩存

d)外圍存儲設備

23.隊列元素的進隊出隊原則是________。

a)先進先出 b)先進后出 c)后進先出 d)只進不出

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)國際高中生程序設計競賽

b)國際大學生程序設計競賽

c)國際大學生創造發明大賽

d)國際中學生科技夏令營

二、不定項選擇題（共10題，每題2分，合計20分）

26.顯示器是一種________。

a)輸入設備 b)存儲設備 c)輸出設備 d)寄存器

27.程序的結構有________。

a)順序結構 b)倒序結構 c)選擇結構 d)循環結構

28.計算機中，常用KB作為內存大小的單位，1KB是________字節。

a)1000 b)1000000 c)1024 d)1048576

29.操作系統的主要功能是________。

a)管理硬件 b)管理文件系統 c)系統監控和維護安全 d)編譯高級語言程序

30.下列關于文件的敘述，________是不正確的。

a)可執行程序可以保存為文件形式

b)文件可大可小，大的文件用一張軟盤可能裝不下

c)一個文件夾下面可以有兩個同名的文件，只要它們的大小不同就行了

d)Linux環境中，普通用戶可以讀些系統中所有文件

31.衡量一個算法的優劣應該關注________。

a)正確性 b)輸出格式 c)空間效率 d)時間效率

32.下列關于程序語言的敘述，________是不正確的。

a)編寫機器代碼比編寫匯編代碼容易

b)高級語言需要編譯成目標代碼或通過解釋器解釋后才能被CPU執行

c)匯編代碼可被CPU直接運行

d)不同的CPU可能擁有不同的機器代碼指令集

33.下列物品中那些不是軟件________。

a)CPU b)硬盤 c)光驅 d)Linux

34.數據結構中，________都是樹的一種。

a)二叉樹

b)堆

c)循環鏈表

d)霍夫曼樹

35.在計算機上，由于________的限制我們無法精確表示一個無理數。

a)顯示器大小

b)存儲位數

c)運算速度

d)算法效率

三、判斷正誤，正確用“T”表示，錯誤用“F”表示。（共5題，每題2分，合計10分）

36.常見的高級程序設計語言有Java, C++, C, Pascal, Basic 等。

37.計算機中，漢字的編碼主要有 國標碼（GB）和 大五碼（BIG）兩種。

38.根據摩爾定律，CPU的性能價格比每18個月翻一倍。

39.常用的漢字輸入法有五筆、智能ABC、激光照排等。

40.Windows是個人電腦上唯一的操作系統。

四、填空題（共5題，每題4分，合計20分）

41.用十六進制的地址編碼給存儲器的字節編地址，其地址是0000到FFFF，則該存儲器的容量是

________________字節（用數字準確表示，不使用K、M等簡寫單位）。

42.世界上第一臺通用電子計算機ENIAC，于________年誕生于美國賓夕法尼亞州立大學摩爾分校。

43.NOI比賽中，某道題目的名稱是first，題目要求提交源代碼；某選手在比賽用機上的用戶名是

user18，用戶主目錄是/home/user18，該選手使用Pascal語言編程，則該選手在提交first題目的源代碼

文件時，該源代碼文件的全路徑名是（包括目錄名和文件名）________。（Pascal源代碼文件的后綴名

為.pas）

44.Linux系統中，管理員用戶（超級用戶）的缺省用戶名是________。

45.在順序表（2，5，7，10，14，15，18，23，35，41，52）中，用二分法查找12，所需的關鍵碼

比較的次數為________。

答案：

一.單選題 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

第五篇：pascal射擊游戲完整版

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=1000000 then begin skilltime:=0;skillactive:='not active';gotoxy(66,24);write('

');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.