Trường ðại học Nông nghiệp 1 - Giáo trình Lập trình nâng cao ..............................................................-
169

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.

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 ..............................................................-
171

18. Thủ tục CLOSEGRAPH(Graph Unit)
Cú pháp: CloseGraph;

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<=65535
Trường ðại học Nông nghiệp 1 - Giáo trình Lập trình nâng cao ..............................................................-
172

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
với ổ ngầm ñịnh ,Drive = 1 cho ổ A, 2 cho ổ B.

31. Hàm DISKSIZE(DOS Unit)
Cú pháp: Disksize(Drive:word):longint;

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

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 ..............................................................-
175

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.

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 ..............................................................-
176

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.



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;