pascal入門培訓(xùn)筆記

1、PAGE PAGE 25第一章：計算機與程序設(shè)計簡介一、計算機的三大功能計算功能；記憶功能；判斷功能。二、計算機的發(fā)展世界上第一臺計算機，1946年，美國，ENIAC三、計算機的組成結(jié)構(gòu)由硬件和軟件兩部分組成。硬件結(jié)構(gòu)的五個部分：輸入設(shè)備：鍵盤、鼠標。輸出設(shè)備：顯示器、打印機。CPU中央處理器運算器控制器存儲器：內(nèi)存、外存四、計算機的語言低級語言機器語言：（0、1、代碼）匯編語言：（符號指令）高級語言：（英文指令）（Pascal語言）五、Pascal程序的基本結(jié)構(gòu)：例：小明每月存5元。問：四年他共存了多少元？首 部PROGRAM EX；說明部分VAR A,B：INTEGER;執(zhí) BEGIN行

2、A:=5；部 B:=A*12*4；分 WRITELN(B)； END.六、鍵盤指法：七、上機操作：、開機：顯示器、主機、進入：TP環(huán)境（藍白）在Windows界面上，雙擊MSDOS圖標打TP、輸入程序、執(zhí)行程序：按CTRLF9、看結(jié)果（切換到輸出屏幕（黑白）按ALTF5、新開一頁（窗口）按ALTF選NEW命令、切換當前工作頁面（窗口）按ALT頁號、關(guān)閉當前窗口按ALTF3、退出TP環(huán)境按ALTE打X（選EXIT命令）、回Windows界面打EXIT、關(guān)機點擊開始關(guān)閉系統(tǒng)關(guān)機Y關(guān)顯示器上機程序：求自己兩科的平均成績PROGRAM EX2;VAR X,Y,S,P:INTEGER; BEGIN X:

3、= ;Y:= ; S:=X+Y; P:=S DIV 2; WRITELN(P=,P);END.第二章 順序結(jié)構(gòu)設(shè)計編程的“三步曲”：輸入處理輸出一、賦值語句（一）它能給變量一個數(shù)據(jù)如：A:=5;其中“:=”是賦值號、變量是可存放各種不同數(shù)據(jù)的“小盒子”（存儲單元），在程序執(zhí)行中，可改變它的值。、變量命名規(guī)則必須以字母開頭，是字母、數(shù)字的組合如：BoxDA A125A A+B Pascal系統(tǒng)的“關(guān)鍵字”不能用如：Begin End練習(xí)：命名：長寬平均最大最小例句：A:=3;B:=-1;A:=5;重新賦值，則原值被沖掉B:=A;把A給B，A不變，B與A同值Pascal規(guī)定：變量在用之前，必須說明

4、它的類型。、四種簡單標準類型：整數(shù)類型：INTEGER3276832767（MAXINT）（有序）用于：人數(shù)，物品個數(shù)實數(shù)類型：REAL即：帶有小數(shù)的婁（無序）用于：金額、高度、重量實數(shù)有兩種表示法：十進制如：123.45科學(xué)記數(shù)法：如：1234567890000 1.2345678900E+120.000012345 1.2345000000E-5字符類型：CHAR（有序）如：A、B、6、2序號范圍：0255用于：文本信息處理布爾類型：（有序）BOOLEAN只有個值：TRUE（真）FALSE（假）序號：FALSETRUE如：為TRUE為FALSE用于：判斷、變量說明的格式：VAR變量表：類型

5、；如：VARR:INTEGER；P:REAL;B:BOOLEAN;W:CHAR;BEGINR:=22;P:=86.5;B:=(P80);W:=N;B:=FALSE;END.練習(xí)：改正下列語句中的錯誤VARA,B:INTEGERS:REAL;BEGINA:=10:B:=A*12*3;S:=1.40;END.（二）賦值語句有計算功能如：B:=A*12*4;表達式用計算機的運算符、圓括號連接數(shù)和變量的算式。(A+B)2 (A+B)/2 (A-3)/(5*B)(A+1)B1B (A+1)*B+1)*B1/A+1/BPascal運算符：+、-、*、/整除：DIV求余：MOD練習(xí)：定義四種變量，寫個賦值語

