TAILIEUCHUNG - Lý thuyết và bài tập Pascal nâng cao part 10

Tham khảo tài liệu 'lý thuyết và bài tập pascal nâng cao part 10', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 396 Lỷ thuyết và Bàì tệp Pascal writexy x2 y2 border 5 END PROCEDURE Box a b c d fg byte VAR olckbyte BEGIN old TextAttr TextAttr fg Frame a b c d 1 Window a 1 b 1 c l d-1 clrscr Windowd 1 80 25 TextAttr Old END PROCEDURE BoxShadow a b c d fg bg byte BEGIN SetAttr c l b 1 c 2 d l bg SetAttr a 2 d 1 c 2 d l bg Box a b c d fg END Function Offset x y byte word Begin Offset pred x 2 pred y 160 End Chuang 10 Bài tập và cỗu hỏi õn 397 Procedure SaveBoxfxl ỵl x2 y2 byte Var ScrBox BoxPtr Var Num BufSeg BuíOfs Word dongíbyte Begin With ScrBoxA do Begin Ngang x2-x1 1 Doc y2-y1 1 Num Ngang 2 BufSeg Seg BufA BufOfs Ofs BufA For dong y1 to y2 do Begin Move PtrtVídSeg Oífset x1 dong A PtdBưfSeg BuíOfs A Num inc BufOfs num End End End Procedure RestoreBoxfxl y1 byte Var ScrBox BoxPtr Var Num BufSeg BufOfs Word dongibyte Begin With ScrBoxA do Begin num Ngang 2 BufSeg Seg BufA 398 Lý thuyết và Bàt tập Pascal BufOfs Ofs BufA For dong y1 to y1 pred doc do Begin Move Ptr BufSeg BufOfs A Ptr VidSeg Offset xl dong A Num inc BufOfs num End End End Procedure Shadow a b c d byte attr byte Begin SetAttr c l b 1 c 2 d 1 attr SetAttr a 2 d 1 c 2 d 1 attr End Procedure MoveBox direction byte shade boolean Var ngang doc byte Procedure SetBox Begin SaveBox x y x ngang y doc Back RestoreBox x y Save Shadow x y x dx y dy 7 End Begin f Shade .

• Kỹ thuật lập trình
• Lý thuyết và bài tập Pascal
• bài giảng Lý thuyết và bài tập Pascal
• tài liệu Lý thuyết và bài tập Pascal
• giáo trình Lý thuyết và bài tập Pascal
• bài tập Pascal
• Lý thuyết Pascal
• Kiểu chuỗi ký tự
• Kiểu bảng ghi
• Kiểu đối tượng
• Chương trình tiện nghi
• Turbo Pascal
• kỹ thuật lập trình Turbo Pascal
• ứng dụng Turbo Pascal
• tài liệu Turbo Pascal
• giáo trình Turbo Pascal
• bài giảng Turbo Pascal
• Ngôn ngữ lập trình Pascal
• Thành phần ngôn ngữ Pascal
• Ngôn ngữ lập trình cấp cao
• Ký hiệu của Pascal
• Ký tự trong Pascal
• giáo trình pascal
• bài giảng giáo trình pascal
• tài liệu giáo trình pascal
• đề cương giáo trình pascal
• bài tập giáo trình pascal