tailieunhanh - Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 6

Tham khảo tài liệu 'giáo trình turbo pascal - lý thuyết, bài tập và lời giải part 6', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | TS. BÙI Thê Tâm 100 Giáo trình Turbo Pascal uses Graph var Gd Gm i Integer P Pointer Size Word begin Gd Detect InitGraph Gd Gm if grOk then Halt l Bar 0 0 GetMaxX GetMaxY Size Imagesize 10 20 30 40 GetMem P Size GetImage 10 20 30 40 PA Readin ClearDevice for i 0 to 20 do Putlmage 10 i 22 10 1 22 PA CopyPut Readln CloseGraph end. Chương trình đặt nển mùn hình xanh sáng vẽ khung chữ nhật nét trắng vẽ hình tròn tô xanh lơ ở trong khung võ hình tròn tô xanh bôn trong rồi hình tròn trắng. Copy vùng chữ nhật vào PA màu nền xanh sáng trong khung không được copy máy chi ghi nhớ dó là màu thứ 0 màu nền tìặt lại màu nền là den vẽ một hình chữ nhật tô trắng dùng lệnh Putĩmage với cách chop ãnh XorPut đê in anh lưu trong PA lèn vùng chữ nhật ánh SC bị đổi màu phần hình tròn màu xanh lơ biến thành đỏ sáng phần hình tròn màu xanh biến thành màu vàng phần hình tròn màu tráng và các nét vẽ màu trắng biên thành màu nền đen. uses Graph art var Gd Gm 1 Integer P Pointer Size Word begin Gd Detect InitGraph Gd Gm DirectVideo False if GraphResult grOk then Halt l setBkColor 9 í non Xanh sáng rectangle 0 0 200 200 readin nét vè khung chữ nhật Trang setFrllstyle 1 3 FillEllipse 100 100 85 85 readln tô Xanh lơ setFi11style 1 1 Fillellipse 100 100 60 60 readln tô Xanh 1 setFillStyle 1 15 Fillellipse 100 100 40 40 readln lô Trang Size IsaqeSize 0 0 200 200 GetMein P Size GetImage 0 0 200 200 PA không ghi nền ánh ClearDevice writein 1Size .size readln 20910 byte setBkCũlor ũ setfillstyle 1 white bar 0 0 539 37 9 readln toàn màn hình vẽ bằng màu Trắng ỉ Putlmage 120 100 PA XorPut readln Ị 3 xor 15 12 dỏ sáng. 1 xơr 15 14 vàng. 15 xor 15 0 màu nền đen Readln CloseGraph end Thủ tục WriteModc integer dặt chê độ vẽ khi vẽ các dường bàng các thù tục DrawPoly. Line LineRel. LineTo và Rectangle. Tham số WriteMode nhạn các giá trị hàng CopyPut XorPut. OrPut. AndPut NơtPut như trong thù tục Put image. Mói hàng tương ứng với mệt phép toán bít giữa mối byte cùa .

crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.