6、句（三）賦值語句的格式變量:=表達式；功能：將表達式的值賦給“:=”左邊的變量。（四）應(yīng)用舉例例一：給A、B、C賦值萬。直接賦值A(chǔ):=10000; B:=10000; C:=10000;輾轉(zhuǎn)賦值A(chǔ):=10000; B:=A; C:=B;例二：累加與計數(shù)累加計數(shù)A:=0; A:=0; A:=A+5; A:=A+1; A:=A+10; A:=A+1; A:=A+30; A:=A+1; 例三：求A、B、C三科的平均成績。已知：A98,B100,C97PROGRAM EX1;VARA,B,C:INTEGER;P:REAL;BEGINA:=98;B:=100; C:=97;P:=(A+B+C)/3;WR

7、ITELN(P:0:2);END.例四：把55給A，把16給B，然后交換A與B的值：用“冒泡法”PROGRAMEX2;VARA,B,C:INTEGER;BEGINA:=55;B:=16; C:=A;A:=B;B:=C;WRITELN(A,B:10);END.二、讀語句：（一）它有三種類型READ(A,B);READLN(A,B);READLN;(二)功能：當執(zhí)行到READ語句時，計算機會暫停下來，等待我們由鍵盤上輸入數(shù)據(jù)。如：READLN(A,B); 輸入：結(jié)果：AB作廢READ(A,B)；輸入：結(jié)果：AB（三）READ與READLN的區(qū)別：、READLN后面可以無輸入項，表示只需要一個“”。

8、、READLN()讀完所需的數(shù)據(jù)之后，會尋找“”符，而READ()讀完所需的數(shù)據(jù)之后，不會尋找“”符。如：READLN(A);READLN(B,C)；輸入：結(jié)果：A、作廢B和C待輸入如：READ(A);READLN(B,C);輸入：結(jié)果；ABC（四）應(yīng)用舉例：例一：某水果店，水果每斤1.5元。編程輸入：斤數(shù)輸出：應(yīng)付款（元）PROGRAM FRUIT;VAR J,Y:REAL;BEGINREADLN(J);Y:=J*1.5;WRITELN(Y:0:2);END.執(zhí)行：輸入： 輸出：再執(zhí)行：輸入： 輸出：例二：為某個同學(xué)計算三門學(xué)科的平均成績。PROGRAMAVERAGE;VARA,B,C:IN

9、TEGER;P:REAL;BEGINREADLN(A,B,C);P:=(A+B+C)/3;WRITELN(P:0:1);END.執(zhí)行：輸入： 輸出：再執(zhí)行：輸入： 輸出：三、寫語句（又稱：輸出語句）（一）它有三種句型：WRITE(A,B,C);WRITELN(A,B,C);WRITELN;（二）功能：它能計算并輸出表達式的值對字符串可以按原樣照印字符串用一對單引號括起來的一串字符如：ABC12例： A:=4; 輸出： WRITELN(123);123 WRITELN(A); 4 WRITELN(A*12); 48 WRITELN(HELLO!) HELLO!（三）WRITE與WRITELN的區(qū)

10、別WRITELN后面可以無輸出項，只是換行或空一行。WRITELN（）輸出完之后，會自動換行。而WRITE（）輸出完之后，不換行如：WRITE(12); 輸出：1298WRITELN(98); AWRITELN(A);（四）輸出格式用場寬控制、單場寬格式：WRITELN(X:n); X占n格寬，并靠右邊對齊顯示如：WRITELN(A:5,B:5);WRITELN(123:5);、雙場寬格式（只用于實數(shù)）小數(shù)位整數(shù)位WRITELN(X:n1:n2);其中：n1總場寬n2小數(shù)位如：WRITELN(98.766);輸出：9.8766000000E+01WRITELN(98.766:10:4); 98

11、.7660 WRITELN(98.766:10:2); 98.77 WRITELN(98.766:0:2); 98.77注意：如n2小于X的實際小數(shù)位數(shù)，則多出的位數(shù)按四舍五入處理。練習(xí)：編程：輸入兩個整數(shù)，求它們的和、差、積、商（五）應(yīng)用舉例：例：輸入兩個正整數(shù)A、B，求A+B，并打印出計算的橫式和豎式。如：輸入：A,B1234 56輸出：1234+56=1290 1234 + 56 1290程序：PROGRAM EX1; VAR A,B:INTEGER; BEGIN WRITE(A,B=); READLN(A,B); WRITELN(A,+,B,=,A+B); WRITELN(A:20);

