tailieunhanh - Lý thuyết và bài tập Pascal nâng cao part 7

Tham khảo tài liệu 'lý thuyết và bài tập pascal nâng cao part 7', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chương 7 Màn hình đổ họa 265 xn xMax DIV 2 yn yMax DIV 2 Xác định tọa độ tâm màn hình Xl xn-r -l yl yn-r -4 x2 xn r 1 y2 yn r 4 d r r setcolor White circle xn yn rj I Hiển thị quả banh tròn bán kính r tâm tại giữa màn hình setfi I Isty leísol idFi 11 Green FloodF i 11 xn yn white Tô quả banh với màu xanh green Getmem img lmageSize x1 y 1 x2 y2ỉ Cất hình ảnh quả banh đã tạo vào vùng nhớ con trỏ ịmg chỉ tới I if imgoNIL then begin Getimage x1 yl x2 y2 imgA Lấy hình quả banh ra màn hình ClearViewPort Xóa banh I dx l I Tính độ dời mới cho banh dy 1 y yn x xn while not Keypressed do I Vòng lặp di chuyển banh I begin putlmage x y imgA Normal Put I Hiển thị banh ở vị trí x y I x -x dx Tính tọa dộ mới cho banh I 266 Lỷ thuyết và Bài tập Pascal y y dy I Nếu biên banh vượt quá biên màn hình thì đổi lại chiều di chuyển cho banh if y ymax-d or y 0 then dy -dy if x xMax-d or x 0 then dx -dx end end closeCraph End. Giải thích Khi quả bóng đến một trong bốn biên màn hình đều bị dổi chiều di chuyển. Lệnh if y ymax-d or y 0 then dy -dy giúp dổi chiẻu bông khi đến đường biên trên hay dưới mãn hình. Lệnh if x xMax-d or x 0 then dx -dx giúp đổi chiêu bóng khi đến đường biên trái hay phải màn hình. Chú ý Ngoài bốn đỉnh màn hình không bao giò hai giá trị dx dy cùng đổi dâ u. Chẳng hạn khi bóng đến biên trên hay dưới màn hình chỉ có lệnh if y ymax-d or y -0 then dy -dy thực hiện còn giá trị dx vẫn dương do đó bóng tuy đổi chiều quay lại nhưng dường di chuyển của bóng không những không trùng với dường bóng di chuyển tởi mà còn tuân theo định luật phàn xạ nữa. Lệnh Floodjilỉ xn yn white Dũng dể tô màu các đường khép kín cô chứa điểm có tọa độ . Nếu điểm nằm ngoài dường khép kín thì nô sẽ tô màu phản ngoài chứ không phải bên trong. Do đó. để tô hình tròn hay hình chữ nhật chọn lã tâm dường tròn hay hĩnh chữ nhật là Chương 7 Màn hình đổ họa 267 chác chắn vĩ tâm dường tròn hay hĩnh chữ nhật dĩ nhiên là nàm trong đường tròn hay hình chữ nhật đó rồi phải không các bạn. Bài . uses