Khoa Công Nghệ Thông Tin

Khoa Công Nghệ Thông Tin Khoa Công Nghệ Thông Tin Bộ môn Kỹ thuật máy tính và Mạng Môn Đồ Họa Máy Tính BÀI THỰC HÀNH SỐ 3 Mục tiêu Buổi thứ 3 giúp sinh viên nâng cao khả năng tự code các chương trình[.]

Khoa Công Nghệ Thông Tin Bộ môn Kỹ thuật máy tính Mạng Mơn Đồ Họa Máy Tính BÀI THỰC HÀNH SỐ Mục tiêu: - Buổi thứ giúp sinh viên nâng cao khả tự code chương trình đồ họa phức tạp, nâng cao khả tư lập trình đồ họa Yêu cầu: - Sinh viên đầy đủ, để nắm toàn thực hành - Sinh viên nắm vững phần kiến thức học lý thuyết - Có ý thức thái độ nghiêm túc thực hành Nội dung: Bài Mở chương trình BAN_CO.PAS thư mục K59 ổ D Thay đoạn chương trình sau vào có vẽ bàn cờ khơng? Giải thích lý sao? for i:=0 to for j:=0 to begin if (i+j) mod =0 then mau:=white else mau:= black; setfillstyle(1,mau); bar(a+i*canh,a+j*canh,a+(i+1)*canh,a+(j+1)*canh); end; Bài Chạy đoạn chương trình sau: uses crt,graph; var gd,gm,x,y,dx,dy,r : integer; BEGIN gd := 0; initgraph(gd,gm,''); x := 100; y := 100; dx := -6; dy := 5; r := 30; repeat setcolor(yellow); circle(x,y,r); {vẽ đường tròn màu vàng} delay(20); setcolor(0); circle(x,y,r); {vẽ đường trịn màu trùng màu xố } if (x>=640-r) or (x=480-r) or (y