Thông tin tài liệu
Thư viện tài liệu học tập, tham khảo online lớn Nội dung viết Soạn SGK Tin Học lớp 11: Bài tập thực hành Mời em học sinh quý thầy cô giáo tham khảo hướng dẫn Soạn SGK Tin học lớp 11: Bài tập thực hành ngắn gọn đầy đủ nhất, biên soạn chia sẻ Soạn SGK Tin Học lớp 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; setcolor(Random(Getmaxcolor)); LineTo(Random(Getmaxx),Random(Getmaxy)); Delay(200); stop:=keypressed; end; end; closegraph; end Kết quả: Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom end Thư viện tài liệu học tập, tham khảo online lớn 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 2; uses graph; var gd,gm:integer; xm,ym,xmaxD4,ymaxD4:word; begin gd:=detect; Initgraph(gd,gm,'C:\TP\BGI'); xm:=getmaxx div 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); Kết quả: ►►CLICK NGAY vào nút TẢI VỀ để tải Giải tập Tin học lớp 11: Bài tập thực hành (Ngắn gọn) file PDF hoàn toàn miễn phí Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom readln; ... setcolor(Red); Ellipse(100,200,0,360,50,120); Kết quả: ►►CLICK NGAY vào nút TẢI VỀ để tải Giải tập Tin học lớp 11: Bài tập thực hành (Ngắn gọn) file PDF hồn tồn miễn phí Website: https://tailieu.com/ |... 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 2; uses graph; var gd,gm:integer; xm,ym,xmaxD4,ymaxD4:word; begin gd:=detect; Initgraph(gd,gm,'C:TPBGI'); xm:=getmaxx
Ngày đăng: 15/10/2022, 15:23
Xem thêm:
