pascal函數(shù)過程表3、SYSTEM單元不需要uses語句

1、PASCAL 函數(shù)過：3、SYSTEM單元（不需要uses語句PASCAL 函數(shù)過：3、SYSTEM單元（不需要uses語句定義：functionAbs(XSametypeasr: r:=Abs(-2.3);2.3 i:=Abs(-157);157; RR(123.567);123.0(-123.456);-123.0 定義：function Trunc(X: Real): Long; 注意：X是實(shí)型表達(dá)式. Trunc 返回Longn(1.4,n(1.5,es,Trunc(1.4);1es,Trunc(1.5);1es,Trunc(-1.4);-1es,Trunc(-1.5);-1; 注意：

2、X是實(shí)型表達(dá)式.Round 返回型的的表示范圍，則出錯(cuò). n(1.4,roundsto,; 注意：X是實(shí)型表達(dá)式.Round 返回型的的表示范圍，則出錯(cuò). n(1.4,roundsto,Round(1.4);1n(1.5,roundsto,Round(1.5);2n(-1.4,roundsto,Round(-1.4);-1n(-1.5,roundsto,Round(-1.5);-2取小數(shù)函數(shù); 是實(shí)型表達(dá)式. X 的小數(shù)部分; 是說，F(xiàn)rac(X)X (_X). R:=Frac(123.456);0.456R:=Frac(-123.456);-0.456: ): 注意：X 是實(shí)型表達(dá)式. 返回

3、實(shí)型的 X 的平方根. 平方：function Sqr(X): (Same type as n(5squaredis,Sqr(5);25n(Thesquarerootof2is,Sqrt(2.0);1.414DOS ER GRAPH TURBO3 TP3.0OVERLAY SYSTEM單元常用過程與函數(shù) ABS(X) F 求變量的絕對(duì)值 ADDR(X) F 測變量地址 ARCTAN(XF ASSIGNED(X) P 測試程序當(dāng)中的指針或變量是否為空 BLOCKREAD(F,D,NUM) P 讀類型文件。 BLOCKWRITE(F,D,NUM) P 寫無類型文件BREAKP CHDIR(PATH

4、P CHR(XF ASCIIARCTAN(XF ASSIGNED(X) P 測試程序當(dāng)中的指針或變量是否為空 BLOCKREAD(F,D,NUM) P 讀類型文件。 BLOCKWRITE(F,D,NUM) P 寫無類型文件BREAKP CHDIR(PATHP CHR(XF ASCIIX的字符 CLOSE(F) P 關(guān)閉文件 CONCAT(S1,S2.S3）F字符串合并CONTINUEP F,LENF COS(XF CSEGF CSDEC(X)FX:=X-,LENP E(P) DSEG F 返回DS EOF(FF EOLN(FF 判斷文件類型中的一行是否結(jié)束 ERASE(F) P 刪除一個(gè)存在的

5、外部文件。 EXIT P 過程中止EXP(XF E(FF 數(shù)FILESIZE(FF FLUSH(FP FRAC(XF HI(IF F LENGTH(SF LN(RF LO(I) F 返回一個(gè)變量的低位字節(jié) MAXAVAIL F 返回最大內(nèi)存空間 MEMAVAILF 返回可用內(nèi)存數(shù)目 MKDIR(PATH) P 建立一個(gè)子 MOVE(S,D,LEN) P 快傳送NEW(PP ODD(XF OFS(XF ORD(CHF ODD(XF OFS(XF ORD(CHF 求一個(gè)字符的ASCII碼值 PARAMCOUNT F DOS 參數(shù)串長度 PARAMSTR(N) F DOS 參數(shù)串PIF pred(x

6、)f ptr(if randomf 01之間的隨機(jī)實(shí)數(shù) randomize p 初始化隨機(jī)數(shù)發(fā)生器 read/readln(f,x) p 讀入/輸入數(shù)據(jù) rename(f,strp 給一個(gè)外部文件改名reset(f) p 打開文件，并將文件指針指向開始，并準(zhǔn)備讀數(shù)據(jù) rewrite(f) p 打開文件，并將文件指針指向開始，準(zhǔn)備寫資料 rmdir(path) p 刪除一個(gè)子round(x)f runerrorp scrolltop seekrof(ff 定位到文件尾 seekroln(f) f 定位到行尾 seg(n) f 測變量段地址 sin(x)f sizeof(xf sptrf spsq

7、r(xf sqrt(x)f sseg f 返回 ss 寄存器的當(dāng)前值 str(i,s)f 將一個(gè)整數(shù)轉(zhuǎn)換成字符串 succ(X) f 后繼函數(shù)swap(x)f trunc(x)f truncate(fp 截去文件當(dāng)前指針以后的內(nèi)容 upcase(ch) f 將小寫字母轉(zhuǎn)換成大寫字母 val(s,r,p) p 將一個(gè)字符串轉(zhuǎn)換成數(shù)值n(f,xp getdatep detftimep gettimep setdatep settimep uppacktimep diskfreef disksizef setdatep settimep uppacktimep diskfreef disksizef

8、 fexpandf fsearchf fsplitf 將一個(gè)文件名分p getfattrp setfattrp vecp rp msdosp dos vecp exec p 通過一個(gè)特定命令行執(zhí)行特定程序段 keep p 中斷程序的執(zhí)行但仍駐留在內(nèi)存中 swapvectorsp 用當(dāng)前變量交換所有中斷變量值dosexitcodef f doscrtassigncrt(f) p 將文本文件f 與顯示器crt 建立聯(lián)系 clreol p 清除當(dāng)前行光標(biāo)所在位置以后的字符 clrscrp清除當(dāng)前窗口或屏幕，光標(biāo)返回到左上角 delay(t) p 等待 t 毫秒dellinep gotoxy(x,yp

9、 p inslinep keypressedf p nosoundp readkey p 等待從鍵盤輸入一個(gè)字符 sound(hz) p 以 hz 指定的頻率 textbackground(soorp 設(shè)置正文背景顏色 textcolor(color) p 設(shè)置正文前景顏色textmodep wherex/yf window(x1,y1,x2,y2)p chain(fp execute(fp mark(p)p srtinitp crtlinep wherex/yf window(x1,y1,x2,y2)p chain(fp execute(fp mark(p)p srtinitp crtlin

10、ep graphbackground(colorp graphcolormodep graphmodep 中分辨率黑白圖形方式，320*200graphwindow(x1,y1,x2,y2,color)p hiresp hirescolor(color)p 高分辨率palette(colorp ovrpath(path)p draw(x1,y1,x2,y2,colorp r(n,mp8086 plot(x,y,colorp egerf seg(x) f 測變量段地址 colortable(c1,c2,c3,c4) p 重定義顏色組 arc(x,y,radius,color) p 畫圓弧 cir

11、cle(x,y,radius,color) p 畫圓 getpic(buffer,x1,x2,y1,y2)p屏幕轉(zhuǎn)儲(chǔ)到屏幕 putpic(buffer,x,y) p 緩沖器轉(zhuǎn)儲(chǔ)到屏幕 getdotcolor(x,y) p 讀點(diǎn)fillscreen(colorp functionvaluecntfunctionlowercase(c:charorstring):charorstring; upcase 的反函數(shù) base expon strpas strpcopy 函數(shù) 將pascal strrscan 函數(shù)返回字符串中最后出現(xiàn)字符的指針 strscan 函數(shù) 返回字符串中出現(xiàn)首字符的指針 st

12、rtodate 函數(shù) 將字符串轉(zhuǎn)換為日期格式 strtofloat 函數(shù) 將給定的字符串轉(zhuǎn)換為浮點(diǎn)數(shù) 函數(shù) 將字符串轉(zhuǎn)換為整型 strtotime 函數(shù) 將字符串轉(zhuǎn)換為時(shí)間格式 strupper 函數(shù) 將字符串中的字符轉(zhuǎn)換為大寫 style 屬性 類型選擇suce swap tabs 屬性 標(biāo)記每一項(xiàng)的內(nèi)容 tabindex 屬性 標(biāo)記索引text time trimleft 函數(shù) 從給定的字符串中刪除首部的空格及控制字符 trimright 函數(shù) 從給定的字符串中刪除尾部的空格及控制字符 trunc 函數(shù) 將實(shí)型值截取為整型值 unselectedcolor 屬性 未選中顏色 upcase

13、將字符轉(zhuǎn)換為大寫 uppercase將給定的字符串變?yōu)榇髮?val 函數(shù) 將字符串轉(zhuǎn)換為整型值vararraycreate vararraydimcount 函數(shù) 返回給定變體的維數(shù) vararrayhighbound vararraylock 函數(shù) 鎖定給定的變體數(shù)組vararraylowbound vararrayunlock varastype varclear varcopy varisarray varisempty unassignedvarisnull null vartodatetime 函數(shù) 將給定的變體轉(zhuǎn)換為日期時(shí)間 visible vararrayunlock varas

14、type varclear varcopy varisarray varisempty unassignedvarisnull null vartodatetime 函數(shù) 將給定的變體轉(zhuǎn)換為日期時(shí)間 visible wantreturnstruefalse ctrl+enter才產(chǎn)生write functionAddr(var說明 procedureassigncrt(varf:file;name:string);說明 將文件f 的內(nèi)容輸于顯示器上 語法procedureblockread(varf:file;varb:type;fnumber pcms-dos版才支持recsread 語法p

15、rocedureblockwrite(varf:file;varb:type;b cedurechdirs語法 說明 返回f 當(dāng)前所含語法 號(hào)語法frocedures:word;var procedureflush(var functionfsearchfunctionprocedureprocedureflush(var functionfsearchfunctionprocedureprocedure說明 返回堆中最大的 function語法 procedure mkdir(s:string)function以上的版本 返回執(zhí)行文 件的路徑和文件名function語法procedurefalease(varprocedurerename(varf:file;s:string)說明 將文件f 的文件名變?yōu)樽址?s sound （crt單元functionseekeof(vareof相似，只是在測試文件結(jié)束前要跳過空格，制表符號(hào)和文件的結(jié)束符functionseekeof(vareof相似，只是在測試