第1講 Pascal語言基礎(chǔ)知識(shí)一.ppt

1、Pascal語言程序設(shè)計(jì),第一部分,第一講 Pascal語言基礎(chǔ)一,程序的基本結(jié)構(gòu),程序的上機(jī)調(diào)試和運(yùn)行,語言基礎(chǔ)一,例1： 要將一張100元的大鈔票，換成等值的10元、5元、2元、1元一張的小鈔票，每次換成40張小鈔票，每種至少1張。 如，有一種換法： 10元： 9 張 5元： 1 張 2元： 2 張 1元： 1 張 問：一共有多少種換法。,程序的上機(jī)調(diào)試和運(yùn)行,program ex1; var x1,x2,x3,x4,n:integer; begin n:=0; for x1:=1 to 10 do for x2:=1 to 20 do for x3:=1 to 50 do for x4:

2、=1 to 100 do if (10*x1+5*x2+2*x3+x4=100)and(x1+x2+x3+x4=40) then n:=n+1; writeln(n); end.,例2 、 已知： s=1+1/2+1/3+1/n 求：使s的值大于10時(shí)最小的n。,var s : real; n : integer; begin s:=0; n:=0; while s=10 do begin n:=n+1; s:=s+1/n; end; writeln(n); end.,例3、編一個(gè)程序，從鍵盤輸入一個(gè)真分?jǐn)?shù)的分子和分母，輸出它的小數(shù)形式，精確到小數(shù)點(diǎn)后1000位。,var n,m,r,q,i:

3、integer; begin read(n,m); r:=n; write(0.); i:=1; while i=1000 do begin q:=10*r div m; r:=10*r mod m; write(q); i:=i+1; end; end.,上機(jī)調(diào)試運(yùn)行步驟：,1、運(yùn)行: Free Pascal 2、filenew :新建文件 3、compilemake :編譯，找錯(cuò)誤。 4、run run：運(yùn)行 5、debug output(Alt+F5):察看結(jié)果,program 程序名；可以省略var 變量說明；begin語句；語句；語句;end.,Pascal程序的基本結(jié)構(gòu),程序的基本

4、結(jié)構(gòu),一、變量的定義說明： 二、Pascal數(shù)據(jù)類型（整型、實(shí)型） 三、基本語句(賦值語句、輸入語句read、輸出語句write) 四、算術(shù)運(yùn)算符和算術(shù)表達(dá)式 五、標(biāo)準(zhǔn)函數(shù)（數(shù)值型函數(shù)）,語言基礎(chǔ)一,一、變量的定義說明： 在程序中用到的所有變量必須事先定義。 格式： Var :； :；,如：輸入3個(gè)整數(shù)，求這3個(gè)數(shù)的平均值。 Var a，b，c：integer; aver:real;,二、Pascal數(shù)據(jù)類型,Var a,b:integer; c:longint; Begin readln(a); readln(b); c:=a+b; writeln(c): End.,120 200,1000

5、0 20000,20000 30000,測試以下3組數(shù)據(jù)：,輸入整數(shù)a和b，輸出a+b的值。,整型、實(shí)型、（字符型和布爾型）,1、整型,類型數(shù)值范圍 占字節(jié)數(shù) Byte 0 . 255 1 Word 0.65535 2 Shortint -128 . 127 1 Integer -32768.32767; 2 Longint -2147483648 . 2147483647 4 Longword 0.4294967295 4 Int64 -9223372036854775808 . 9223372036854775807 8 QWord 0 . 18446744073709551615 8,2

6、、實(shí)數(shù) 類型 范圍 有效位數(shù) 占用字節(jié) Real 2.9e-39.1.7e3811.12 6 Single 1.5E-45 . 3.4E38 7-8 4 Double 5.0E-324 . 1.7E308 15-16 8 Extended 1.9E-4951 . 1.1E4932 19-20 10 Comp -2E64+1 . 2E63-1 19-20 8,Var begin read(a,b); c:=a*b; d:=a/b; writeln(c); writeln(d); End.,?,例: 輸入:兩個(gè)整數(shù)a、b(=3000)，輸出它們的乘積c，商d。,實(shí)數(shù)的定點(diǎn)型格式輸出: 實(shí)數(shù)表達(dá)式：

7、域?qū)挘盒?shù)位數(shù) T=63.123 write(t)； 6.312300000000E+01 write(t：6：2)； 63.12 write(t：6：5)； 63.12300 如果要求小數(shù)點(diǎn)后精確2位小數(shù). Writeln(x:0:2);,a,b:integer; C:longint; d:real;,1、賦值語句賦值語句是最簡單的語句. 1)、賦值語句的格式 變量名:=表達(dá)式； 其中“:=”稱為賦值號(hào)。 2)、執(zhí)行過程 計(jì)算機(jī)先計(jì)算賦值號(hào)右邊表達(dá)式的值，然后將表達(dá)式的值賦給變量名代表的變量。 如：A：=（9*8）-（2-1）; A:=A+1,三、基本語句,integer Longint r

