1、Pascal語言程序設計浦江中學樓顯潭信息學奧賽的內容：程序=計算機語言+數(shù)據(jù)結構+算法Free Pascal考察的能力：信息學奧林匹克競賽屬于智力與應用計算機解題能力的比賽，題目有相當?shù)碾y度，解好這類題目，需要具備很強的綜合能力1、觀察和分析問題的能力；2、將實際問題轉化為數(shù)學模型的能力；3、靈活地運用各種算法的能力；4、熟練編寫程序并將其調試通過的能力；5、根據(jù)題目的要求，自己設計測試數(shù)據(jù)，檢查自己的解法是否正確、 是否完備的能力能夠參加信息學競賽的選手應該具有很強的自學能力，需要學習有 關組合數(shù)學、圖論、基本算法、數(shù)據(jù)結構、人工智能搜索算法及數(shù)學建模等知識，還要學會高級語言和編程技巧，要

2、具備很強的上機操作能 力選手應具備的條件：前提：綜合成績突出1、扎實的數(shù)學基礎。2、很強的自學能力。3、與同學之間的密切友好的合作與交流。4、持之以恒，堅持不懈的學習。5、耐得住枯燥與寂寞。6、不能以參加競賽為理由而耽誤了其他課程的學習。7、堅決玩游戲、上網(wǎng)聊天。問題舉例：【引例1】：換錢問題要將一張100元的大鈔票，換成等值的10元、5元、2元、1元一張的小鈔票，每次換成40張小鈔票，每種至少1張。如，有一種換法：10元：5元：2元：1元：1 張5 張31 張3 張問：一共有多少種換法?！疽?】：求最小的n已知：s=1+1/2+1/3+1/n求：使s的值大于10時最小的n。【引例3】：安排

3、座位n個客人圍著一個桌子吃飯，每一個人都至少認識其他的2個客人。請設計程序求得n個人的一 種坐法，使得每個人都認識他左右的客人。21435模型轉化：構造一個圖：人看成頂點， 認識關系看成一條邊。目標：找一個環(huán)，包含所有的點。哈密頓回路Pascal語言基礎（一） 程序的上機調試和運行 程序的基本結構 語言基礎程序的上機調試和運行例 ： 已知：s=1+1/2+1/3+1/n求：使s的值大于10時最小的n。vars n:real; integer;begins:=0;n:=0;while s=10 do beginn:=n+1;s:=s+1/n; end;writeln(n); end.上機調試運行

4、步驟：1、運行:Free Pascal2、filenew:新建文件3、compilemake :編譯，找錯誤。4、run run：運行5、debugoutput(Alt+F5):察看結果 程序的基本結構示例:Pascal程序的基本結構program程序名；可以省略var變量說明；說明部分 begin語句1；語句2；語句部分語句n; end.vars:real;n:integer; begins:=0;n:=0;while s=10 do beginn:=n+1;s:=s+1/n; end;writeln(n); end. 語言基礎一一、變量的定義說明二、Pascal數(shù)據(jù)類型（整型、實型）三、基

5、本語句(賦值語句、輸入語句read、輸出語句write) 四、算術運算符和算術表達式五、標準函數(shù)（數(shù)值型函數(shù)）一、變量的定義說明：在程序中用到的所有變量必須事先定義。格式：Var:；:；說明：（1） 同一類型的變量可以放在一起，也可分開寫，不同類型的不能放在一起。（2） 變量名：可以是一個字母，也可以是多個字母和數(shù)字的組合，但字母開頭。（3） 不能重復定義變量。如：輸入3個整數(shù)，求這3個數(shù)的平均值。Vara，b，c：integer; aver:real;二、Pascal數(shù)據(jù)類型試以下3組數(shù)據(jù)：輸入整數(shù)a和b，輸出a+b的值。20000300001000020000Vara,b,c:intege

6、r;Beginreadln(a); readln(b); c:=a+b; writeln(c):End.120200整型、實型、（字符型和布爾型）1、整型類 型 Byte Word Shortint Integer Longint Longword Int64數(shù)值范圍0 . 2550.65535-128 . 127-32768.32767;-2147483648 . 21474836470.4294967295-9223372036854775808 .92233720368547758070 . 18446744073709551615占字節(jié)數(shù)12124488QWord2、實數(shù)類型范圍有效位

7、數(shù)占用字節(jié)Real Single Double Extended Comp2.9e-39.1.7e381.5E-45 . 3.4E385.0E-324 . 1.7E3081.9E-4951 . 1.1E4932-2E64+1 . 2E63-111.127-815-1619-2019-20648108（裝配十進制型）例:輸入:兩個整數(shù)a、b(=3000)，輸出它們的乘積c，商d。實數(shù)的定點型格式輸出:實數(shù)表達式：域寬：小數(shù)位數(shù)T=63.123write(t)； write(t：6：2)； write(t：6：5)；6.312300000000E+0163.1263.12300如果要求小數(shù)點后精確

