Vẽ Hình Trong Pascal - Sách Giải

sach-giai-logo
  • Môn học
    • Toán học
    • Văn học
    • Vật lý
    • Hoá học
    • Lịch sử
    • Địa lý
    • Anh văn
    • Công nghệ
    • Sinh học
    • Tin học
    • Âm nhạc
    • Mĩ thuật
    • Thể dục
    • Công dân
    • Khoa học
    • Y khoa
    • Ngoại khoá
    • Gương sáng
    • Đề thi, đáp án
    • Thơ văn
    • Đề tài
    • Dạy và học
  • Sách
  • Hỏi đáp
  • Văn bản
  • Tìm kiếm
  • vnedu tra cứu điểm

.

phần mềm tính tiền karaoke vietbillkèo nhà cái hôm nayFun88
  • Trang nhất
  • Tin học
Vẽ hình trong Pascal 2020-08-04T16:06:36+07:00 https://sachgiai.com/Tin-hoc/ve-hinh-trong-pascal-13453.html https://sachgiai.com/uploads/news/2020_07/lap-trinh-pascal.jpg Sách Giải Thứ ba - 04/08/2020 16:01 Để vẽ được hình bằng chế độ đồ họa của Turbo Pascal cần phải có các Files sau đây trên đĩa:* TURBO.EXE* TURBO.TPL 1. CÁC CHƯƠNG TRÌNH ĐIỀU KHIỂN Để vẽ được hình bằng chế độ đồ họa của Turbo Pascal cần phải có các Files sau đây trên đĩa: * TURBO.EXE * TURBO.TPL * GRAPH.TPU * Các Files.BGI để điều khiển loại màn hình tương ứng. * Các Files.CHR chứa các kiểu chữ. ■ Ví dụ: HERC.BGI để điều khiển màn hình Hercules monochrome; EGAVGA.BGI để điều khiển màn hình EGA, VGA. 2. HỆ TỌA ĐỘ Hệ tọa độ trên màn hình được qui định như sau: GetMaxX, GetMaxY là hai hàm cho giá trị kiểu Integer chỉ hoành độ và tung độ lớn nhất trên tùy lọai màn hình. Loại màn hình GetMaxX GetMaxY CGACO 320 200 EGAHi 640 350 VGAHi 640 480 3. MỘT VÍ DỤ VỀ CHƯƠNG TRÌNH VẼ HÌNH PROGRAM VE_HINH_MAU; USES Graph; VAR Graph Driver: integer; Graph Mode: integer; BEGIN GraphDriver:= Detect; Init Graph (Graph Driver; Graph Mode; 'B'); SetBKColor (Red); PutPixel (10,10,Blue); SetColor (Green); Rectangle (50,50,150,100); Readln; Close Graph; END. • Giải thích: (1) Yêu cầu máy tự tìm chế độ màn hình thích hợp. (2): Khởi động chế độ đồ họa của TURBO PASCAL. 'B :’ Báo cho máy biết rằng các Files.BGI để ở ổ đĩa B: (3): Đặt màu nền là Đỏ. (4): Chấm một điểm màu xanh tại điểm có tọa độ (10,10). (5): Đặt màu cho các nét vẽ từ đây trở về sau là màu xanh. (6): Vẽ hình chữ nhật với tọa độ đỉnh trên bên trái là (50,50) và đỉnh dưới bên phải là (150,100). (7): Dừng màn hình chờ 1 phím được bấm. {8}: Đóng chế độ đồ họa đưa màn hình trở về chế độ ban đầu trước khi khởi động chế độ đồ họa.  4. MỘT SỐ THỦ TỤC ĐỂ VẼ CÁC ĐƯỜNG HÌNH HỌC VÀ VIẾT CHỮ • LINE (x1, y1, x2, y2: integer) Vẽ đường thẳng từ (xl, y1) đến (x2, y2). ■ Ví dụ: Line(100,100,200,200) • LINEREL (Dx, Dy: integer) Vẽ một đường thẳng từ vị trí hiện tại của con trỏ đến điểm có tọa độ được tăng thêm là Dx, Dy. ■ Ví dụ: MoveTo(l,2); LineRel(100,100): {Vẽ từ (1,2) đến (100,102)} • LINETO (x, y: integer) Vẽ một đường thẳng từ điểm hiện tại đến điểm có tọa độ (x,y) ■ Ví dụ: Moveto(100,100); Lineto(200,200); • CIRCLE (X, Y: integer; R: Word) Vẽ một đường tròn tâm (X, Y) bán kính R. ■ Ví dụ: CIRCLEdOO, 100,20); • ARC (X, Y: integer; StAngle, EndAngle, Radius: word) Vẽ một cung của một đường tròn tâm (X, Y) bán kính R từ góc đầu (Start Angle) đến góc cuối (End Angle). ■ Ví dụ: Arc( 100,100,0,90,15) • ELLIPSE (X, Y: integer; StAngle, EndAngle; XRAdius, YRadius: word) Vẽ một cung Elip tâm (X, Y), Bán kính ngang XRadius, Bán kính dọc YRadius, từ góc đầu StAngle đến góc cuối EndAngle. • Ví dụ: EllipsedOO,100,0,360,80,30) MOVETO (X, Y): OUTTEXTS (S: String); Viết tên màn hình từ tọa độ (X, Y) một chuỗi kí tự. ■ Ví dụ: MOVETO(100,1000); OUTTEXT ('TOI THICH HOC PASCAL'); 5. MỘT SỐ THỦ TỤC VỀ MÀU SẮC • Set BKColor (Color: word); Color có thể là chữ hoặc số (xem chương 12 về bảng màu của Pascal); ■ Ví dụ: SetBKColor (2) tương đương với SetBKColor(Green). • GetMaxColor Cho biết số tối đa màu có thể có của màn hình. ■ Ví dụ: a:= GetMaxColor; Nếu là màn hình EGA thì a:= 15 Nếu là màn hình Hercules monochorome thì a:= 1. • SetColor (Color: word) Đặt màu của các đường trong các lệnh vẽ. ■Ví dụ: SetColor (1); Circle (100,100,50); {Vẽ một đường tròn tâm (100,100), bán kính R = 50 với đường vẽ màu xanh dương}. • SetFillStyle (Pattern: word; Color: word) Xác định nét tô và màu tô cho các lệnh vẽ hình đặc Pattern có thê là chữ hoặc số như sau: EmptyFill = 0: Tô bằng màu nền SolidFill = 1: Tô đặc LineFill = 2: Tô bằng vạch ngang • Bar (x1, y1, x2, y2: integer) Vẽ một hình chữ nhật có tô màu bằng kiểu tô hiện thời. ■ Ví dụ: SetFillStyle (1,4); Bar (50,50,200,100); {Vẽ một hình chữ nhật có 2 đỉnh là (50,50), (200,100) tô đặc màu đỏ }. • FIoodFill (x, y: integer; Border: word); Tô một vùng có biên kính xung quanh điểm hạt giống (x, y) bằng kiểu tô hiện thời với màu biên định bởi Border. Ví dụ: SetColor (while); Circle (100,100,80); SetFillStyle (1,4); FloodFill (100,100,white); 6. CÁC CHƯƠNG TRÌNH MẪU VỀ VẼ HÌNH • Chương trình 1: Vẽ các đường thẳng bất kì. PROGRAM DUONG_THANG; USES Crt, Graph; VAR Gd, Gm: integer; BEGIN Gd:= Detect; Initgraph (Gd, Gm,' '); Randomize; REPEAT Line (Tandom(200), Random(200), Random(200), Random(200)); UNTIL KeyPressed; Readln; Closegraph; END. • Chương trình 2: Vẽ các đường gấp khúc bất kì. PROGRAM GAP_KHUC; USES Crt, Graph; VAR Gd, Gm: integer; BEGIN Gd:= Detect; Initgraph (Gd, Gm,' '); Randomize; {1} REPEAT Lineto (Random(200), Random(200)); {2} UNTIL KeyPressed; Readln; Closegraph; END. {1} Khởi động việc chọn số ngẫu nhiên. (2( Random(200): Lấy một số bất kì từ 1 đến 200. • Chương trình 3: Vẽ một đường tròn với viền màu trắng bên trong tô xanh. PROGRAM DUONG_TRON; USES Graph; VAR Gd, Gm: integer; BEGIN Gd:= Detect; Initgraph (Gd, Gm,' '); Setcolor (100,100,80); SetFillStyle (100,100,white); Readln; Closegraph; END. • Chương trình 4: Viết chương trình đổi màu màn hình một cách ngẫu nhiên khi có một phím được bấm, còn nếu bấm 'T' thì kết thúc chương trình. PROGRAM THU_MAU_NEN; USES CRT, GRAPH; VAR Gd, Gm: integer; YK: char; BEGIN Gd:= Detect; Initgraph (Gd, Gm,' ’); Randomize; REPEAT SetBKColor (Random(GetMaxColor)); C:= ReadKey; UNTIL UpCase(C) = T.; Closegraph; END. • Chương trình 5: Vẽ các thanh hình chữ nhật tô màu xanh lá cây. PROGRAM THANH_CHU_NHAT; USES CRT, GRAPH; VAR Gd, Gm: integer; I: integer; BEGIN Gd:= Detect; Initgraph (Gd, Gm,’ '); FOR I .:= 1 TO 10 DO Begin SetFillStyle(1,2).; Bar (I/* 10, I * 10, I * 10+100, I * 10+50); End; Readln; Closegraph; END. • Chương trình 6: Vẽ một đa giác đểu PROGRAM VEJDA_GIAC_DEU; USES Graph; VAR Gd. Gm: integer; K, N: integer; Arcco: Arcoords type; BEGIN Write ('Muon ve dã giac bao nhieu canh:’); Readin (N); Gd:= Detect; Initgraph (Gd, Gm,' ’); SetBKColor (Blue); Center X:= GetMax X div 2; Center Y:= GetMax Y div 2; Step:= 360 div N; FOR K:= 1 TO N DO Begin SetColor (0); Arc(Center X, Center Y, (K - l)*Step, K*Step, Center Y); GetArcCoords (ArcCo); SetColor (1); WITH Arcco Do Line (XStart, YStart, Xend, Yend); End; Closegraph; END. Bản quyền bài viết thuộc về Sachgiai.com. Ghi nguồn Sách giải.com khi đăng lại bài viết này.

