1、第1講 Free Pascal 使用說明溫州溫州 高級講師高級講師 何鳳梅何鳳梅全國青少年信息學奧林匹克競賽教程Free Pascal Free Pascal 語言程序設計語言程序設計全國青少年信息學奧林匹克競賽分區聯賽（簡稱NOIP）分區聯賽分為初賽、復賽兩個階段。初賽全國各賽區采用統一時間（一般為每年十月中旬）、統一試卷的方法進行，實際上是在各城市范圍內進行初選。復賽一般在每年11月下旬或12月上旬舉行，各省級行政區內的所有選手統一參賽地點，采用一人一機上機編程解題的形式。主要考察參賽選手的智力與利用計算機解決問題的能力。全國競賽（簡稱NOI）優秀選手（一般每省級行政區4人）參加第二年進行

2、的全國青少年信息學奧林匹克競賽的總決賽。信息學奧林匹克競賽信息學奧林匹克競賽是一項益智性的競賽活動，核心是考查選手的智力和使用計算機解題的能力。針對競賽中題目的要求構建數學模型構造出計算機可以接受的算法寫出高級語言程序，上機調試通過目前可以使用的語言有Pascal、C、C+。 Pascal具有可靠性高、易于驗證、概念清晰、實現簡化等特點，更利于學生學習，同時還可以培養學生良好的程序設計風格和嚴謹的思維。Pascal語言1968年瑞士的沃斯教授研究出來，1971年正式發表在瑞士的ETH雜志。Pascal語言是一種高級語言，命名是為了紀念波蘭數學家Pascal B。Pascal語言是系統地體現由戴

3、克斯特拉和霍爾定義的結構程序設計概念的第一個語言。Free Pascal是一個32位，跨平臺的專業編譯器，最大可利用4GB的內存，幾乎支持現有的所有操作系統。由于信息學競賽的評測系統是Linux，而Linux對文件名區分大小寫，所以程序中用到的文件名必須和系統中的文件名完全一致。Pascal語言特點結構化的語言 三種基本結構語句定義“過程”和“函數”(子程序)豐富的數據類型 整數、實型、字符型、布爾型、枚舉型、子界型、數組類型、集合類型、記錄類型和文件類型。沃思公式“算法數據結構程序”（數據的重要性）適用于數值運算和非數值運算領域書寫格式比較自由Free Pascal的安裝運行fpc-2.4.

4、0.i386-win32去掉亂碼：選中快捷方式Free Pascal IDE單擊右鍵選擇“屬性” 彈出“屬性”對話框單擊“選項”卡將當前代碼改為“OEM-美國”就可以了。集成環境標題欄菜單欄編輯區狀態欄集成環境文件 編輯查找/替換運行編譯調試工具選擇項處理窗口幫助Free Pascal的使用直接運行桌面上的Free Pascal IDE。新建程序窗口選擇File菜單執行其中New命令建立新的程序窗口（默認文件名為Noname01.pas等）程序的輸入和調試步驟進入編輯狀態輸入源程序編譯源程序（AltF9）運行程序（CtrlF9）查看屏幕顯示（Alt+F5)保存程序（F2鍵 或 Filesave

5、）退出程序：Alt+x默認擴展名：.pas例1：輸出圖形program ex1(input,output); var h,k:integer; begin for h:=1 to 8 do begin write(:20-h); for k:=1 to 2*h-1 do write(); writeln; end end.例2：猜數程序program ex3 (input, output); var x,n,k:integer; begin randomize; x:=random(100); n:=0; repeat write(please input a number(0-100):);

6、 read(k); n:=n+1; if k=x then writeln (You are right!); if kx then writeln (Too big. Please try again!); if kx then writeln (Too small. Please try again!); until (k=x) or (n=10); if (n=10) and (kx) then writeln (You are fail. The number is ,x) end.注意請同學們熟記pascal菜單中英文單詞的中文含義。請同學們熟記完整的程序的輸入和調試步驟。課后作業1、書P10，熟記T1簡答題的15題。2、書P12，熟記T3題中各個錯誤信息的含義。（不要死記硬背，會看懂就行了）3、書P6，例11上機運行，寫出結果。（同時標出每行代碼的功能，寫到記事本文件中）4、書P8P9，熟記常見錯誤信息和編輯錯誤對照。（不要死記硬背，會看懂就行了）5、書