8、2位小數(shù). Writeln(x:0:2);Var?beginread(a,b); c:=a*b; d:=a/b;writeln(c);writeln(d);Writeln(d:0:2);End.a,b:integer; C:longint;d:real;三、基本語句1、賦值語句（1）賦值語句的格式變量名:=表達式；其中“:=”稱為賦值號。（ 2）執(zhí)行過程計算機先計算賦值號右邊表達式的值，然后將表達式的值 賦給變量名代表的變量。如：A:=（9*8）-（2-1）;A:=A+1;、輸入語句read和readln功能：從鍵盤讀入數(shù)據(jù)項，并把它存到變量中去，使該數(shù) 據(jù)能在以后的計算中使用。輸入語句的一般

9、形式為：read(v1，v2，vn)； readln(v1，v2，vn)；從鍵盤逐次讀入數(shù)據(jù)，分別賦給變量v1，v2，vn。一行輸入多個整型或實型變量值時，要求數(shù)據(jù)之間用空格 分隔，readln語句要求輸入數(shù)據(jù)后必須回車，使得后繼操作從下一行的頭上開始。read語句與readln語句區(qū)別是：1) read語句是一個接一個地讀數(shù)據(jù)，在執(zhí)行完本Read 語句( 讀完本語句中變量所需的數(shù)據(jù))后,下一個讀語句接著從該數(shù)據(jù)輸入行中繼續(xù)讀數(shù)據(jù)，也就是說，不換行。如：Read(a,b);Read(c,d);Read(e);如果輸入數(shù)據(jù)行如下:123456則a,b,c,d,e的值分別為1,2,3,4,5,如果

10、后面無讀語句則數(shù)據(jù)6是多余的，這是允許的。Vara,b,c,d,e,f,g:integer;beRgeiandln則不同，在讀完本Readln語句中變量所r需ea的d數(shù)(a據(jù),b后,c, )該;數(shù)據(jù)行中剩余的數(shù)據(jù)多余無用，或r者ea說d，ln在(d讀,e完);本Readln語句中變量所需數(shù)據(jù)后，一r定ea要d讀ln到; 一個回車，否則多余的數(shù)據(jù)無用。設r有ea下d列l(wèi)n語(f句,g:);wrrietaedln(a(,ab,c),;b, ,c, ,d, ,e, ,f, ,g);readln(d,e);endr.eadln;readln(f,g);其中,所有變量均為整型。設輸入的數(shù)據(jù)如下：1234

11、567891011 12 132)readln語句與read語句的第二個區(qū)別是:read 后一定要有參數(shù)表,readln可以不帶參數(shù)表,即可以沒有任何輸入項, 只是等待讀入一個換行符(回車)。經常用于暫停程序的運行，直到輸入一個回車輸出語句write和writeln 功能：把程序計算的結果，按適當?shù)男问捷敵龅狡聊弧?)write語句格式Write(表達式1，表達式2，)； 如:write(x,5,a+b);write(My name is Liping); 2)writeln語句格式:Writeln(表達式1，表達式2，);或writeln;Write語句與writeln語句格式上都相似，但它

12、們在功能 上有所不同，兩個語句的區(qū)別在于:write語句將其后括號中的表達式一個接一個輸出后， 沒有換行。而writeln語句則在輸出各個表達式的值后換行。 例如以下兩個程序段的輸出分別為：write(1,2,3,4); write(5,6);輸出為：123456writeln(1,2,3,4); write(5,6);輸出為：123456實數(shù)的輸出格式實數(shù)（real）以浮點型格式輸出。例如805.67對應的浮點 數(shù)為8.056700000000E+02。這種實數(shù)表達方式很不方便。我們可以通過下述形式強迫實數(shù)以定點型格式輸出：實數(shù)表達式：域寬：小數(shù)位數(shù)例如，t的值設為63.123。下面三條輸出

13、語句分別有它們右邊所示的輸出格式：write(t)； write(t：6：2)； write(t：6：5)； write(t:0:0);6.312300000000E+0163.1263.1230063例：輸入兩個整數(shù)a，b，交換他們的值，并輸出.如：輸入：30輸出：343430vara,b,t:integer; beginread(a,b); t:=a;a:=b;b:=t; writeln(a=,a,b=,b)end.四、算術運算符和算術表達式1.算術運算符運算符+-*/運算加減乘除運算對象整型、實型整型、實型整型、實型整型、實型結果類型只要有一個運算對象是實型，結果就是實型，如果全部的運算

14、對象都是整型并且運算不是除法，則結果為整型若運算是除法，則結果是實型。div mod整除取余整型整型整型整型2、表達式是通過運算符把常量、變量、函數(shù)調用結合起來組成的。3+x1+b上機練習題目：輸入一個3位的正整數(shù)，輸出他們的各位數(shù)字之和與乘積。如：輸入：436輸出：1372varn,a,b,c,x,y:integer; beginreadln(n); a:=n div 100;b:=(n div 10) mod 10;c:=n mod 10; x:=a+b+c; y:=a*b*c; writeln(x); writeln(y);end.五、標準函數(shù)a + b+ a-b 算術函數(shù)函數(shù)標識符abs(x) sqrt(x) int(x)x類型整型、實型整型、實型整型、實型整型、實型整型、實型意義絕對值平方根取整數(shù)部分指數(shù)自然對數(shù)結果類型同自變量實型實型實型實型exp(x)ln(x):ex:logexe=2.718.abs(-4)=4abs(-7.49)=7.49int(3.71)=3.0sqrt(4)=2正確的書寫表達式：1