Ý kiến bạn đọc

Sắp xếp theo bình luận mới Sắp xếp theo bình luận cũ Sắp xếp theo số lượt thích

Những tin mới hơn

    /assets/news/2020_07/lap-trinh-pascal.jpg Giới thiệu phần mềm Turbo Pascal

    /assets/news/2020_07/lap-trinh-pascal.jpg Tìm kiếm trong Pascal

Những tin cũ hơn

    /assets/news/2020_07/lap-trinh-pascal.jpg Màu sắc và âm thanh trong Pascal

    /assets/news/2020_07/lap-trinh-pascal.jpg Đơn vị (unit) của Turbo Pascal

Lớp 1

Lớp 2

Lớp 3

Lớp 4

Lớp 5

Lớp 6

Lớp 7

Lớp 8

Lớp 9

Lớp 10

Lớp 11

Lớp 12

THÀNH VIÊN

Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site Nhập mã do ứng dụng xác thực cung cấp Thử cách khác Nhập một trong các mã dự phòng bạn đã nhận được. Thử cách khác Đăng nhập Đăng ký

MÔN HỌC

Lớp 1 Lớp 2 Lớp 3 Lớp 4 Lớp 5
Lớp 6 Lớp 7 Lớp 8 Lớp 9
Lớp 10 Lớp 11 Lớp 12
Trung cấp Cao đẳng Đại học

