Thư viện hàm thủ tục Pascal

Name Unit Syntax Abs System Abs ( r : Real) : Real; Use Abs Trả giá trị tuyệt đối tham biến nguyên truyền sang Kết hàm kiểu với tham biến Ví dụ: ABS(3) = ABS(3) = Addr System Addr (Var Variable) Addr Trả địa : Real; biến, có kiểu hay thủ tục Kết có kiểu Pointer Append System Append ( Var F : Append Mở tệp tin Text ); văn có đĩa để viết tiếp vào cuối tệp Nếu tệp tin tồn máy báo lỗi Arc Graph Arc ( X,Y: integer; Arc Vẽ đường tròn G1,G2,R : Word); có tọa độ tân (X,Y), với bán kính R Vòng tròn đợc vẽ với chiều quay ngợc chiều kim đồng hồ, G1 kết thúc G2 ArcTan System ArcTan ( R : Real) : ArcTan Trả Real; Arctangent cho tham biến R Name Unit Syntax Use Assign System Assign ( Var F : Assign liên kết File; Name : String biến F vào tệp tin ); có tên định Name Assign Crt AssignCrt ( Var F : AssignCrt cho Crt Text ); phép ngời dùng thay gửi kết hình lại đa vào tệp tin F Bar Graph Bar (x1,y1,x2,y2 : Bar vẽ vùng hình Integer ); chữ nhật có tơ mầu bên Bar3D Graph Bar3D(x1,y1,x2,y2 Bar3D vẽ hình hộp : Integer; Depth : ba chiều có tơ word; Top: mầu Hộp có Bolean); bề sâu Depth điểm ảnh Nếu Top True thủ tục vẽ hộp có nắp BlockR System BlockRead(Var F: F biến kiểu tệp ead File; Var Buf; N: tin không định Word; Var Re: kiểu, Buf Word); biến bất kì, nhớ đệm Blockread đọc N ghi vài ghi từ tệp tin F vào nhớ Buf, file Buf Số ghi đợc đọc hoàn chỉnh Name Unit Syntax Use đợc báo cáo tham số chọn Re Nghĩa Re thông báo số Record đợc đọc vào Nếu Re khơng có mặt , lỗi vào xuất số ghi đợc đọc khác N BlockW System BlockWrite(Var F: BlockWrite ghi N rite File; Var Buf; N: mẩu tin từ vùng Integer); đệm Buf tệp tin không kiểu F ChDir System ChDir ( S: String ); ChDir thay đổi th mục hành sang th mục có đờng dẫn S Chr System Chr(X: Byte): Char; Chr Trả kí tự mã ASCII tơng ứng với I Ví dụ: Chr(65) = A Circle Graph Circle(X,Y: Integer; Circle vẽ tròn có R: Word); tâm toạ độ (X,Y) bán kính R ClearD Graph ClearDevice; ClearDevice xóa evice hình đồ họa ClearVi Graph ClearViewPort; ClearViewPort xóa ewPort ViewPort hành Close System Close (Var F: File); Close đẩy vùng Name CloseG raph ClrEol ClrScr Concat Unit Syntax Use đệm cho tệp tin F đĩa, sau đóng tệp tin Graph CloseGraph; CloseGraph khơi phục kiểu hình trớc khởi tạo đồ họa Thủ tục đồng thời giải phóng vùng nhớ hệ thống đồ họa sử dụng Crt ClrEol; ClrEol xóa tồn kí tự kể từ vị trí trỏ tới cuối dòng hình văn Mọi vị trí kí tự bị xóa đợc để trống với thuộc tính văn hành Crt ClrScr; ClrScr(Clear Screen) xóa tồn hình đa trỏ vị trí (1,1) hình System Concat(S1,S2, ,S Concat nối n): String; chỗi S1,S2, Sn với Nếu chiều dài chuỗi kết lớn Name Unit Syntax Use 255 Turbo Pascal báo lỗi RunTime Ví dụ: Concat('Viet ','Nam ') = 'Viet Nam' Copy System Copy(S: String; Copy trả I,N: Integer): chuỗi trích từ String; chỗi S, kí tự thứ I có độ dài N kí tự Ví dụ: Copy('Viet Nam Ha Noi',12,6) = 'Ha Noi' Cos System Cos(R: Real): Real; Cos trả Cosine góc R Cseg System Cseg : Word; Cseg trả địa đoạn đoạn mã chơng trình Dec System Dec ( var X: Dec giảm biến X Scalar; N: N Nếu khơng có LongInt ); N, X giảm 1, điều có nghĩa Dec(X) tơng đơng với X:=X - Dec (X,N) tơng đơng với X:= X - N Ví dụ: Với g=5, sau thủ tục Dec(g,2) g có giá trị 3; sau thủ tục Dec(g) g có giá trị Name Delay Unit Crt Syntax Delay ( Ms : Word ); Use Delay tạm treo chơng trình Ms mili giây Delete System Delete ( var S: Delete xóa N kí tự String; I,N: Integer vị trí I ); khỏi chuỗi S Ví dụ: Với S='Viet Nam', sau thủ tục Delete(S,5,4) S='Viet' DelLine Crt DelLine; DelLine xóa dòng hình chứa trỏ dòng phía dới cuộn lên dòng Detect Graph DetectGraph ( Var DetectGraph phát Graph Gd,Gm: Integer ); trả trình điều khiển đồ họa Gd kiểu đồ họa Gm tơng hợp đồ họa dùng DiskFre Dos DiskFree (Driver: DiskFree trả số e Word): LongInt; bytes trống ổ đĩa định tham biến Driver( Driver cho ổ A, cho ổ B, cho ổ mặc định) Name DiskSiz e Unit Dos Syntax DiskSize (Driver: Word): LongInt; Use DiskSize trả dung lợng ổ đĩa tính bytes Driver xác định ổ đĩa cho ổ A, cho ổ B, cho ổ mặc định Dispos System Dispose (P: Dispose giải tỏa e Pointer); vùng Heap cấp phát cho biến trỏ Dispose dùng kèm với New DosExit Dos DosExitCode : DosExitCode trả Code Word; mã lỗi tiến trình con: : Chấm dứt bình thờng 1: Chấm dứt Ctr-C 2: Chấm dứt lỗi thiết bị 3: Chấm dứt thủ tục Keep DosVer Dos DosVersion : Word; DosVersion trả sion số liệu Version hệ điều hành Dos Phần nằm byte cao, phần phụ nằm byte thấp DrawPo Graph DrawPoly (Np: DrawPoly vẽ đa ly Word; Var giác có Np Polypoints); điểm.Mảng Name Unit Syntax Use PolyPoints chứa tọa độ điểm đa giác Dseg System Dseg : Word; Dseg trả địa đoạn đoạn liệu chơng trình Ellipse Graph Ellipse (X,Y: Ellipse vẽ hình Integer; Sa,Ea: Eliipse có tâm Word; Rx,Ry: (X,Y) Rx bán Word); kính trục đứng, Ry bán kính trục ngang Sa góc bắt đầu, Ea góc kết thúc EnvCou Dos EnvCount : EnvCount trả số nt Integer; lợng chuỗi đợc định nghĩa môi trờng Dos EnvStr Dos EnvStr (I: Integer): EnvStr trả số lInteger; ợng chỗi môi trờng thứ I Eof System Eof (F: File): Eof trả True Bolean; trỏ tệp tin F điểm cuối tệp tin EoLn System EoLn ( F: File ): EoLn trả True Bolean; trỏ tệp tin F cuối dòng cuối tệp tin Erase System Erase ( F: File ); Erase xóa tệp tin F Name Unit Syntax Use khỏi đĩa thông tin tệp tin th mục Exec Dos Exec Exec thực tệp (Path,CmdLine: tin có tên nằm String); Path với tham biến dòng lệnh đợc định nghĩa CmdLine Exit System Exit; Exit làm chơng trình khỏi khối thực Nếu Exit thuộc chơng trình chấm dứt chơng trình trở chỗ gọi Nếu Exit thuộc chơng trình việc thực làm chấm dứt chơng trình Exp System Exp (R: Real): Exp trả giá trị e Real; mũ R Fexpan Dos FExpand (Path: FExpand nhận tên d PathStr): PathStr; tệp tin P dạng ngắn gọn mở rộng tên tệp tin dạng đầy đủ(có ln tên ổ đĩa đ- Name Unit Syntax Use ờng dẫn đó) FilePos System FilePos (F: File): FilePos trả lại vị trí Integer; hành trỏ tệp tin F FileSize System FileSize (F: File) FileSize trả kích Integer; thớc F tính theo byte Nếu tệp tin rỗng FileSize(F) trả giá trị FillChar System FillChar(Var X; FillChar điền liên Count: Word; tục Count phần tử Value); có giá trị Value vào biến (mảng) X FillElips Graph FillElipse (X,Y: FillElipse vẽ Elip có e Integer; Xr,Yr: tâm tọa độ (X,Y) Word); với bán kính dọc Xr, bán kính ngang la Yr Elip đợc tô theo mầu mẫu tô hành, mầu đờng viền mầu thể FillPoly Graph FillPoly (NP: Word; FillPoly vẽ đa giác Var PolyPoints); có NP điểm mảng PolyPoints chứa tọa độ điểm đa giác FindFirs Dos FindFirst (Path: FindFirst trả Name Unit Syntax Registe Graph RegisterBGIFont rBGIFo (Font: Pointer): nt Iteger; Use khiển BGI ( đọc từ đĩa vào Heap hay liên kết vào chơng trình nhờ BINOBJ) đăng kí trình điều khiển với hệ đồ họa Driver trỏ trỏ đến vị trí trình điều khiển BGI có lỗi hàm trả giá trị âm Ngợc lại hàm trả lại số trình điều khiển bên RegisterBGIFont cho phép ngời dùng nạp Font.BGI ( đọc từ đĩa vào Heap hay liên kết vào chơng trình nhờ BINOBJ) đăng kì Font với hệ đồ họa Font trỏ trỏ đến vị trí trình điều khiển BGI Nếu có lỗi hàm trả giá trị âm Ngợc lại hàm trả lại số font đợc đăng ký Name Unit Syntax Releas System Release (Var P: e Pointer); Use Release giải tỏa vùng nhớ cấp phát tính từ lệnh Mark P cất địa đỉnh Heap Renam System Rename (Var F: Rename đổi tên e File; St: String); tệp tin F thành St Reset System Reset (Var F: File; Reset mở tập tin F I: Integer); để đọc liệu, tập tin không định kiểu bạn định kích thớc mẫu tin I Restore Graph RestoreCrtMode ; RestoreCrtMode CrtMod khôi phục kiểu làm e việc cũ hình trớc khởi tạo đồ họa Rewrite System Rewrite (Var F: Rewrite chuẩn bị File; I: Integer); tệp tin để ghi Nếu khơng có tập tin Turbo Pascal tạo Nếu tập tin có nội dung cũ bị hủy Nếu tập tin khơng kiểu bạn định chiều dài Record I RmDir System RmDir (St: String); RmDir hủy th mục Name Unit Syntax Use đợc định St Round System Round (R: Real): Round làm tròn giá LongInt; trị kiểu số thực R thành kiểu số nguyên Ví dụ: Round(1.6) = RunErr System RunError RunError làm dừng or (ErrorCode: Word); chơng trình tạo lỗi run-time ErrorCode số mã lỗi chạy Sector Graph Sector (X,Y: Sector vẽ cung có Integer; tâm tọa độ (X,Y), SA,EA,RX,RY: bắt đầu Sa Word); kết thúc EA Với bán kính ngang XR bán kính dọc la YR Seek System Seek (Var F: File; P: Seek di chuyển Integer); trỏ tập tin đến điểm đầu mẩu tin thứ P tập tin F SeekEo System SeekEof ( Var F: SeekEof tơng tự f File): Boolean; nh Eof, có khác biệt nhảy qua khoảng trống, tab, trớc kiểm tra dấu hết file SeekEo System SeekEoln ( Var F: SeekEoln tơng tự Name ln Unit Syntax File): Boolean; Use nh Eoln, có khác biệt nhảy qua khoảng trống, tab, trớc kiểm tra dấu hết dòng Seg System Seg (Var Variable): Seg trả địa Word; đoạn biến, hàm hay thủ tục SetActi Graph SetActivePage SetActivePage vePage (Page: Word); chọn trang hình đồ họa làm trang chủ động SetAllP Graph SetAllPalette ( Var SetAllPalette thay alette Palette); đổi tất bảng mầu theo định nghĩa đợc chứa Palette SetAsp Graph SetAspectRatio(Xa SetAspectRatio ectRati sp, Yasp: Word); thay đổi Aspect o dùng để hiển thị đồ họa theo tỉ số Xasp chia cho Yasp SetBkC Graph SetBkColor (Color: SetBkColor lập olor Word); màu mặc định cho kiểu đồ họa theo số Color bảng màu hành SetCBr Dos SetCBreak (Break : SetCBreak bật Ctrl Name eak Unit Syntax Boolean); SetColo Graph SetColor (Color: r Word); SetDat e Dos SetDate (Year,Month,Day: Word); SetFAtt r Dos SetFAttr (Var F,Attr: Word); SetFillP Graph SetFillPattern attern (Pattern: FillPatternType; Color: Word); SetFillS Graph SetFillStyle tyle (Pattern: Word; Color: Wrod); SetFTi Dos SetFTime(Var F, me Time: Longint); Use - Break Break True tắt Break False SetColor lập màu vẽ theo số Color bảng màu SetDate cập nhật đồng hồ hệ thống theo ngày tháng truyền qua tham biến SetFAttr lập thuộc tính tập tin F thành Attr Tập tin F phải đợc gán nhng không đợc mở trớc gọi thủ tục SetFillPattern xác định mẫu tô đồ họa dùng để tô phầm hình FillPoly hay FloodFill SetFillStyle ấn định mẫu tô vùng SetFTime đặt ngày cho tập tin F theo giá trị Name Unit Syntax SetGra Graph SetGraphBufSize phBufSi (BufSize: Word); ze SetGra Graph SetGraphMode phMod (Mode: Integer); e SetIntV Dos SetIntVec (IntNo: ec Byte; Vector: Pointer); SetLine Graph SetLineStyle Style (LineStyle,Pattern, ThickNess: Word); SetPale Graph SetPalette tte (ColorNum: Word; Color: ShortInt); SetRGB Graph SetRGBPalette(Col Palette orNum, RedValue, GreenValue, BlueValue: Integer); SetText System SetTextBuf (Var F: Use biến Time - dạng ngày tháng Time đợc tạo lập thủ tục PackTime SetGraphBufSize ấn định kích thớc hình đồ họa SetGraphMode ấn định kiểu đồ họa hành SetIntVec đặt giá trị Vecter vào ngắt IntNo bảng Vector ngắt SetLineStyle ấn định dạng, mẫu bề dầy đờng thẳng vẽ kiểu đồ họa SetPalette ấn định số hiệu màu ColorNum bảng màu làm việc thành Color SetRGBPalette ấn định số bảng màu ColorNum bao gồm tổ hợp màu đỏ, xanh, lục SetTextBuf gán tập Name Buf Unit Syntax Use Text; Var Buf; Size: tin văn F vào Word); vùng đệm Buffer Kích thớc mặc định vùng đệm bị thay đổi có Size SetText Graph SetTextJustify SetTextJustify xác Justify (Horiz,Vert: Word); định dạng hiển thị OutText OutTextXY SetText Graph SetTextStyle SetTextStyle ấn Style (Font,Direction,Ch định cách hiểu thị arSize: Word); kí tự hình đồ họa Các tính chất Font, hớng kích thớc kí tự SetTim Dos SetTime SetTime lập đồng e (Hour,Minute,Seco hồ hệ thống theo nd,Sec100: Word); giá trị truyền qua tham biến SetUse Graph SetUserCharSize SetUserCharSize rCharSi (MultX,DivX,MultY, thay đổi tỉ lệ chiều ze DivY: Word); cao chiều rộng Font Vectơ SetVerif Dos SetVerify (Verify: SetVerify bật kiểm y Boolean); tra ghi đĩa Verify True tắt Verify la False Name Unit Syntax SetVie Graph SetViewPage wPage (Page: Word); Use SetViewPage chọn trang đồ họa hiển thị SetVie Graph SetViewPort SetViewPort chọn wPort (x1,y1,x2,y2: phần hình Integer; Clip: chữ nhật Boolean); hình đồ họa để làm cửa sổ làm việc Khi Clip True (Clip nhận giá trị Clipon), cho phép vẽ đờng biên ViewPort SetWrit Graph SetWriteMode(Writ SetWriteMode eMode eMode: Integer); chọn hai kiểu vẽ đờng thẳng, vẽ hình chữ nhật khơng tơ Trong kiểu CopyPut(0), hình đợc vẽ đè lên, nghĩa xóa màu chỗ vẽ thay vào màu điểm vẽ Với cách khơng thể khơi phục lại màu cũ chỗ vẽ đè lên Trong kiểu XorPut(1), hình vẽ Name Unit Syntax Use đợc kết hợp với hình Khi sử dụng hai lệnh Xor xóa điểm vẽ khơi phục lại hình trạng thái ban đầu Sin System Sin (R: Real): Real; Sin trả sin R SizeOf System SizeOf (Var SizeOf trả số Variable): Word; Byte cần thiết cho biến hay kiểu liệu Sound Crt Sound (Hz: Word); Sound phát loa âm có tần số Hz, đơn vị Hertz SPtr System SPtr : Word; SPtr trả giá trị hành ghi SP Sqr System Sqr (R: Real): Real; Sqr trả bình phơng R Sqrt System Sqrt (R: Real): Sqrt trả Real; bậc hai R SSeg System SSeg : Word; SSeg trả giá trị hành ghi SS Str System Str (value; Var St: Str đổi dãy số String); nguyên hay số thực dạng Name Unit Syntax Succ System Succ (S: Scalar): Integer; Swap System Swap (I: Integr): Integer; SwapV ectors Dos SwapVectors; TextBac kGroun d Crt TextBackGround (Color: Word); TextCol or Crt TextColor (Color: Word); Use chuỗi Succ trả lại phần tử đối số S, dó S biểu thức kiểu đếm đợc kiểu logic kiểu kí tự Ví dụ: Succ('B') = 'C', Succ(2) = 3, Succ(False) = True Swap hoán chuyển byte thấp, byte cao số nguyên SwapVectors thay đổi giá trị hành bảng vectơ ngắt bảng đợc cất giữ trớc thực hiên chơng trình TextBackGround thay đổi màu mặc định màu bảng màu TextColor thay đổi màu kí tự thành màu Name Unit Syntax TextHei Graph TextHeight ght (TextString: String): Word; TextMo de Crt TextMode (Mode: Word); TextWi Graph TextWidth dth (TextString: String): Word; Trunc System Trunc (R: Real): Integer; Truncat System Truncate (var F: Use định Color TextHeight cho biết chiều cao TextString theo font hệ số phóng đại TextMode chọn chế độ văn Mode nhận giá trị sau: : 40x25 trắng/đen : 40x25 màu : 80x25 trắng đen : 80x25 màu 256 : 43-50 dòng TextWidth cho biết chiều rộng ( tính điểm ảnh) cần để hiển thị chuỗi TextString theo font hệ số phóng đại Trunc trả phần nguyên R Kết phải nằm phạm vi hợp lệ số nguyên Ví dụ: Trunc(4.86) =4 Truncate bắt buộc Name e Unit Syntax Use File); vị trí hành trỏ tập tin trở thành Eof điều có nghĩa nội dung nằm sau trỏ bị TypeOf System TypeOf (Object): TypeOf trả Pointer; trỏ bảng hành vi ảo kiểu Object Hàm nhận tham biến danh biểu kiểu Object Công dụng TypeOf định hai Object ( hay kiểu Object) có giống hay khơng UnPack Dos UnPackTime UnPackTime giải Time (Time: LongInt; Var mã biến Time DT: DateTime); trả kết biến DT type DateTime = record Year,Month,Day,Ho ur,Min,Sec: Word; end; UpCase System Upcase (Ch: Char): UpCase trả giá Char; trị hoa Ch ch chữ thờng Val System Val (St: String; Var Val đổi chuỗi St Var1, Code: thành chuỗi số Name Unit Syntax Integer); Where X Crt WhereX : Byte; WhereY Crt WhereY : Byte; Windo w Crt Window (x1,y1,x2,y2: Byte); Use chứa biến Var1 đổi thành công Code đợc gán giá trị Nếu không đổi đợc tức chuỗi St chứa vài kí tự rác Khi Code chứa số nguyên cho biết vị trí ký tự rác chuỗi St gây lỗi WhereX trả cột chứa trỏ hình cửa sổ hành WhereY trả hàng chứa trỏ hình cửa sổ hành Window giới hạn hình làm việc hình chữ nhật có góc bên trái (x1.y1) góc dới bên phải (x2.y2) Sau sử dụng thủ tục này, tọa độ góc bên trái Name Unit Syntax Write System Write ([Var F: Text], P1, P2, , Pn); WriteLn System WriteLn ([Var F: Text], P1, P2, , Pn); Use hình đợc coi tọa độ (1,1) Write Viết (ghi) hay nhiều giá trị vào tệp văn F Nếu khơng có F Write xuất liệu hình Mỗi P tham số ghi, tham số ghi biểu thức giá trị đợc ghi tệp tin hay hình Mỗi tham số ghi có thêm đặc tả độ rộng, trờng ghi, số chỗ dành cho phần thập phân WriteLn Viết (ghi) hay nhiều giá trị vào tệp văn F Nếu khơng có F WriteLn xuất liệu hình Mỗi P tham số ghi, tham số ghi Name Unit Syntax Use biểu thức giá trị đợc ghi tệp tin hay hình Mỗi tham số ghi có thêm đặc tả độ rộng, trờng ghi, số chỗ dành cho phần thập phân Sau ghi trỏ hình tự động xuống đầu dòng ... tơng đơng với X:=X - Dec (X,N) tơng đơng với X:= X - N Ví dụ: Với g=5, sau thủ tục Dec(g,2) g có giá trị 3; sau thủ tục Dec(g) g có giá trị Name Delay Unit Crt Syntax Delay ( Ms : Word ); Use... String); Use mơi trờng đồ họa theo trình điều khiển GD GM Nếu GD 0, thủ tục tự động phát phối hợp hình lập kiểu có độ phân giải cao Thủ tục tìm tệp tin BGI đờng dẫn Dri ( Driver Path) Insert System... Integer; mã lỗi thủ tục đồ họa sau Halt System Halt ; Halt dùng để kết thúc chơng trình Name Unit Syntax Use chạy Lệnh Halt thờng dùng gặp phải trờng hợp mà thuật tốn khơng thể tiếp tục đợc Hi System