{"event_info":{"picture":"https://img.loigiaihay.com/picture/event/2017/0125/1-0_2.jpg","title":"Bài tập và thực hành 8","display_type":1,"cat_id":155,"cat_title":"SGK Tin học lớp 11","alias":"bai-tap-va-thuc-hanh-8","introtext":"","content_box_above":"","type":"event","page_builder":"","item_id":4788,"item_type":2},"list_articles":[{"article_id":25205,"cat_id":155,"publish_time":1486366680,"type_ex":2,"is_hot":0,"is_link":0,"thumbnail":"https://img.loigiaihay.com/picture/article/2017/0125/resize_3-0_2.jpg","title":"Bài tập và thực hành 8 trang 115 SGK Tin học 11","label":"Bài tập và thực hành 8 trang 115 SGK Tin học 11","alias":"bai-tap-va-thuc-hanh-8-trang-115-sgk-tin-hoc-11","introtext":" Chương trình sau đây vẽ các đường gấp khúc “ngẫu nhiên” nhờ thủ tục LineTo, mỗi đoạn có một màu ngẫu nhiên.","display_type":1,"article_type":1,"content":"<style>\r\n.method-close-icon{position: relative;float: right;top: 6px;transform: rotate(270deg);-ms-transform:rotate(270deg);-moz-transform:rotate(270deg);-webkit-transform:rotate(270deg);-o-transform:rotate(270deg);}\r\n.method-open-icon{position: relative;float: right;top: 6px;}\r\n</style>\r\n<p><strong style=\"font-size: 16px;\">Lời giải chi tiết</strong></p><p><strong>1. Mục đích, yêu cầu</strong></p>\r\n<p>Giới thiệu một số chương trình để học sinh thấy được khả năng đồ họa của Pascal.</p>\r\n<p><strong>2. Nội dung</strong></p>\r\n<div class=\"WordSection1\">\r\n<p class=\"Bodytext0\">a) Chương trình sau đây vẽ các đường gấp khúc “ngẫu nhiên” nhờ thủ tục LineTo, mỗi đoạn có một màu ngẫu nhiên. Ví trí bắt đầu vẽ là tâm của màn hình. Kết thúc việc vẽ bằng cách nhấn một phím bất kỳ. Chạy thử chương trình và quan sát kết quả trên màn hình.</p>\r\n<p class=\"Bodytext80\">uses crt, graph;</p>\r\n<p class=\"Bodytext80\">var stop: boolean;</p>\r\n<p class=\"Bodytext80\">function Detectlnit(path:string): integer; var drive, mode: integer;</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">drive:= 0;</p>\r\n<p class=\"Bodytext80\">EnitGraph(drive, mode, path);</p>\r\n</div>\r\n<p>end;</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">if Detectlnit('c:\\TP\\BGI')&lt;&gt;0 then begin</p>\r\n<p class=\"Bodytext770\">Write('Loi do hoa ! Nhan phim Enter de ket thuc')</p>\r\n<p class=\"Bodytext770\">readln;</p>\r\n<p class=\"Bodytext80\">end</p>\r\n<p class=\"Bodytext80\">else</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">Randomize;</p>\r\n<p>MoveTo(getmaxx div 2, Getmaxy div 2); </p>\r\n<p class=\"Bodytext80\">stop:= false; while not (stop) do</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">SetColor(Random(GetMaxColor)) ;</p>\r\n<p class=\"Bodytext80\">{Thiet lap mau mot cach ngau nhien}</p>\r\n<p class=\"Bodytext80\">LineTo(Random(getmaxx),Random(getmaxy));</p>\r\n<p class=\"Bodytext80\">Delay(200); {tam dung} stop :=keypressed;</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext80\">CloseGraph</p>\r\n<p class=\"Bodytext80\">End.</p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">b) Chương trình dưới đây minh họa việc sử dụng các thủ tục vẽ hình đơn giản. Hãy </span></span>chạy chương trình rồi thay đổi một số tham số như màu vẽ, tọa độ và quan sát kết quả trên màn hình.</p>\r\n<div class=\"WordSection1\">\r\n<p class=\"Bodytext80\">program graphDemo;</p>\r\n<p class=\"Bodytext80\">uses graph;</p>\r\n<p class=\"Bodytext80\">var</p>\r\n<p class=\"Bodytext80\">gd, gm: integer; xm, ym, xmaxD4, ymaxD4: Word;</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">gd:=detect;</p>\r\n<p class=\"Bodytext80\">Initgraph(gd, gm, 'C:\\TP\\BGI');</p>\r\n<p class=\"Bodytext80\">xm: =GetmaxX div 2 , ym:= GetmaxY div 2);</p>\r\n<p class=\"Bodytext80\">{ve hinh chu nhat voi net ve mau vang}</p>\r\n<p class=\"Bodytext80\">SetColor(yellow);</p>\r\n<p class=\"Bodytext80\">Rectangle(10,10, xm, ym);</p>\r\n<p class=\"Bodytext80\">readln;</p>\r\n<p class=\"Bodytext80\">{Ve duong vong tron mau xanh la cay,tam(450; 100) Dan kinh 50}</p>\r\n<p class=\"Bodytext80\">Setcolor(LightGreen);</p>\r\n<p class=\"Bodytext80\">Circle(450, 100, 50);</p>\r\n<p class=\"Bodytext80\">readln;</p>\r\n<p class=\"Bodytext80\">{ve ellip mau do}</p>\r\n</div>\r\n<p class=\"Bodytext0\" align=\"left\">Sitrolor (red) ;</p>\r\n<p class=\"Bodytext80\">Elipse (100, 200, 0, 360, 50, 120);</p>\r\n<p class=\"Bodytext80\">readln; </p>\r\n<p class=\"Bodytext80\">CloseGraph</p>\r\n<p class=\"Bodytext80\">end.</p>\r\n<p class=\"Bodytext80\" style=\"text-align: right;\"><strong> Loigiaihay.com</strong></p>"},{"article_id":25206,"cat_id":155,"publish_time":1486366680,"type_ex":2,"is_hot":0,"is_link":0,"thumbnail":"https://img.loigiaihay.com/picture/article/2017/0125/resize_5-0_2.jpg","title":"Hướng dẫn làm bài tập và thực hành 8 trang 115 SGK Tin học 11","label":"Hướng dẫn làm bài tập và thực hành 8 trang 115 SGK Tin học 11","alias":"huong-dan-lam-bai-tap-va-thuc-hanh-8-trang-115-sgk-tin-hoc-11","introtext":"Chương trình vẽ các đường gấp khúc “ngẫu nhiên”, mỗi đoạn có một màu ngẫu nhiên.","display_type":1,"article_type":1,"content":"<style>\r\n.method-close-icon{position: relative;float: right;top: 6px;transform: rotate(270deg);-ms-transform:rotate(270deg);-moz-transform:rotate(270deg);-webkit-transform:rotate(270deg);-o-transform:rotate(270deg);}\r\n.method-open-icon{position: relative;float: right;top: 6px;}\r\n</style>\r\n<p><strong style=\"font-size: 16px;\">Lời giải chi tiết</strong></p><p class=\"Bodytext30\"><strong>1. Mục đích, yêu cầu</strong></p>\r\n<p>Giới thiệu một số chương trình để học sinh thấy được khả năng đồ họa của Pascal.</p>\r\n<p><strong>2. Nội dung</strong></p>\r\n<p class=\"Bodytext0\">a) Chương trình vẽ các đường gấp khúc “ngẫu nhiên”, mỗi đoạn có một màu ngẫu nhiên.</p>\r\n<p class=\"Bodytext0\">Trong trường hợp, đường dẫn của chương trình sai (có thể tệp graph.tpu không có trên PDGI hoặc nằm ngoài thư mục DGI) thì sẽ có thông báo trên màn hình ' Loi</p>\r\n<p class=\"Bodytext0\">do xoa! Nhan phim Enter de ket thuc. . . '(Hình 79). </p>\r\n<p class=\"Bodytext0\"><img src=\"https://img.loigiaihay.com/picture/2017/0125/79.jpg\" alt=\"\" width=\"450\" height=\"80\" /></p>\r\n<p class=\"Bodytext0\">Khi đó, ta nhấn phím Enter để quay trở lại chương trình để thay đổi lại đường dẫn. Kết quả chương trình sẽ cho ta các đường gấp khúc “ngẫu nhiên”, mỗi đoạn có một màu ngẫu nhiên, bao gồm các màu xanh, đỏ, tím, vàng,...(Hình 80).</p>\r\n<p class=\"Bodytext0\"><img src=\"https://img.loigiaihay.com/picture/2017/0125/80.jpg\" alt=\"\" width=\"277\" height=\"169\" /></p>\r\n<p class=\"Bodytext0\">Lưu ý: Nhiều khi tệp graph.tpu nằm trong thư mục BIN của TP của ổ đĩa D hoặc E (do người sử dụng thiết đặt). Đường dẫn đến tệp graph.tpu có dạng như sau:</p>\r\n<p class=\"Bodytext80\">D:\\TP\\BIN\\GRAP.TPU</p>\r\n<p class=\"Bodytext0\">b) Khi chạy chương trình GrapDemo, ta thấy trên màn hình xuất hiện một hình chữ nhật màu vàng. Tiếp đến sau khi gõ phím Enter, trên màn hình lại xuất hiện một hình tròn màu xanh. Tương tự, sau khi gõ phím Enter, trên màn hình xuất hiện tiếp một hình Elip màu đỏ cắt một cạnh của hình chữ nhật.</p>\r\n<p class=\"Bodytext0\">Khi thay đổi một sổ tham số như màu vẽ, chẳng hạn hình chữ nhật được thay bàng màu xanh trời, tọa độ (20, 20 , xm,ym). Đoạn chương trình sau thể hiện sự thay đổi các tham số về màu, tọa độ của hình chữ nhật, hình tròn và hình elip.</p>\r\n<p class=\"Bodytext80\">xm:= GetmaxX div 2; ym:= GetmaxY div 2;</p>\r\n<p class=\"Bodytext80\">{ve hinh chu nhat voi net ve mau xanh troi}</p>\r\n<p class=\"Bodytext80\">Setcolor(blue);</p>\r\n<p class=\"Bodytext80\">Rectangle(20,20,xm,ym);</p>\r\n<p class=\"Bodytext80\">readln;</p>\r\n<p class=\"Bodytext80\">{Ve duong vong tron mau trang, tam(500; 150) ban kinh 100}</p>\r\n<p class=\"Bodytext80\">Setcolor(red);</p>\r\n<p class=\"Bodytext80\">Circle(500, 150,100);</p>\r\n<p class=\"Bodytext80\">readln;</p>\r\n<p class=\"Bodytext80\">{ve ellip mau tim}</p>\r\n<p class=\"Bodytext80\">Setcolor(magenta);</p>\r\n<p class=\"Bodytext80\">Ellipse(200, 250, 15, 360, 70, 120);</p>\r\n<p class=\"Bodytext60\">Chương trình:</p>\r\n<p class=\"Bodytext80\">program graphDemo_2;</p>\r\n<p class=\"Bodytext80\">uses graph;</p>\r\n<p class=\"Bodytext80\">var</p>\r\n<p class=\"Heading440\">gd, gm: integer; xm, ym, xmaxD4, ymaxD4: word,</p>\r\n<p class=\"Heading440\">Begin</p>\r\n<p class=\"Bodytext80\">gd:= detect;</p>\r\n<p class=\"Bodytext80\">Initgraph(gd, gm, 'C:\\TP\\BGI');</p>\r\n<p class=\"Bodytext80\">xm:=GetmaxX div 2; ym:= GetmaxY div 2;</p>\r\n<p class=\"Bodytext80\">{ve hinh chu nhat voi net ve xanh troi}</p>\r\n<p class=\"Bodytext80\">Setcolor(blue);</p>\r\n<p class=\"Bodytext80\">Rectangle(20,20,xm,ym);</p>\r\n<p class=\"Bodytext80\">readln;</p>\r\n<p class=\"Bodytext80\">{Ve duong vong tron mau do, tam(500; 150) ban kinh 100} Setcolor(red);</p>\r\n<p class=\"Bodytext80\">Circle(500, 150,100);</p>\r\n<p class=\"Bodytext80\">readln;</p>\r\n<p class=\"Bodytext80\">{ve ellip mau tim}</p>\r\n<p class=\"Bodytext80\">Setcolor(magenta);</p>\r\n<p class=\"Bodytext80\">Ellipse(200, 250, 15, 360, 70, 120);</p>\r\n<p class=\"Bodytext80\">readln;</p>\r\n<p class=\"Bodytext80\">CloseGraph</p>\r\n<p class=\"Bodytext80\">End.</p>\r\n<p class=\"Bodytext80\">Khi chạy chương trình vừa đã thay đổi các tham số về tọa độ, màu sắc, trên màn hình xuất hiện một hình chữ nhật da trời. Tiếp đến sau khi gõ phím Inter, trên màn hình xuất hiện một hình tròn màu đỏ. Tương tự, sau khi gõ phím Enter, trên màn hình xuất hiện một hình Elip màu tím cắt một cạnh của hình chữ nhật (Hình 81)</p>\r\n<p class=\"Bodytext80\"><img src=\"https://img.loigiaihay.com/picture/2017/0125/81.jpg\" alt=\"\" width=\"389\" height=\"236\" /></p>\r\n<p class=\"Bodytext80\" style=\"text-align: right;\"><strong>Loigiaihay.com</strong></p>"}],"most_views":[{"article_id":25205,"cat_id":155,"publish_time":1486366680,"is_hot":0,"is_link":0,"thumbnail":"https://img.loigiaihay.com/picture/article/2017/0125/resize_3-0_2.jpg","title":"Bài tập và thực hành 8 trang 115 SGK Tin học 11","alias":"bai-tap-va-thuc-hanh-8-trang-115-sgk-tin-hoc-11","introtext":" Chương trình sau đây vẽ các đường gấp khúc “ngẫu nhiên” nhờ thủ tục LineTo, mỗi đoạn có một màu ngẫu nhiên.","display_type":1},{"article_id":25206,"cat_id":155,"publish_time":1486366680,"is_hot":0,"is_link":0,"thumbnail":"https://img.loigiaihay.com/picture/article/2017/0125/resize_5-0_2.jpg","title":"Hướng dẫn làm bài tập và thực hành 8 trang 115 SGK Tin học 11","alias":"huong-dan-lam-bai-tap-va-thuc-hanh-8-trang-115-sgk-tin-hoc-11","introtext":"Chương trình vẽ các đường gấp khúc “ngẫu nhiên”, mỗi đoạn có một màu ngẫu nhiên.","display_type":1}],"list_sub_event":[],"top_banner":"","cfg_info":{"last_cfg_time":"1521866679","ad.popup_frequency":"0","ad.adsense.detail_bottom.unit_id":"ca-app-pub-8529835372050931/9927553003","ad.adsense.popup.unit_id":"ca-app-pub-8529835372050931/2161779402","current.force.update.version":"181","support.email":"loigiaihay.com@gmail.com","support.fanpage":"https://www.facebook.com/Loigiaihay/","popup_rating_after":"86400","admob.app_id":"ca-app-pub-8529835372050931~4358271409","admob.unit.article_detail_bottom":"ca-app-pub-8529835372050931/1883637630","admob.unit.article_detail_top":"ca-app-pub-8529835372050931/8604898230","admob.unit.event_article_top":"ca-app-pub-8529835372050931/7406887709","admob.unit.interestial":"ca-app-pub-8529835372050931/2741937409","ios_appstore_link":"https://itunes.apple.com/us/app/loigiaihay/id1209891610?mt=8","android_appstore_link":"https://play.google.com/store/apps/details?id=com.tp.loigiaihay","min_version":"2.1.3","latest_version":"1.3.9","force_update":false},"popup_ads":[]}