SÁCH HỌC

Lớp 1 Lớp 2 Lớp 3 Lớp 4 Lớp 5
Lớp 6 Lớp 7 Lớp 8 Lớp 9
Lớp 10 Lớp 11 Lớp 12
Tuyển sinh Thơ Truyện Tử vi
Kênh Bóng đá trực tiếp hôm nay miễn phí ⇔ Kênh 90Phut TV full HD ⇔ sv66 ⇔ 566 ⇔ 78Win ⇔ SHBET ⇔ 78win ⇔ u888 ⇔ 888p ⇔ BL555 ⇔ f168 ⇔ 8x bet ⇔ 789BET ⇔ LC88 ⇔ 789F ⇔ https://789betcom0.com/https://hi88.baby/ ⇔ go88 ⇔ Kkwin ⇔ 88go ⇔ f168 ⇔ QQ88 ⇔ bk8 ⇔ bk8 ⇔ iwinclub ⇔ m88 ⇔ hi88 ⇔ https://fun88.social/thabet https://qq88.fun/ ⇔ SHBET ⇔ keo nha cai https://bshbet.com/ ⇔ https://uk88.rocks⇔ RR88 ⇔ 188v⇔ 78win ⇔ https://hello8880.net/⇔ mb 66 ⇔ TV88⇔ xoso66 X88 88i ⇔ KINGFUN ⇔ https://789club24.com/https://bet88yk.com/ ⇔ https://alo789apk.app/https://33win100.com/ ⇔ https://u888ny.com/⇔ https://hello880.net/https://789club60.com/ ⇔ https://blc88.net/23win ⇔ xoso66 ⇔ bomwin⇔ https://789club24.com/ ⇔ 8xbet XX88 ⇔ 69vn ⇔ win456 ⇔ Tài xỉu online ⇔ XN88https://33win101.com/ ⇔ Slot365⇔ bet88 ⇔ XX88⇔ 789BET ⇔ OKFUN hitclub ⇔ 58WIN888new.lol ⇔ K8CC⇔ https://hi88.gives/⇔ https://shbetk.net/ https://mm88.us.com/ ⇔ 79kingww88 ⇔ https://78win.bot/ ⇔ https://hi88.uno/https://58win1.info/ ⇔ j88 ⇔ j88 ⇔ 69vnSlot365 888TO ⇔ wstar77 ⇔ 73bet ⇔ 78win ⇔ Slot365⇔ mv88 ⇔ Bsport888New ⇔ EV99 ⇔ BIN88https://f8bet0.world ⇔ https://qq88.studio/⇔ Leo88 ⇔ hi88 ⇔ 888To⇔ hi88 ⇔ 555WIN⇔ https://f168hi.com/sv66 ⇔ ax88 https://32win.vc/ ⇔ PG88 ⇔ PG88EE88 ⇔ TD88 ⇔ SV388 https://vankhanhtvv.com/ ⇔ Nhà Cái LC88⇔ https://f168.tech/https://8kbetbh.com/ ⇔ https://bong99.onl/⇔ https://rr88.com.se/⇔ https://sunwinn.deal/⇔ https://bong88vn.wiki/⇔ https://shbet.racing/RR99 ⇔ BL555 hi88com ⇔ https://w88link1.com/xocdia88 ⇔ vuabet88 ⇔ betvisa ⇔ KJC ⇔ Go8 ⇔ 58Win ⇔ 69VN ⇔ 89bet ⇔ https://luck8.ph/ ⇔ Lc 88 ⇔ https://nohu90i.net/ ⇔ 78Win ⇔ 33win ⇔ https://okwins.vip/ ⇔ 122bet ⇔ 881bet ⇔ xoilac xin ⇔ e2bet ⇔ F168 ⇔ https://go8d.com/ ⇔ luck8 ⇔ https://x88casino.net/ ⇔ sunwin ⇔ https://kjc.events/ ⇔ https://79kings.blue/ ⇔ DR88 ⇔ DR88 ⇔ DR88 ⇔ DR88 ⇔ SHBET ⇔ CM88 ⇔ 888p ⇔ OKFUN ⇔ https://32win.cool/ ⇔ Hb88 ⇔ Bong88 ⇔ https://3winn.in.net/ ⇔ Fun88 ⇔ kkwin ⇔ https://kkwin.fan/ ⇔ win678 ⇔ x88 ⇔ https://j88gg.com/ ⇔ https://u88886.com/ ⇔ LC88 Vip ⇔ 68win ⇔ LC88 ⇔ 79king ⇔ https://hitclub88.us/ ⇔ New88 ⇔ https://fun88link0.com/ ⇔ https://fun88link1.com/https://188betlink0.com/ ⇔ https://188betlink1.com/https://188betlink2.com/ ⇔ https://w88link0.com/thabet ⇔ 888P ⇔ 11UU ⇔ EV88 ⇔ 789F⇔ 77win ⇔ xx88 ⇔ 78winhttps://okfun.bz/ QQ88 ⇔ https://i9betz4.com/ w88link2.com ⇔ w88link3.com ⇔ 32WINhttps://8dayvip.mobi/ ⇔ https://8dayvip.com/⇔ 86bet⇔ https://u888wl.com/ ⇔ kingfun ⇔ GK88 ⇔ https://78wincom.net/ ⇔ TT88https://8kbettt.com/ ⇔ https://86bet.tech/⇔ https://fly88.gifts/⇔ VN88 ⇔ nh88 ⇔ vn88zx88 https://f168.name/ ⇔ https://kjc.ac/⇔ link vn88 ⇔ HZ88⇔ Bet88 ⇔ XN88 ⇔ VN23⇔ https://555win.bike/⇔ 789f ⇔ Hitclub ⇔ https://f8bet80.one/⇔ https://okfun.center/ ⇔ https://hi88.tours/⇔ https://uu88vn.com ⇔ 69VN ⇔ Ok365 ⇔ 6FFNohu90 ⇔ go8 ⇔ 22vip ⇔ https://go8.beer/https://shbet.gg/ ⇔ OKKING⇔ abc8 ⇔ s666 ⇔ https://fly88.select/⇔ F168⇔ hi88s com ⇔ f168https://88xx.mobi/ ⇔ https://qq88.social/ ⇔ LC88https://j88vm.com/ ⇔ https://78winvina.com/⇔ https://keonhacai.deals/⇔ MB66⇔ https://58win.faith/⇔ https://mk8.ac/⇔ motphimchill ⇔ https://f168.law/ ⇔ https://saobet.shop/ ⇔ win678 ⇔ 33win ⇔ https://xx88tv.com/ ⇔ max79 ⇔ bl-555.site ⇔ https://8scom.dev/ ⇔ au88 ⇔ 8kbet ⇔ https://32win.football/ ⇔ 789P ⇔ 28bet ⇔ https://789fnew.com/ ⇔ 32win ⇔ Kuwin ⇔ HITCLUB ⇔ 888vi ⇔ https://keonhacai1.us.com/ ⇔ tt88 ⇔ mn88 ⇔ https://789winst.com/ ⇔ BL555 ⇔ HM88 ⇔ LC88 ⇔ QQ88 ⇔ mb66 ⇔ 88AA ⇔ aalo789 ⇔ PG99 ⇔ PG88 ⇔ QQ88 ⇔ https://s888.baby/ ⇔ 100vip ⇔ E2bet ⇔ F168 ⇔ tr88 ⇔ 888P ⇔ 8xbet ⇔ rr88vip ⇔ https://jun88.black/ ⇔ x88 ⇔ Nhà Cái LC88 ⇔ sv66 ⇔ 789win ⇔ 161bet ⇔ alo789 ⇔ EE88 ⇔ Abc8 ⇔ Sunwin ⇔ SV388 ⇔ S666 đăng nhập ⇔ Nhà cái vn88 ⇔ 89BET ⇔ SUN WIN ⇔ https://98wina1.com/ ⇔ tv88 ⇔ 789f ⇔ bong88 ⇔ sky88 ⇔ abc8 ⇔ good88 ⇔ Cổng game rikvip ⇔ https://u888n.info/ ⇔ https://98winwi.com/ ⇔ hi88 ⇔ X88 ⇔ Bet88 ⇔ MM88 ⇔ https://88hello88vina.com/ ⇔ https://888baz.com/ ⇔ 56win ⇔ 56win ⇔ 888p ⇔ AF88 ⇔ w188 ⇔ SC88 ⇔ S666 ⇔ 77WIN ⇔ CM88 ⇔ lương sơn tv ⇔ 79KING ⇔ https://hb8868.pro/ ⇔ luck8 ⇔ 99OK ⇔ vn88 ⇔ XX88 ⇔ okking ⇔ 88CLB ⇔ AF88 ⇔ https://ok9bet.net/ ⇔ https://fly88.black/ ⇔ RWIN ⇔ Hubet city ⇔ https://ok8386.black/ ⇔ say88 ⇔ au88 ⇔ BL555 ⇔ 8KBET ⇔ Au88 ⇔ https://66btop.com ⇔ ZX88 ⇔ 23WIN ⇔ QQ88 ⇔ EV99 ⇔ https://ee88com.me/ ⇔ f168 ⇔ VN88 ⇔ fly88 ⇔ cm88 ⇔ https://789ff.biz/ ⇔ B52 CLUB ⇔ https://32win.vc/ ⇔ 99win ⇔ alo789 ⇔ MM88 ⇔ QQ88 ⇔ hm88 ⇔ MB66 ⇔ 789BET ⇔ au88 ⇔ 8kbet ⇔ nổ hũ ⇔ MAX79 ⇔ sumclub ⇔ t88 ⇔ 86bet ⇔ w188 ⇔ w188 ⇔ 3win ⇔ 888vi ⇔ n188 ⇔ https://luongson161.tv/ ⇔ https://69vncasino.net/ ⇔ b52 club ⇔ 88bet ⇔ nk88 ⇔ 56win ⇔ Tr88 ⇔ HM88 ⇔ lc88 ⇔ Tỷ lệ kèo nhà cái ⇔ https://cakhiatv88.net/ ⇔ go8 ⇔ TR88 ⇔ tài xỉu online ⇔ Five88 ⇔ j 88 ⇔ https://m88s1.com/ ⇔ rik vip ⇔ https://sv388a.shop/ ⇔ x88 ⇔ n188 ⇔ Kkwin ⇔ xn88 ⇔ https://qq8876.net/ ⇔ https://mk8th.net/ ⇔ Jun88 ⇔ 888top ⇔ nh88 ⇔ TG88 ⇔ 88aa ⇔ RIKVIP ⇔ RIKVIP ⇔ Sunwin ⇔ tt88 ⇔ EV99 ⇔ u88 ⇔ Dom88 ⇔ kuwin ⇔ SHBET ⇔ https://jun88.school/ ⇔ https://bet88.ventures/ ⇔ 888VI ⇔ https://mb668.co/ ⇔ https://qq887p.com/ ⇔ LC88 ⇔ TT88 ⇔ https://tt88.claims/ ⇔ lucky88 ⇔ K9K9 ⇔ 888vi ⇔ ev99 ⇔ hubett2.org ⇔ MB66 ⇔ 123b ⇔ win68 ⇔ 789win ⇔ ACB8 ⇔ na99 link ⇔ P3 link ⇔ pkwin link ⇔ https://thabetp3.com/ ⇔ Man88 ⇔ https://98win9.bid/ ⇔ XN88 ⇔ https://rr8888.in.net/ ⇔ Fun88 Viet ⇔ tr88 nhà cái ⇔ u88 ⇔ 6ff ⇔ 123B ⇔ 88i ⇔ 888p ⇔ https://e2bet2025i.com ⇔ vt88 ⇔ say88 ⇔ B8 ⇔ B8 ⇔ 68gb ⇔ au88 ⇔ ok9 ⇔ https://j88com.today/ ⇔ https://88vvcom.net/ ⇔ OK9 ⇔ https://1j88com.com/ ⇔ 789club ⇔ go88 ⇔ 8XX ⇔ Hu88 ⇔ Nk88 ⇔ https://s8bet.green/ ⇔ 88i ⇔ 777x ⇔ https://kp88.space/ ⇔ EV88 ⇔ 13win ⇔ https://thabets.it.com/ ⇔ https://n88.fan/ ⇔ https://sv88.estate/ ⇔ S8 ⇔ tv88 ⇔ luongsontv ⇔ https://ee8801.one/ ⇔ https://xx88.forex/ ⇔ 7m cn ⇔ 66B ⇔ TT88 ⇔ kết quả bóng đá ⇔ tv88 ⇔ 888new ⇔ 28BET ⇔ 69vn ⇔ mm88 ⇔ https://hubet.courses/ ⇔ https://kp88.food/ ⇔ © 2023 Sách Giải. All Right Reserved. Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây

Giới thiệu bài viết cho bạn bè

Từ khóa » Cách Vẽ Hình Tam Giác Trong Pascal