Giải bài tập Tin học 11 Bài tập và thực hành 8 VnDoc com Thư viện Đề thi Trắc nghiệm Tài liệu học tập miễn phí Trang chủ https //vndoc com/ | Email hỗ trợ hotro@vndoc com | Hotline 024 2242 6188 Giải[.]
Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Giải tập Tin học 11: Bài tập thực hành Mục đích, yêu cầu Giới thiệu số chương trình để học sinh thấy khả đồ họa Pascal Nội dung a) Chương trình sau vẽ đường gấp khúc “ngẫu nhiên” nhờ thủ tục LineTo, đoạn có màu ngẫu nhiên Ví trí bắt đầu vẽ tâm hình Kết thúc việc vẽ cách nhấn phím Chạy thử chương trình quan sát kết hình uses crt,graph; var stop:boolean;function DetectInit(path:string):integer; var drive,mode:integer; begin drive:=0; InitGraph(drive,mode,path); DetectInit:=GraphResult;end;begin if DetectInit('C:\TP\BGI') then begin write(' Loi hoa nhan Enter de ket thuc '); readln; end else begin randomize; MoveTo(getmaxx div 2,getmaxy div 2); stop:=false; while not (stop) begin setcolor(Random(Getmaxcolor)); LineTo(Random(Getmaxx),Random(Getmaxy)); Delay(200); stop:=keypressed; end; end; closegraph;end Kết quả: Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí b) Chương trình minh họa việc sử dụng thủ tục vẽ hình đơn giản Hãy chạy chương trình thay đổi số tham số màu vẽ, tọa độ quan sát kết hình uses graph; var gd,gm:integer; xm,ym,xmaxD4,ymaxD4:word; begin gd:=detect; Initgraph(gd,gm,'C:\TP\BGI'); xm:=getmaxx div 2; ym:=getmaxy div 2; setcolor(yellow); rectangle(10,10,xm,ym); readln; setcolor(LightGreen); Circle(450,100,50); readln; setcolor(Red); Ellipse(100,200,0,360,50,120); readln; CloseGraph; end Kết quả: Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Xem thêm tại: https://vndoc.com/tai-lieu-hoc-tap-lop-11 Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 ... hotro@vndoc.com | Hotline: 024 2242 6 188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Xem thêm tại: https://vndoc.com/tai-lieu -hoc -tap- lop -11 Trang chủ: https://vndoc.com/ | Email... https://vndoc.com/tai-lieu -hoc -tap- lop -11 Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6 188 ... đơn giản Hãy chạy chương trình thay đổi số tham số màu vẽ, tọa độ quan sát kết hình uses graph; var gd,gm:integer; xm,ym,xmaxD4,ymaxD4:word; begin gd:=detect; Initgraph(gd,gm,''C:\TP\BGI''); xm:=getmaxx