12、 WRITELN(+:15,B:5); WRITELN(:21); WRITELN(A+B:20); END.例：在屏中央打印圖形*程序：PROGRAM EX2; BEGIN WRITELN(*:40); WRITELN(*:41); WRITELN(*:42); END.例：輸入“秒”數(shù)，換算出它是多少分鐘，多少小時。程序：PROGRAM EX3; VAR M:INTEGER; F,S:REAL; BEGIN WRITE(M=);READLN(M); F:=M/60;S:=F/60; WRITELN(F=,F:0:1); WRITELN(S=,S:0:2); END.練習(xí)：編程：輸入兩個正整

13、數(shù)，A,B求A-B。并打印計算的橫豎式。輸入“小時”數(shù)，換算出它是多少天，多少星期。在屏中央打印如下圖形：EDCBACBAA第三章選擇結(jié)構(gòu)的程序設(shè)計條件語句：、兩種句型：IF條件THEN語句；IF條件THEN語句ELSE語句；如果則否則功能：如果條件成立，則做語句，否則做語句。、“條件”的描述如：A = = 大于小于等于大于等于小于等于不等于如：N不超過100表達式為：N、=、=、如：A值之間(A0) AND (A0) OR (Y0)A不大于BNOT（AB）、條件語句例句：（設(shè)A、B為整數(shù)型）如果A和B都是正數(shù)，則打印它們的值。IF (A0) AND (B0) THEN WRITELN(A,B

14、:10); 如果A，B之和不低于，就在計數(shù)N當中加。IF A+B=180 THEN N:=N+1 如果A小于B，則把A的值給B，否則把B的值給AIF A(B/2) THEN WRITELN(DUO!); 如果A和B當中至少有一個是奇數(shù)，則打印A+B的值，否則打印A-B的值。IF (A MOD 2=1) OR (B MOD 2=1) THEN WRITELN(A+B) ELSE WRITELN(A-B);、應(yīng)用：例一：輸入一個整數(shù)，若它是的倍數(shù)，則打印“YES!”，否則打印“NO!” PROGRAM EX1; VAR A:INTEGER; BEGIN WRITE(A=);READLN(A); I

15、F A MOD 7=0 THEN WRITELN(YES!) ELSE WRITE(NO!) END. 例二：輸入三個整數(shù)，將其中最小的選出來PROGRAM EX2; VAR A,B,C,X:INTEGER; BEGIN WRITE(A,B,C=); READLN(A,B,C); X:=A; IF XB THEN X:=B; IF XC THEN X:=C; WRITELN(X); END.例三：買西瓜。若買斤以內(nèi)，則每斤西瓜八角，否則超出斤的那部分，每斤角。輸入：斤數(shù)輸出：應(yīng)付款（元）PROGRAM EX3; VAR J,Y:REAL; BEGIN WRITE(J=);READLN(J);

16、IF J100 THEN Y:=100*0.8+(J-100)*0.5 ELSE Y:=J*0.8; WRITELN(Y:0:2); END.練習(xí)：輸入一個整數(shù)，若它是奇數(shù)，則打“YES!”，否則打“NO!”。輸入三個整數(shù)，將其中最大的選出來。二、復(fù)合語句：格式：BEGIN 語句；語句；語句N；END；例：輸入A、B（整數(shù)），若A大于B，則交換A與B。PROGRAM EX1; VAR A,B,C:INTEGER; BEGIN WRITE(A,B=);READLN(A,B); IF AB THEN BEGIN C:=A; A:=B; B:=C; END; WRITELN(A,B:10); END

