Giáo trình lập trình nâng cao - Phụ lục

Chia sẻ: Nguyễn Nhi | Ngày: | Loại File: PDF | Số trang:42

Thêm vào BST

Báo xấu

157
lượt xem 35
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Tài liệu tham khảo Giáo trình lập trình nâng cao trên ngôn ngữ Pascal soạn theo chương trình đã được Bộ giáo dục và đào tạo phê chuẩn - Phụ lục : BẢng mã ASCII, Tóm tắt các thủ tục và hàm của Turbo Pascal 7.0, Định hướng biên dịch, Thông báo lỗi

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Giáo trình lập trình nâng cao - Phụ lục

Ph l c 1 B ng mã ASCII Ngôn ng Pascal s d ng các ký t trong b ng mã ASCII ñ xây d ng nên các t khoá, tên chu n, các hàm, th t c ho c các l nh có c u trúc. B ng mã ASCII g m 256 ký t ñư c ñánh s t 0 ñ n 255 và ñư c phân thành các nhóm ký t sau: 1. Các ký t ñi u khi n: 32 ký t ñ u tiên(t 0 ñ n 31) là các ký t ñi u khi n, các ký t này không in ñư c ra màn hình ho c máy in, ví d : ký t Enter(mã 13), ký t ESC(mã 27). 2. Các ký t ñ c bi t: Các ký t có mã ASCII trong kho ng 32-47, 58-64, 91-96, và 123-127 là các ký t ñ c bi t như d u ch m, d u ph y, ký t @, ký t Del,... 3. Nhóm ch s : Các ký t có mã ASCII trong kho ng 48-57 là 10 ch s th p phân 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 4. Nhóm ch cái: + Các ký t có mã ASCII trong kho ng 65-90 là các ch cái in t A ñ n Z + Các ký t có mã ASCII trong kho ng 97-122 là các ch cái nh t a ñ n z Các ch cái thư ng có mã ASCII l n hơn 32 so v i ch in tương ng. Ví d mã ASCII c a a là 97 còn c a A là 65. 5. Nhóm ký t ñ ho Các ký t có mã ASCII trong kho ng 128-255 là các ký t ñ ho . ð hi n toàn b các ký t c a b ng mã lên màn hình (tr 32 ký t ñ u) chúng ta có th cho ch y chương trình sau: Program Ma_ascii; Var n : Byte; Begin For n:=32 to 255 do Write(chr(n),' '); End. Dư i ñây là b ng mã ASCII và hình d ng c a 128 ký t ñ u tiên. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 166
B ng mã ASCII Mã Ký t Mã Ký t Mã Ký t 0 NUI 33 ! 66 B 1 SOH 34 “ 67 C 2 STX 35 # 68 D 3 ETX 36 $ 69 E 4 EOT 37 % 70 F 5 ENQ 38 & 71 G 6 ACK 39 ’ 72 H 7 BEL 40 ( 73 I 8 BS 41 ) 74 J 9 HT 42 * 75 K 10 LF 43 + 76 L 11 VT 44 , 77 M 12 FF 45 - 78 N 13 CR 46 . 79 O 14 SO 47 / 80 P 15 SI 48 0 81 Q 16 DLE 49 1 82 R 17 DC1 50 2 83 S 18 DC2 51 3 84 T 19 DC3 52 4 85 U 20 DC4 53 5 86 V 21 NAK 54 6 87 W 22 SYN 55 7 88 X 23 ETB 56 8 89 Y 24 CAN 57 9 90 Z 25 EM 58 : 91 [ 26 SUB 59 ; 92 \ 27 ESC 60 < 93 ] 28 FS 61 = 94 ^ 29 GS 62 > 95 _ 30 RS 63 ? 96 ‘ 31 US 64 @ 97 a 32 SPACE 65 A 98 b Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 167
Mã Ký t Mã Ký t Mã Ký t 99 c 109 m 119 w 100 d 110 n 120 x 101 e 111 o 121 y 102 f 112 p 122 z 103 g 113 q 123 { 104 h 114 r 124 | 105 i 115 s 125 } 106 j 116 t 126 ~ 107 k 117 u 127 DEL 108 l 118 v Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 168
Ph l c 2 Tóm t t các th t c và hàm c a Turbo Pascal 7.0 Toàn b các th t c, hàm và ñ nh hư ng biên d ch c a Pascal có th tìm hi u trong ph n Help trên th c ñơn chính. T ng c ng có 65 trang màn hình, m i trang ñư c chia ñôi và có 21 dòng t c là có kho ng 2500 m c c n nghiên c u. S lư ng này ngay c v i nh ng ngư i chuyên nghi p cũng không th n m b t h t ñư c. Trong ph l c này chúng tôi ch ch n ra m t s nh nh ng hàm và th t c thông d ng, khi c n bi t ý nghĩa và cách dùng c a m t hàm hay th t c nào ñó b n ñ c ch c n vi t tên hàm hay th t c ñó lên màn hình so n th o Pascal sau ñó b m t h p phím Ctrl - F1, Pascal s hi n lên các ch d n và ví d minh ho . 1. Hàm ABS Cú pháp: Abs(r: Real) : Real; Abs(i: Integer) : Integer; Công d ng: Cho giá tr tuy t ñ i c a ñ i s . 2. Hàm ADDR Cú pháp: Addr(Var Variable) : Pointer; Công d ng: Cho ñ a ch c a bi n. 3. Th t c APPEND Cú pháp: Append(VAR F : Text); Công d ng: M t p văn b n ñ ghi b sung và ñ nh v con tr t i cu i t p. 4. Th t c ARC(Graph Unit) Cú pháp: Arc(x,y:integer;gd,gc,R:word); Công d ng: V cung tròn tâm(x,y) bán kính R, t góc gd ñ n góc gc. 5. Hàm ARCTAN Cú pháp: Arctan(r: Real) : Real; Công d ng: Cho Arctangent c a ñ i r. 6. Th t c ASSIGN Cú pháp: Assign(var F : file; Name String); Công d ng: Liên k t bi n t p F v i t p có tên ch ñ nh trong Name. 7. Th t c ASSIGNCRT(CRT unit) Cú pháp: AssignCrt(Var F : text); Công d ng: Thay vi c g i k t qu ra màn hình b ng vi c l i ñưa vào t p F. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 169
8. Th t c BAR(Graph unit) Cú pháp: Bar(x1,y1,x2,y2:integer); Công d ng: V vùng ch nh t góc trên trái (x1,y1) góc dư i ph i (x2,y2). 9. Th t c BARD3(Graph Unit) Cú pháp: Bar3d(x1,y1,x2,y2:integer; Depth:word; Top:Boolean); Công d ng: V hình h p 3 chi u có tô m u. Chi u sâu là Depth Pixel (ñi m nh). N u Top là True thì h p có n p, n u Top là False thì h p không n p. 10. Th t c BLOCKREAD Cú pháp: Blockread(Var F:file; Var B:type; N:Integer; ); Công d ng: ð c N m u tin t t p không ki u F vào b nh (qua bi n B). KQ cho bi t s m u tin th c s ñ c ñư c. 11. Th t c BLOCKWRITE Cú pháp: Blockwrite(Var F:file; Var B:type; N:Integer); Công d ng: Ghi N m u tin t vùng ñ m B ra t p không ki u F. 12. Th t c CHDIR Cú pháp: ChDir(S:String); Công d ng: Chuy n ñ i thư m c hi n th i sang thư m c có ñư ng d n S. 13. Hàm CHR Cú pháp: Chr(I: Integer); Công d ng: Cho ký t có mã ASCII b ng I. 14. Th t c CIRCLE (Graph Unit) Cú pháp: Circle(x,y:Integer; R:word); Công d ng: V ñư ng tròn tâm(x,y) bán kính R. 15. Th t c CLEARDEVICE(Graph Unit) Cú pháp: ClearDevice; Công d ng: Xoá màn hình ñ ho . 16. Th t c CLEARVIEWPORT(Graph Unit) Cú pháp: Clearviewport; Công d ng: Xóa Viewport hi n hành. 17. Th t c CLOSE Cú pháp: Close(Var F:File); Công d ng: ðóng t p. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 170
18. Th t c CLOSEGRAPH(Graph Unit) Cú pháp: CloseGraph; Công d ng: Ng ng ch ñ ñ ho , chuy n v ch ñ Text. Th t c này cũng gi i phóng vùng nh do h ñ ho s d ng. 19. Th t c CLREOL(CRT Unit) Cú pháp: Clreol; Công d ng: Xóa ký t t v trí con tr (cursor) ñ n cu i dòng hi n hành. 20. Th t c CLRSCR(CRT Unit) Cú pháp: Clrscr; Công d ng: Xoá màn hình trong ch ñ văn b n và ñưa con tr v v trí(1,1). 21. Hàm CONCAT Cú pháp: Concat(S1,S2,…,Sn:String); Công d ng: T o chu i m i b ng cách n i các chu i S1,…, Sn. N u chi u dài c a chu i k t qu l n hơn 255 ký t , Pascal s c t b các ký t t 256 tr ñi . 22. Hàm COPY Cú pháp: Copy(S:String; P,L:Integer):String; Công d ng: Trích t chu i S m t chu i con dài l ký t b t ñ u t ký t th P. 23. Hàm COS Cú pháp: Cos(X:Real): Real; Công d ng: Cho cosine c a góc X. 24. Hàm CSEG Cú pháp: Cseg: word; Công d ng: Cho ñ a ch c a ño n mã chương trình. 25. Th t c DEC Cú pháp: Dec(Var X: SCalar; n:longInt); Công d ng: Gi m bi n X ñi n. N u không có n thì X s b gi m ñi 1. 26. Th t c DELAY(CRT Unit) Cú pháp: Delay(s:word); Công d ng: T m d ng chương trình trong s miligiây , s
27. Th t c DELETE Cú pháp: Delet(S:String; P,L:integer); Công d ng: Xoá L ký t t v trí P ra kh i chu i S 28. Th t c DELLINE(CRT Unit) Cú pháp: Delline; Công d ng: Xoá dòng ch a con tr . Các dòng phía dư i s d n lên phía trên. 29. Th t c DETECTGRAPH(CRT Unit) Cú pháp: DetectGraph(Var GD,GM:Integer); Công d ng: Phát hi n ki u màn hình, mode ñ ho và gán cho các bi n GD,GM. 30. Hàm DISKFREE(DOS Unit) Cú pháp: DiskFree(Drive:word):longint; Công d ng: Cho bi t s byte còn tr ng trên ñĩa ch ñ nh trong Drive. Drive = 0 ng vi ng m ñ nh ,Drive = 1 cho A, 2 cho B. 31. Hàm DISKSIZE(DOS Unit) Cú pháp: Disksize(Drive:word):longint; Công d ng: Cho bi t dung lư ng ñĩa tính theo byte. Tham s Drive xác ñ nh ñĩa (Drive = 1 cho A, 2 cho B, 0 cho ng m ñ nh). 32. Th t c DISPOSE Cú pháp: Dispose(P:Pointer); Công d ng: Gi i to vùng heap c p phát cho bi n con tr P. Dispose dùng kèm v i New. 33. Hàm DOSEXITCODE(DOS Unit) Cú pháp: Dosexitcode:word; Công d ng: Cho mã l i c a ti n trình con (0 = ch m d t bình thư ng, 1 = ch m d t do CTRL – C, 2 = ch m d t do l i thi t b , 3 = ch m d t do th t c KEEP). 34. Hàm DOSVERSION(DOS Unit) Cú pháp: Dosversion : word; Công d ng: Cho s hi u phiên b n (Version) c a h ñi u hành. Ph n chính n m byte cao, ph n ph n m byte th p. 35. Th t c DRAWPOLY(Graph Unit) Cú pháp: Drawpoly(n:word; Var Polypoints); Công d ng: V ña giác n ñ nh. M ng Polypoints ch a to ñ các ñ nh c a ña giác. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 172
36. Hàm ENVCOUNT(DOS Unit) Cú pháp: EnvCount:integer; Công d ng: Cho s lư ng chu i ñư c ñ nh nghĩa trong môi trư ng DOS 37. Hàm EOF Cú pháp: Eof(F:File): Boolean; Công d ng: Cho giá tr TRUE n u con tr ñ nh v cu i t p , các trư ng h p khác cho k t qu FLASE. 38. Hàm EOLN Cú pháp: Eoln(F:File): Boolean; Công d ng: Cho giá tr TRUE n u con tr n m cu i dòng(CR/LF) ho c cu i t p, cho FLASE trong trư ng h p trái l i. 39. Th t c ERASE Cú pháp: Erase(F:File); Công d ng: Xoá t p và các thông tin v t p F kh i ñĩa . 40. Th t c EXEC Cú pháp: Exec(Path,Cmdline:String); Công d ng: Th c hi n t p có tên n m trong path v i các tham bi n dòng l nh ñư c ñ nh nghĩa trong Cmdline. 41. Th t c EXIT Cú pháp: Exit; Công d ng: Thoát kh i kh i hi n th i (kh i có th là chương trình con, c u trúc l p) n u exit n m trong chương trình chính thì thoát kh i chương trình). 42. Hàm EXP Cú pháp: EXP(X:Real):Real; Công d ng: Lu th a e c a ñ i s X. 43. Hàm FEXPAND(DOS Unit) Cú pháp: Fexpand(P:PathStr):PathStr; Công d ng: Cho ñư ng d n c a t p P . Ví d t p A1.pas hi n lưu trong thư m c c:\tp\bin. Trong ph n khai báo chương trình có l nh: Uses Dos; Khi ñó l nh Writeln(Fexpand(‘a1.pas’) cho k t qu là C:\TP\BIN\A1.PAS 44. Hàm FILEPOS Cú pháp: FilePos(F:File):integer; Công d ng: Cho s hi u b n ghi c a t p F mà con tr ñang tr t i. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 173
45. Hàm FILESIZE Cú pháp: FileSize(F:file):integer; Công d ng: Cho s lư ng b n ghi ñang có trong t p F. 46. Th t c FILLELIPES(Graph Unit) Cú pháp: Fillelipse(x,y:integer; a,b:word); Công d ng: V elipse có tâm(x,y) v i hai bán tr c là a, b. 47. Th t c FILLPOLY(Graph Unit) Cú pháp: Fillpoly(n:word; Var Polypoints); Công d ng: V ña giác n ñ nh. M ng Polypoints ch a to ñ các ñ nh c a ña giác. 48. Th t c FLOODFILL(Graph Unit) Cú pháp: FloodFill(x,y:integer; border:word); Công d ng: Tô màu m t vùng khép kín trên màn hình ñ ho n u to ñ (x,y) n m bên trong vùng. N u x,y n m ngoài vùng thì mi n bên ngoài ñư c tô. 49. Th t c FLUSH Cú pháp: Flush(Var F:Text); Công d ng: ð y ra ñĩa t t c k t qu ñang n m trong vùng ñ m cho t p F. 50. Hàm FRAC Cú pháp: Frac(x:Real):Real; Công d ng: Cho ph n l th p phân c a ñ i s x. 51. Th t c FREEMEM Cú pháp: Freemem(Var F:pointer; I:Integer); Công d ng: Gi i phóng I byte c a vùng heap ñã c p phát cho bi n con tr F b ng th t c GetMem. 52. Th t c GETARCCOORDS(Graph Unit) Cú pháp: Getarrccoords(Var ArcCoords : ArcCooType); Công d ng: Cho bi t các to ñ ñã ñư c l nh Arc hay Ellipse trư c ñó s d ng. C u trúc c a ArcCoordsType như sau: TYPE ArcCoordstype = Recode x, y, XStard, YStart, Xend, Yend:Integer; End; Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 174
53. Th t c GETASPECTRATIO(Graph Unit) Cú pháp: GetAspectratio(Var Xasp, Yasp:word); Công d ng: Cho ñ phân gi i c a màn hình ñ ho (ch a trong các bi n Xasp và Yasp). 54. Hàm GETBKCOLOR(Graph Unit) Cú pháp: GetBKColor : word; Công d ng: ch n m u n n , có th thay th s hi u màu b i tên h ng màu. 55. Hàm GETCOLOR(Graph Unit) Cú pháp: GetColor:word; Công d ng: Ch n màu nét v , có th thay th s hi u màu b i tên h ng màu. 56. Th t c GETDATE(DOS Unit) Cú pháp: GetDate(Var year, Month, Day, Dayofweek:word); Công d ng: Cho ngày tháng hi n hành c a h th ng. 57. Th t c GETDEFAULTPALETTE(Graph Unit) Cú pháp: Getdefaultpalette(Var Pal:PaletteType); Công d ng: Cho trong Pal b ng m u Ng m ñ nh cho trình ñi u khi n ñ ho hi n hành. C u trúc c a ki u PaletteType như sau: TYPE PaletteType = Record Size:Byte; Colors: Array[0..Maxcolor] of Shortint; End; 58. Th t c GETDIR Cú pháp: GetDir(d: Byte; Var S: String); Công d ng: Cho bi t thư m c hi n hành trên ñĩa ñư c ch ñ nh trong d. Tên thư m c ñư c cho trong S (n u d = 0 thì GetDir s tìm trong ñĩa ng m ñ nh, còn n u d = 1, 2, 3 ng v i các ñĩa A, B, C). 59. Hàm GETDRIVERNAME(Graph Unit) Cú pháp: GetDriverName : String; Công d ng: Cho tên c a trình ñi u khi n ñ ho hi n hành. 60. Th t c GETFATTR(DOS Unit) Cú pháp: GetFAttr(Var F; Var Attr: word); Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 175
Công d ng: Cho bi t thu c tính c a t p F. Trư c khi g i th t c này t p ph i ñư c gán thu c tính nhưng không m . 61. Th t c GETFILLPATTERN(Graph Unit) Cú pháp: GetFillPattern(Var FP : FillpatternType); Công d ng: Cho trong FP s hi u c a m u tô hi n hành (màu n n ch có 8 giá tr ). C u trúc c a FillPartternType là: TYPE FillPartternType = Array[1..8] of Byte 62. Th t c GETFILLSETTINGS(Graph Unit) Cú pháp: GetFillSettings(Var FS : FillSettingsType); Công d ng: Cho trong FS m u và m u tô hi n hành. C u trúc c a FillSettingsType là: TYPE FillSettingsType = Record Pattern : word; Color : word; End; 63. Th t c GETFTIME(DOS Unit) Cú pháp: GetFTime(Var F; Var Time : Longint); Công d ng: cho bi t ngày tháng và gi mà t p F ñư c ghi. 64. Hàm GETGRAPHMODE(Graph Unit) Cú pháp: GetGraphMode : Integer; Công d ng: cho bi t ki u ñ ho hi n hành. 65. Th t c GETIMAGE(Graph Unit) Cú pháp: Getimage(x1,y1,x2,y2 : integer; Var Bitmap); Công d ng: lưu tr ph n hình ch nh t (x1,y1,x2,y2) trên màn hình ñ ho vào BitMap. 66. Th t c GETLINESETTINGS(Graph Unit) Cú pháp: GetlineSettings(Var LST : LineSettingsType); Công d ng: Cho trong LST giá tr hi n hành c a d ng ñư ng , m u, b dày. C u trúc c a LineSettingsType như sau: TYPE LineSettingsType = Record LineStyle , Pattern , Thickness : word; End; Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 176
67. Hàm GetMaxcolor(Graph Unit) Cú pháp: GetMaxcolor : word; Công d ng: cho s hi u cao nh t c a mã m u trong b ng m u hi n hành. 68. Hàm GETMAXMODE(Graph Unit) Cú pháp: GetMaxMode : word; Công d ng: Hàm cho giá tr là m t s ki u word, s này ng v i ki u ñ ho có ñ ph n gi i cao nh t c a màn hình ñang dùng. H u h t các màn hình có ki u ñ ho t 0 ñ n Getmaxmode. 69. Hàm GETMAXX(Graph Unit) Cú pháp: GetMaxX : integer; Công d ng: cho hoành ñ l n nh t c a màn hình ñ ho hi n hành. 70. Hàm GETMAXY(Graph Unit) Cú pháp: GetMaxY : Integer; Công d ng: cho tung ñ l n nh t c a ki u màn hình ñ ho hi n hành. 71. Th t c GETMEM Cú pháp: GetMem(Var P : Pointer; I: integer); Công d ng: C p phát cho bi n con tr P m t vùng nh có dung lư ng I byte. 72. Hàm GETMODENAME(Graph Unit) Cú pháp: GetModeName(ModeNumber : word) : String; Công d ng: cho m t chu i mô t ki u ñ ho ng v i ModeNumber. 73. Th t c GETMODERANGE(Graph Unit) Cú pháp: GetModeRange(GraphDriver:Integer; Var Lomode, Himode:Integer); Công d ng: Cho ki u phân gi i th p nh t(LoMode) và cao nh t (HiMode) c a trình ñi u khi n ñ ho ng v i GraphDriver. 74. Th t c GETPALETTE(Graph Unit) Cú pháp: GetPalette(Var P : PaletteType); Công d ng: tr v giá tr là m t bi n ki u b n ghi g m 2 trư ng trư ng size cho bi t s lư ng màu trong Palette, trư ng color cho bi t mã màu hi n hành. PaletteType là ki u Record ñư c ñ nh nghĩa như sau: TYPE PaleteType = Record Size : Byte; Colors : Array[0..15] of Shortint; End; Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 177
75. Hàm GETPALETTESIZE(Graph Unit) Cú pháp: GetPaletteSize : word; Công d ng: Cho s lư ng sơ ñ màu l n nh t mà ki u màn hình ñ ho hi n hành có th cung c p. Ví d màn hình EGA hàm này cho k t qu là 16. 76. Hàm GETPIXEL(Graph Unit) Cú pháp: GetPixel(x,y:Integer); Công d ng: cho m u c a ñi m nh t i to ñ (x,y). 77. Th t c GETTEXTSETTINGS(Graph Unit) Cú pháp: GetTextSettings(Var TS : GettextsettingsType); Công d ng: Cho bi t các giá tr ñ nh d ng văn b n hi n hành. Các giá tr này lưu vào bi n TS ki u b n ghi. C u trúc c a b n ghi là: TYPE GetTextSettingsType = Record; Font, Direction, Charsize, Horiz, Vert:word; End; 78. Th t c GETTIME(DOS Unit) Cú pháp: GetTime(Var Hour,Minute,Second,Sec100:word); Công d ng: Cho gi h th ng. 79. Hàm GETX(Graph Unit) Cú pháp: Getx : Integer; Công d ng: Cho to hoành ñ cu con tr hi n hành. 80. Hàm GETY(Graph Unit) Cú pháp: Gety : Integer; Công d ng: Cho tung ñ cu con tr hi n hành. 81. Th t c GOTOXY(CRT Unit) Cú pháp: Gotoxy(x,y: Integer); Công d ng: ðưa Curson (con tr ) ñ n to ñ (x,y); 82. Hàm GRAPHERRORMSG(Graph Unit) Cú pháp: GraphErrorMsg(Code : Integer):String; Công d ng: Cho thông báo l i ñ ho ng v i mã l i trong Code. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 178
83. Th t c GRAPHDEFAULTS(Graph Unit) Cú pháp: GraphDefaults; Công d ng: Tr v các giá tr ng m ñ nh cho ñ nh d ng ñ ho . 84. Th t c GRAPHRESULT(Graph Unit) Cú pháp: Graphresult : Integer; Công d ng: Cho mã l i c a th t c ñ ho sau cùng. 85. Th t c HALT Cú pháp: Halt; Công d ng: D ng ngay chương trình. 86. Hàm HI Cú pháp: Hi(I : Integer): Byte; Công d ng: Cho Byte cao trong s nguyên I. 87. Th t c HIGHVIDEO(CRT Unit) Cú pháp: HighVideo; Công d ng: tăng ñ sáng màn hình . 88. Hàm IMAGESIZE(Graph Unit) Cú pháp: ImageSize(x1,y1,x2,y2 : Integer); Công d ng: Cho dung lư ng tính theo byte ñ lưu tr m t mi n nh Bitmap trong vùng ch nh t x1,y1,x2,y2. 89. Th t c INC Cú pháp: Inc(Var x [;n : longint]); Công d ng: Tăng giá tr x thêm n (x ph i thu c ki u nguyên). N u b qua n thì x s tăng lên 1. Ví d : Var x:integer; Begin X:=15; Inc(x); {x s có giá tr là 16} Inc(x,5); {x s có giá tr là 20} End; 90. Th t c INITGRAPH(Graph Unit) Cú pháp: InitGraph(Var GD, GM:Integer; Driverpath:string); Công d ng: Kh i t o môi trư ng ñ ho và ñưa ph n c ng vào mode ñ ho . GD là trình ñi u khi n ñ ho , GM là mode ñ ho . N u GD b ng Detect, th t c t ñ ng ki m tra ph n c ng và ch n các thông s t i ưu. Th t c s tìm các t p BGI trong ñư ng d n DriverPath. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 179
91. Hàm INSERT Cú pháp: Insert(Source:String; Var Target:String; Index:Integer); Công d ng: Chèn chu i Source vào chu i Target v trí Index. 92. Th t c InsLine(CRT Unit) Cú pháp: InsLine; Công d ng: chèn m t dòng tr ng vào v trí hi n hành c a con tr trên màn hình. 93. Hàm INT Cú pháp: Int(x:Real): Real; Công d ng: Cho ph n nguyên c a x 94. Hàm INTR(DOS Unit) Cú pháp: Intr(Fune:Byte; Var Regs:Registers); Công d ng: G i ng t có s hi u Fune c a Bios v i các thanh ghi ñư c ñ nh nghĩa qua Regs. 95. Hàm IORESULT(CRT Unit) Cú pháp: IOResult : word; Công d ng: Cho mã l i khi th c hi n thao tác vào/ra. N u IOResult khác không thì có nghĩa là ñã x y ra l i. 96. Th t c KEEP(DOS Unit) Cú pháp: Keep(Exitcode:word); Công d ng: K t thúc chương trình nhưng v n gi nó thư ng trú. 97. Hàm KEYPRESSED(CRT Unit) Cú pháp: Keypressed : Boolean; Công d ng: Cho giá tr TRUE khi có m t phím ñư c b m. 98. Hàm LENGTH Cú pháp: Leng(S:String):Integer; Công d ng: Cho chi u dài c a chu i S 99. Th t c LINE(Graph Unit) Cú pháp: Line(x1,y1,x2,y2:Integer); Công d ng: V ñư ng th ng t (x1,y1) ñ n (x2,y2). Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 180
100. Th t c LINEREL(Graph Unit) Cú pháp: Linerel(Dx,Dy:Integer); Công d ng: V ñư ng th ng t v trí hi n t i c a con tr (to ñ x,y) ñ n ñi m (x+Dx,y+Dy). 101. LINETO(Graph Unit) Cú pháp: Lineto(x,y:Integer); Công d ng: V ñư ng th ng t v trí hi n t i c a con tr ñ n ñi m(x,y). 102. Hàm LN Cú pháp: Ln(Var x:Real):Real; Công d ng: Cho logarit t nhiên c a x. 103. Th t c LOWVIDEO(CRT Unit) Cú pháp: LowVideo; Công d ng: gi m ñ sáng màn hình. 104. Th t c MARK Cú pháp: Mark(P:pointer); Công d ng: ñánh d u ñ a ch ñ nh heap trong con tr P 105. Hàm MAXAVAIL Cú pháp: MaxAvail : LongInt; Công d ng: Cho kích thư c kh i l n nh t c a vùng nh chưa c p phát c a Heap. 106. Hàm MEMAVAIL Cú pháp: MemAvail : ; Công d ng: cho t ng dung lương c a các kh i nh t do trong Heap. 107. Th t c MKDIR Cú pháp: MKDir(S:String); Công d ng: T o thư m c m i v i tên ch ñ nh trong S. 108. Th t c MOVE Cú pháp: Move(Var V1,V2,n:Integer); Công d ng: chép n byte t bi n V1 ñ n bi n V2. 109. Th t c MOVEREL(Graph Unit) Cú pháp: MoveRel(Dx,Dy:Integer); Công d ng: chuy n con tr t to ñ hi n th i (x,y) ñ n to ñ x+dx, y+dy. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 181
110. Th t c MOVETO Cú pháp: MoveTo(x,y:Integer); Công d ng: ñ nh v con tr t i to ñ (x,y). 111. Th t c MSDOS(DOS Unit) Cú pháp: MSDOS(Var Regs:Registers); Công d ng: g i ph c v DOS v i t p giá tr c a các thanh ghi trong Regs. 112. Th t c NEW Cú pháp: New(Var P:Pointer); Công d ng: c p phát vùng heap cho con tr P. 113. Th t c NORMVIDEO(CRT Unit) Cú pháp: NormVideo; Công d ng: khôi ph c thu c tính màn hình ng m ñ nh. 114. Th t c NOSOUND(CRT Unit) Cú pháp: NoSound; Công d ng: t t âm thanh phát ra loa. 115. Hàm ODD Cú pháp: Odd(I:Integer): Boolean; Công d ng: Cho True khi I là s l và False khi I là s ch n 116. Hàm OFS Cú pháp: Ofs():Integer; Công d ng: Cho Offset ñ a ch vùng nh c a bi n, th t c hay hàm. 117. Hàm ORD Cú pháp: Ord(S:Scalar):Integer; Công d ng: Cho s th t c a S (có ki u vô hư ng ñ m ñư c). 118. Th t c OUTTEXT(Graph Unit) Cú pháp: Outtext(Textstring):String; Công d ng: vi t chu i Textstring trong ch ñ ñ ho . C n ch n trư c ki u ch , kích thư c, màu s c và hư ng vi t. 119. Th t c OUTTEXTXY(Graph Unit) Cú pháp: OuttextXY(x,y:Integer; TextString:String); Công d ng: Hi n th chu i TextString v trí(x,y). C n ch n trư c ki u ch , kích thư c, màu s c và hư ng vi t. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 182
120. Th t c OVRCLEARBUF(Overlay Unit) Cú pháp: OvrClearBuf; Công d ng: xoá s ch vùng ñ m Overlay. 121. Hàm OVRGETBUF(Overlay Unit) Cú pháp: OvrGetBuf : LongInt; Công d ng: Cho kích thư c c a vùng ñ m Overlay. 122. Th t c OVRINIT(Overlay Unit) Cú pháp: OVRInit(FileName:String); Công d ng: Kh i t o quá trình qu n lý Overlay và m t p Overlay ñư c ch ñ nh trong FileName. Th t c này c n ñư c g i t i trư c b t c th t c Overlay nào. 123. Th t c PACKTIME(DOS Unit) Cú pháp: PackTime(Var DT: DateTime; Var Time:Longint); Công d ng: Chuy n hoá thông tin ngày, tháng và gi trong DT (ki u b n ghi) thành s 4 Byte và g i vào bi n Time . 124. Th t c OVRINITEMS(Overlay Unit) Cú pháp: OvrInitEMS(fileName:String); Công d ng: N p t p Overlay vào vùng nh m r ng (EMS) n u còn ñ . 125. Th t c OVRSETBUF(Overlay Unit) Cú pháp: OvrsetBuf(BufSize:Integer); Công d ng: C p phát Bufsize byte cho vùng ñ m Overlay. BufSize ph i nh hơn vùng ñ m Overlay ng m ñ nh. 126. Hàm PARAMSTR Cú pháp: ParamStr(I:word):String; Công d ng: Cho tham s dòng l nh th I. Paramstr(0) cho ñư ng d n tên t p chương trình hi n hành (c:\tp\bin\turbo.exe) 127. Hàm PI Cú pháp: Pi:Real; Công d ng: Cho h ng s Pi 128. Th t c PIESLICE(Graph Unit) Cú pháp: Pieslice(x,y:Integer; a1,a2,R:word); Công d ng: V hình qu t tâm(x,y) bán kính R, t góc a1 ñ n góc a2. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 183
129. Hàm POS Cú pháp: Pos(SubS,S:String):Integer; Công d ng: Cho v trí b t ñ u c a chu i con SubS trong S. N u SubS không n m trong S thì hàm POS cho giá tr 0. 130. Hàm PRED Cú pháp: Pred(S:Scalar):Integer; Công d ng: Cho ph n t phía trư c ph n t S (S ph i thu c ki u vô hư ng ñ m ñư c). Pred(5) = 4. 131 Th t c PUTIMAGE(Graph Unit) Cú pháp: PutImage(x,y:Integer; Var BitMap; BitBlt:word); Công d ng: Hi n nh ch a trong BitMap b t ñ u t i ñi m (x,y). BitBlt ch ñ nh phương th c hi n nh và có th nh n giá tr ki u s ho c h ng ký t như sau: COPYPUT = 0; XORPUT = 1; ORPUT = 2; ANDPUT = 3; NOTPUT = 4; 132. Th t c PUTPIXEL(Graph Unit) Cú pháp: PutPixel(x,y:Integer; Color:word); Công d ng: V m t ñi m nh (Pixel) t i to ñ (x,y) theo m u ch ñ nh b i color. 133. Hàm RANDOM Cú pháp: Random(I:word):word; Công d ng: Cho m t s ng u nhiên k v i 0
137. Th t c RECTANGLE Cú pháp: Rectangle(x1,y1,x2,y2:Integer); Công d ng: V hình ch nh t có góc trên bên trái to ñ (x1,y1) và có góc dư i bên ph i to ñ (x2,y2). 138. Th t c RELEASE Cú pháp: Release(Var P:Pointer); Công d ng: Gi i to vùng nh heap ñã c p phát k t l n ghi (Mark) g n nh t trư c ñó. P c t gi ñ a ch c a ñ nh heap. 139. Th t c RENAME Cú pháp: Rename( Var F:File; S:String); Công d ng: ð i tên t p F thành S. 140. Th t c RESET Cú pháp: Reset(Var F:File [;I:Integer]); Công d ng: M t p F ñ ñ c. N u t p ñó không ki u, ta có th ch ñ nh kích thư c m u tin trong I. 141. Th t c RESTORECRTMODE(Graph Unit) Cú pháp: RestoreCRTmode; Công d ng: thoát kh i ki u màn hình ñ ho tr v ki u văn b n. 142. Th t c REWRITE Cú pháp: Rewrite(Var F:File [;I:Integer]); Công d ng: Chu n b t p ñ ghi. N u t p chưa t n t i Pascal s t o ra t p m i v i tên t p ghi trong F . N u ñã có m t t p trên ñĩa thì t p cũ s b xoá và m t t p r ng ñư c th ch . V i t p không ki u ta có th ñ nh chi u dài c a recor (b n ghi) trong I. 143. Th t c RMDIR(DOS Unit) Cú pháp: RmDir(S:String); Công d ng: xoá thư m c ñư c có tên ch ñ nh trong S 144. Hàm ROUND Cú pháp: Round(x;Real):LongInt; Công d ng: Làm tròn x. 145. Th t c RUNERROR Cú pháp: RunError [(ErrorCode:word)]; Công d ng: D ng chương trình, phát sinh l i Run-Time v i s hi u l i Errorcode. Trư ng ð i h c Nông nghi p 1 - Giáo trình L p trình nâng cao ..............................................................- 185