8、eaL,、輸入語句read和readLn 功能： 從鍵盤讀入數(shù)據(jù)項(xiàng)，并把它存到變量中去，使該數(shù)據(jù)能在以后的計(jì)算中使用。 輸入語句的一般形式為： read(v1，v2，vn)； readLn(v1，v2，vn)； 從鍵盤逐次讀入數(shù)據(jù)，分別賦給變量v1，v2，vn，一行輸入多個(gè)變量值時(shí)，要求數(shù)據(jù)之間用空格分隔，readln語句要求輸入數(shù)據(jù)后必須回車，使得后繼操作從下一行的頭上開始。,read語句與readln語句區(qū)別是： 1) read語句是一個(gè)接一個(gè)地讀數(shù)據(jù)，在執(zhí)行完本Read語句( 讀完本語句中變量所需的數(shù)據(jù))后,下一個(gè)讀語句接著從該數(shù)據(jù)輸入行中繼續(xù)讀數(shù)據(jù)，也就是說，不換行。如： read(a

9、,b); read(c,d); read(e); 如果輸入數(shù)據(jù)行如下: 123 456 則a,b,c,d,e的值分別為1,2,3,4,5,如果后面無讀語句則數(shù)據(jù)6是多余的，這是允許的。,Readln則不同，在讀完本Readln語句中變量所需的數(shù)據(jù)后, 該數(shù)據(jù)行中剩余的數(shù)據(jù)多余無用，或者說，在讀完本Readln語句中變量所需數(shù)據(jù)后，一定要讀到一個(gè)回車，否則多余的數(shù)據(jù)無用。 設(shè)有下列語句: read(a,b,c); readln(d,e); readln; readln(f,g); 其中,所有變量均為整型。設(shè)輸入的數(shù)據(jù)如下： 12 345678 910 11 12 13,Var a,b,c,d,e

10、,f,g:integer; begin read(a,b,c); readln(d,e); readln; readln(f,g); writeln(a, ,b, ,c, ,d, ,e, ,f, ,g); end.,2)readln語句與read語句的第二個(gè)區(qū)別是: read 后一定要有參數(shù)表, readln可以不帶參數(shù)表,即可以沒有任何輸入項(xiàng), 只是等待讀入一個(gè)換行符(回車)。經(jīng)常用于暫停程序的運(yùn)行，直到輸入一個(gè)回車,輸出語句write和writeLn 功能： 把程序計(jì)算的結(jié)果，按適當(dāng)?shù)男问捷敵龅狡聊弧?1)、write語句 格式Write(表達(dá)式1，表達(dá)式2，)； 如: write(x,5

11、,a+b); write(My name is Liping); 2)、writeLn語句 格式: Write(表達(dá)式1，表達(dá)式2，) 或writeLn,Write語句與writeln語句格式上都相似，但它們在功能上有所不同，兩個(gè)語句的區(qū)別在于: write語句將其后括號(hào)中的表達(dá)式一個(gè)接一個(gè)輸出后，沒有換行。 而writeln語句則在輸出各個(gè)表達(dá)式的值后換行。 例如以下兩個(gè)程序段的輸出分別為： write(1,2,3,4); write(5,6); 輸出為： 123456 writeln(1,2,3,4); write(5,6); 輸出為： 1234 56,實(shí)數(shù)的輸出格式 實(shí)數(shù)（real）以浮

12、點(diǎn)型格式輸出。例如805.67對應(yīng)的浮點(diǎn)數(shù)為8.056700000000E+02。這種實(shí)數(shù)表達(dá)方式很不方便。我們可以通過下述形式強(qiáng)迫實(shí)數(shù)以定點(diǎn)型格式輸出： 實(shí)數(shù)表達(dá)式：域?qū)挘盒?shù)位數(shù) 例如，t的值設(shè)為63.123。下面三條輸出語句分別有它們右邊所示的輸出格式： write(t)； 6.312300000000E+01 write(t：6：2)； 63.12 write(t：6：5)； 63.12300 write(t:0:0);,vara,b,t:integer;begin read(a,b); t:=a; a:=b; b:=t; writeln(a=,a); writeln(b=,b) ;e

13、nd.,例：輸入兩個(gè)整數(shù)a，b，交換他們的值，并輸出. 如：輸入：30 34 輸出：34 30,四、算術(shù)運(yùn)算符和算術(shù)表達(dá)式,1.算術(shù)運(yùn)算符運(yùn)算符運(yùn)算運(yùn)算對象結(jié)果類型+ 加整型、實(shí)型只要有一個(gè)運(yùn)算對象是實(shí)型，結(jié)果就-減 整型、實(shí)型是實(shí)型，如果全部的運(yùn)算對象都是整*乘 整型、實(shí)型型并且運(yùn)算不是除法，則結(jié)果為整型/除 整型、實(shí)型若運(yùn)算是除法，則結(jié)果是實(shí)型。 div 整除整型整型mod取余整型整型,2、表達(dá)式 是通過運(yùn)算符把常量、變量、函數(shù)調(diào)用結(jié)合起來組成的。 3+x1+b,上機(jī)練習(xí)題目： 輸入一個(gè)3位的正整數(shù)，輸出他們的各位數(shù)字之和與乘積。 如： 輸入： 436 輸出： 13 72,var n,a,

14、b,c,x,y:integer; begin readln(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.,五、標(biāo)準(zhǔn)函數(shù),+ a-b ,算術(shù)函數(shù)函數(shù)標(biāo)識(shí)符 意義 x類型結(jié)果類型abs(x) 絕對值 整型、實(shí)型同自變量sqrt(x) 平方根 整型、實(shí)型實(shí)型 int(x) 取整數(shù)部分 整型、實(shí)型實(shí)型 exp(x):ex 指數(shù) 整型、實(shí)型實(shí)型 ln(x):logex自然對數(shù) 整型、實(shí)型實(shí)型 e=2.718.,Log102.1=,xn=,en*lnx,=Exp(n*Ln(x),abs(-4)=4 abs(