17、.三、情況語句：、格式：CASE 表達式OF 值情況表：語句； 值情況表N：語句N； ELSE語句； END;、功能：如果“表達式”的值出現(xiàn)在某個“值情況表”中，則做它后面的語句，否則做ELSE后的語句。、例一：輸入XX年X月，輸出該月有多少天。PROGRAM EX2; VAR N,Y,T:INTEGER; BEGINWRITE(N,Y=);READLN(N,Y);CASE Y OF 1,3,5,7,8,10,12:T:=31; 4,6,9,11:T:=30; 2:IF (N MOD 400=0) OR (N MOD 1000) AND (N MOD 4=0) THEN T:=29 ELSE

18、T:=28ELSE BEGIN WRITE(NO!); HALT; END;END;WRITELN(T);END.練習(xí)：輸入一個整數(shù)A，根據(jù)A值分如下情況處理。若是，則打印“學(xué)數(shù)學(xué)”；若是，則打印“學(xué)電腦”；若是，則打印“學(xué)英語”；若是則打印“休息”否則打印“NO!”第四章循環(huán)結(jié)構(gòu)的程序設(shè)計循環(huán)重復(fù)做一些事Pascal中有三種循環(huán)計數(shù)型循環(huán)（FOR）當型循環(huán)（WHILE）直到型循環(huán)（REPEAT）一、FOR循環(huán)有兩種句型：、遞增型FORI:=初值（?。㏕O終值（大）DO語句；如：FORA:=1 TO 10 DO WRITE(A:4);結(jié)果： 1 2 3 4 5 6 7 8 9 10如：FOR

19、I:=A TO F DO WRITE(I:2);結(jié)果： A B C D E F、遞減型FORI:=初值（大）DOWNTO終值（小）DO語句；如：FOR A:=Z DOWNTO A DO IF AW THEN WRITE(A:2);結(jié)果： Z Y X如：FOR A:=10 DOWNTO 5 DO WRITE(A:4);結(jié)果： 10 9 8 7 6 5二、注意：控制變量必須是有序的數(shù)型?？刂谱兞咳≈蛋雌湫蛱栆赃f增或以遞減。循環(huán)體只能是一個語句。若有多個語句，就用復(fù)合語句。若一開始“初值”就超過“終值”，則循環(huán)一次也不會做。三、應(yīng)用：例：寫結(jié)果：VAR I:INTEGER; BEGINFOR I:=

20、1 TO 10 DO WRITE (I*(I-1):4)；WRITELN;END. 0 2 6 12 20 30 42 56 72 90VAR K:INTEGER; BEGIN FOR K:=10 DOWNTO 5 DO WRITE(K+5:4); WRITELN; END. 15 14 13 12 11 10VAR C:CHAR; BEGIN FOR C:=A TO Z DO IF (CW) OR (CD) THEN WRITE(C:2); WRITELN; END. A B C X Y Z例二：計算1+2+3+100PROGRAM EX2; VAR A,H:INTEGER; BEGIN H

21、:=0; FOR A:=1 TO 100 DO H:=H+A; WRITELN(H); END.練習(xí)：、求5+6+7+65VAR A,H:INTEGER;BEGIN H:=0; FOR A:=5 TO 65 DO H:=H+A; WRITELN(H);END.、求(13)+(24)+(35)+(1012)VAR A,H:INTEGER;BEGIN H:=0; FOR A:=1 TO 10 DO H:=H+A*(A+2); WRITELN(H);END.例三：找出100中的奇數(shù)。VAR A:INTEGER;BEGIN FOR A:=1 TO 99 DO IF A MOD 2=1 THEN WRI

22、TE(A:4); WRITELN;END. 練習(xí)：輸入A,B(INTEGER)，求A-B之間整數(shù)之和。求（12）+(23)+(1011)找出11000之間的的倍數(shù)。例：雞兔同籠，已知有16個頭，40只腳，雞兔各有多少只？設(shè)：JI雞TU兔循環(huán)：TU=110JI16-TU條件：TU*4+JI*2=40程序：PROGRAM EX4; VAR JI,TU:INTEGER; BEGIN FOR TU:=1 TO 10 DO BEGIN JI:=16-TU; IF TU*4+JI*2=40 THEN WRITELN(JI,TU:10); END; END.練習(xí)：有一份試卷上共26題，對一題得分，錯一題扣分

23、，有同學(xué)全做了，但得分。做對、錯各多少題？四、當型循環(huán)（while）語句使用for語句編寫程序時需要事先知道循環(huán)次數(shù)，如果遇到不能確定循環(huán)次數(shù)的問題就無法使用了。當型循環(huán)語句提供了解決此類問題的方法。格式：while 布爾表達式 do 語句；例1 求 s=2+6+10+98的值。程序：program ex1;var s,x:integer;begin x:=2;s:=0; while x=98 dobegin s:=s+x; x:=x+4;end; writeln(s=,s);end.注意：為使while循環(huán)正常終止，布爾表達式中所含變量的值在循環(huán)體中一定要有所更改（如在例1中，布爾表達式中的

24、變量x:=x+4;），這樣才能使布爾表達式的值發(fā)生變化，否則就會造成循環(huán)不能進行或者不能停止（也就是死循環(huán)）。例2 求兩個自然數(shù)M、N的最小公倍數(shù)。Program ex2;Var n,m,i,s:longint;begin write(m,n=); readln(m,n); i:=1; s:=m*i; while s mod n0 dobegin i:=i+1; s:=m*i;end; writeln(s);end.練習(xí)：計算1+2+4+8+128+256。五、直到型循環(huán)（repeat）語句格式：repeat 語句1； 語句2； 語句n;until 布爾表達式；當程序執(zhí)行到repeat語句時，

25、先執(zhí)行repeat與until之間的語句序列，即語句到語句n。然后對布爾表達式進行判斷，當布爾表達式值是假（條件不成立）時，重復(fù)執(zhí)行語句到語句n的語句序列，直到布爾表達式的值是真（條件成立）時，退出循環(huán)，執(zhí)行until語句下面的語句。注意：當型循環(huán)(while)是先判斷后執(zhí)行，直到型循環(huán)是先執(zhí)行后判斷。因此，直到型循環(huán)至少會被執(zhí)行一次。例：某班準備挑選一名身材最高的同學(xué)參加學(xué)?；@球隊，如何選出？程序：program ex;var n,h,m,l:integer;begin write(n=);readln(n);n為全班學(xué)生人數(shù) writel(h=);readln(h);輸入一名學(xué)生的身高數(shù)據(jù)

26、 m:=1;m表示已經(jīng)參加過比較的學(xué)生數(shù) repeatwrite(l=);readln(l);n為下一名學(xué)生的身高數(shù)據(jù)if lh then h:=l;比較高矮，并留下高的m:=m+1;參加過比較的學(xué)生數(shù)增加1 until m=n;判斷是否所有學(xué)生都參加過比較了 write(h);end.練習(xí)：、輸入整數(shù)A,B，求AB之間整數(shù)之和。、出11000之間的7的倍數(shù)?？倧?fù)習(xí)標準常量：（個）MAXINT、TRUE、FALSE標準類型：（個）INTEGER、REAL、CHAR、BOOLEAN算術(shù)運算符符：（個）、*、 /、DIV、MOD布爾運算符：（個） 、 =、 、=、0 AND B0 THEN A:=

27、B;FOR I:=1 to 10WRITE(I:5);IF AB THENC:=A;A:=B;B:=C;3:=A;CASE I DO BEGIN1,2,3: X:=I; 4,5,6: Y:=I; END;FOR I:=10 DOWN 1 DO WRITE(I:5);IF AB THEN A:=B; ELSE B:=A;二、寫結(jié)果VAR A:INTEGER;BEGINA:=2;A:=A+2;WRITELN(A);END. VARA,B:INTEGER;BEGIN A:=5;B:=6; B:=A; WRITELN(A,B:10);END.VAR X:INTEGER;BEGINWRITELN(X=,

28、10); WRITELN(X);END.VAR I:INTEGER;BEGIN FOR I:=1 TO 10 DO IF ODD(I) THEN WRITE(I:5);END.BEGIN WRITELN(*:40); WRITELN(*:41); WRITELN(*:42); END.VAR A,B,C:INTEGER; D:REAL; BEGIN A:=256; B:=A DIV 2; C:=A MOD 2; D:=A/B; WRITELN(A,B:5,C:5,D:8:2); END.VAR A:INTEGER; B:REAL; C:CHAR; D:BOOLEAN;BEGIN A:=1234; B:=5.678; C:=V; D:=FAL