{"event_info":{"picture":"https://img.loigiaihay.com/picture/event/2017/0125/1-0_1.jpg","title":"Bài tập và thực hành 7","display_type":1,"cat_id":155,"cat_title":"SGK Tin học lớp 11","alias":"bai-tap-va-thuc-hanh-7","introtext":"","content_box_above":"","type":"event","page_builder":"","item_id":4786,"item_type":2},"list_articles":[{"article_id":25202,"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_2-0_3.jpg","title":"Bài tập và thực hành 7 trang 105 SGK Tin học 11","label":"Bài tập và thực hành 7 trang 105 SGK Tin học 11","alias":"bai-tap-va-thuc-hanh-7-trang-105-sgk-tin-hoc-11","introtext":"Tìm hiểu việc xây dựng các hàm và thủ tục thực hiện tính độ dài các cạnh, chu vi. diện tích, kiểm tra các tính đều, cân, vuông cỦa tam giác được trình bày dưới đây:","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=\"Bodytext0\" align=\"left\"><strong><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\"><strong>1. </strong>Mục đích, yêu cầu</span></span></strong></p>\r\n<p class=\"Bodytext60\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">- Nâng cao kĩ năng viết, sử dụng chương trình con.</span></span></p>\r\n<p class=\"Bodytext60\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">- Biết cách viết một chương trình có cấu trúc để giải một bài toán trên máy tính.</span></span></p>\r\n<p class=\"Bodytext30\" align=\"left\"><strong><span lang=\"VI\">2.  </span><span class=\"Bodytext3TimesNewRoman\"><span lang=\"VI\">Nội dung</span></span></strong></p>\r\n<p class=\"Bodytext0\" align=\"left\">a) <span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Tìm hiểu việc xây dựng các hàm và thủ tục thực hiện tính độ dài các cạnh, chu vi, diện tích, kiểm tra các tính đều, cân, vuông của tam giác được trình bày dưới đây:</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Giả thiết tam giác được xác định bởi tọa độ của ba đỉnh. Ta sử dụng kiểu bản ghi để mô tả một tam giác:</span></span></p>\r\n<p class=\"Bodytext80\">type</p>\r\n<p class=\"Bodytext80\">Diem = record</p>\r\n<p class=\"Bodytext830\">X, y: real;</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext80\">Tamgiac= record</p>\r\n<p class=\"Bodytext80\">A, B, c:Diem;</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext0\" align=\"left\">Ta xây dựng thủ tục và hàm:</p>\r\n<p><em>• </em>Thủ tục nhận dữ liệu vào là biến mô tả tam giác R và đầu ra là độ dài của ba cạnh a, b, c:</p>\r\n<p class=\"Bodytext270\" align=\"left\">Procedure Daicanh(var R: Tamgiac; var a, b, C:real);</p>\r\n<p><em>• </em>Hàm tính chu vi của tam giác R:</p>\r\n<p class=\"Bodytext270\" align=\"left\">function Chuvi(var R: Tamgiac): real;</p>\r\n<p><em>• </em>Hàm tính diện tích của tam giác R:</p>\r\n<p class=\"Bodytext270\" align=\"left\">function Dientich(var Rrtamgiac): real;</p>\r\n<p><em>• </em>Thủ tục nhận đầu vào là biến mô tả tam giác R và đầu ra là tính chất của tam giác (Deu hay Can hay Vuong)-,</p>\r\n<p>procedure Tinhchat(var R:Tamgiac;var <span lang=\"VI\">Deu, </span>Can, <span lang=\"VI\">Vuong: </span>Boolean);</p>\r\n<p><em>• </em>Thủ tục hiển thị tọa độ ba đỉnh tam giác lên màn hình:</p>\r\n<p class=\"Bodytext30\" align=\"left\"><span class=\"BodytextTimesNewRoman\">procedure </span><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Hienthi(var R: tamgiac);</span></span></p>\r\n<p class=\"Bodytext30\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\"><em>• </em></span></span>Hàm tính khoảng cách giữa hai điểm P, Q:</p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\">function </span><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Kh_cach(P, Q: Diem): Real;</span></span></p>\r\n<div class=\"WordSection1\">\r\n<p class=\"Bodytext0\" align=\"left\">b) Tìm hiểu chương trình nhập vào tọa độ ba đỉnh một tam giác và sử dụng các hàm, thủ tục được xây dựng dưới đây để khảo sát các tính chất của tam giác.</p>\r\n</div>\r\n<p class=\"Bodytext0\" align=\"left\">program tam_giac;</p>\r\n<p class=\"Bodytext0\" align=\"left\">uses crt</p>\r\n<p class=\"Bodytext0\" align=\"left\">const ep:= 1.0E-6;</p>\r\n<p class=\"Bodytext0\" align=\"left\">type</p>\r\n<p class=\"Bodytext80\">Diem = record</p>\r\n<p class=\"Bodytext80\">X, y: real;</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext80\">Tamgiac= record</p>\r\n<p class=\"Heading350\">A, B, C: Diem;</p>\r\n<p class=\"Heading350\">end;</p>\r\n<p class=\"Bodytext80\">var T: Tamgiac;</p>\r\n<p class=\"Bodytext80\">Dou, can, vuong: Boolean;</p>\r\n<p class=\"Bodytext80\">function Kh_cach(P<sub>(</sub>Q: Diem): Real; begin</p>\r\n<p class=\"Bodytext80\">Kh_cach: sqrt((P.x-Q.x)*(P<span>.</span>x-Q.x)+(P.y-Q.y)*(P.y-Q.y));</p>\r\n<p class=\"Bodytext80\">end ;</p>\r\n<p class=\"Bodytext80\">Procedure Daicanh(var R: Tamgiac; var a, b, c: real);</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">a:= Kh_cach(R.B, R.C),</p>\r\n<p class=\"Bodytext80\">b:= Kh_cach(R.A, R.C);</p>\r\n<p class=\"Bodytext80\">c:= Kh_cach(R.A,R.B) ;</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext80\">functio-n Chuvi (var R: Tamgiac) : real;</p>\r\n<p class=\"Bodytext80\">var a, b, c: real;</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">Daicanh(R, a, b, c) ;</p>\r\n<p>ChuVi:= a+b+c;</p>\r\n<p>end;</p>\r\n<p class=\"Bodytext80\">functioin Dientich(var R: tamgiac) : real;</p>\r\n<p class=\"Bodytext80\">var a, b, c, p: real;</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">Daicanh(R<sub>/</sub> a, b, c) ;</p>\r\n<p class=\"Bodytext80\">p:= (a+b+c)/2;</p>\r\n<p class=\"Bodytext80\">Dienntich: = sqrt (p* (p-a) * (p-b) * (p-c))</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext80\">procedure Hienthi (var R: tamgiac) ;</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">writeln ('Toa do 3 dinh cua tam giac la:');</p>\r\n<p class=\"Bodytext80\">writeln('Dinh A(',R.A.x:0:3,',',R.A.y:0:3,')');</p>\r\n<p class=\"Bodytext80\">writeln('Dinh B(',R.B.x:0:3,',R.B.y:0:3, ')');</p>\r\n<p class=\"Bodytext80\">writeln('Dinh C (',R.C.x:0:3,',',R.C.y:0:3,')');</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext80\">procedure Tinhchat(var R:Tamgiac; var Deu, Can, Vuong: Boolean )</p>\r\n<p class=\"Bodytext80\">var a b, c: real;</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">Deu:= false; Can:= false; Vuong:= false;</p>\r\n<p class=\"Bodytext80\">Daicanh(R, a, b, c);</p>\r\n<p class=\"Bodytext80\">if (abs(a-b)&lt;eps) and (abs(a-c)&lt;eps) then</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">Deu:= true;</p>\r\n<p class=\"Bodytext80\">Can:= true;</p>\r\n<p class=\"Bodytext80\">else</p>\r\n<p class=\"Bodytext80\">if (abs (a-b) &lt;eps) or tabs (a-c) &lt;eps) or (abs (b-r) &lt;eps)</p>\r\n<p class=\"Bodytext80\">then Can:= true;</p>\r\n<p class=\"Bodytext80\">if (abs(a*a+b*b-c*c)&lt;eps) or (abs(a*a+c*c-b*b)ceps ) or (abs(b*b+c*c-a*a)&lt;eps) then Vuong:= true;</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext270\" align=\"left\">Begin</p>\r\n<p class=\"Bodytext80\">clrscr;</p>\r\n<p class=\"Bodytext80\">writeln('Nhap tam giac:');</p>\r\n<p class=\"Bodytext80\">write('Toa do dinh A:'); readln(T.A.x, T.A.y) ;</p>\r\n<p class=\"Bodytext80\">write('Toa do dinh B:'); readln(T.B.x, T.B.y);</p>\r\n<p class=\"Bodytext80\">write('Toa do dinh c:■); readln(T.c.x, T.C.y) ;</p>\r\n<p class=\"Bodytext80\">writeln(' == = = = = = = ===== ================ =====') ;</p>\r\n<p class=\"Bodytext80\">Hienthi(T);</p>\r\n<p class=\"Bodytext80\">writeln('Dien tich:', dientich(T):9:3);</p>\r\n<p class=\"Bodytext80\">writeln ( ' Chu vi : ' , chuvi (T) : 9 : 3);</p>\r\n<p class=\"Bodytext80\">Tinhchater, Deu, Can, Vuong);</p>\r\n<p class=\"Bodytext80\">writeln('Tam giac co tinh chat:');</p>\r\n<p class=\"Bodytext80\">If Deu then writeln('la tam giac deu')</p>\r\n<p class=\"Bodytext80\">else if Can then writeln(' la tam giac can ');</p>\r\n<p class=\"Bodytext80\">if Vuong then writeln('la tam giac vuong');</p>\r\n<p class=\"Bodytext80\">readln;</p>\r\n<p class=\"Bodytext270\" align=\"left\">End.</p>\r\n<p class=\"Bodytext0\" align=\"left\">c) <span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Viết chương trình sử dụng các hàm và thủ tục xây dựng ở trên để giải bài toán:</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Cho tệp dữ liệu </span></span><span class=\"BodytextTimesNewRoman\">TAMGIAC.DAT </span><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">có cấu trúc như sau:</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">- Dòng đầu tiên chứa số N;</span></span></p>\r\n<p class=\"Bodytext680\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">- N dòng tiếp theo, mỗi dòng chứa sáu số thực xA, yA, xB, yB, xC, yC là tọa độ ba đỉnh A(xA,<sub> </sub>yA), B(xB,yB), C(xC, yC)</span></span><span class=\"Bodytext68125pt\"><span lang=\"VI\"> của tam giác ABC.</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Hãy nhập dữ liệu từ tệp đã cho và trong số N tam giác đó, đưa ra tệp TAMGlAC.OUT gồm ba dòng:</span></span></p>\r\n<p><em>• </em>Dòng đầu tiên là số lượng tam giác đều;</p>\r\n<p><em>• </em>Dòng thứ hai là số lượng tam giác cân (nhưng không là đều);</p>\r\n<p><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\"><em>• </em>Dòng thứ ba là số lượng tam giác vuông</span></span></p>\r\n<p class=\"Bodytext0\" style=\"text-align: right;\" align=\"left\"><strong>Loigiaihay.com</strong></p>"},{"article_id":25203,"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_1.jpg","title":"Hướng dẫn làm bài tập và thực hành 7 trang 105 SGK Tin học 11","label":"Hướng dẫn làm bài tập và thực hành 7 trang 105 SGK Tin học 11","alias":"huong-dan-lam-bai-tap-va-thuc-hanh-7-trang-105-sgk-tin-hoc-11","introtext":"Câu này nhằm mục đích tìm hiểu việc xây dựng các hàm và thủ tục thực hiện tính độ dài các cạnh, chu vi, diện tích, kiểm tra các tính đều, cân, vuông của tam giác.","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=\"Bodytext0\" align=\"left\"><strong><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\"><strong>1. </strong>Mục đích, yêu cầu</span></span></strong></p>\r\n<p class=\"Bodytext60\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">- Nâng cao kĩ năng viết, sử dụng chương trình con.</span></span></p>\r\n<p class=\"Bodytext60\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">- Biết cách viết một chương trình có cấu trúc để giải một bài toán trên máy tính.</span></span></p>\r\n<p><strong>2. Nội dung</strong></p>\r\n<p class=\"Bodytext0\">a)<strong> </strong>Câu này nhằm mục đích tìm hiểu việc xây dựng các hàm và thủ tục thực hiện tính độ dài các cạnh, chu vi, diện tích, kiểm tra các tính đều, cân, vuông của tam giác. Cụ thể là:</p>\r\n<p class=\"Bodytext0\">- Chúng ta cần hiểu rõ cách sử dụng kiểu bản ghi để mô tả một tam giác.</p>\r\n<p class=\"Bodytext0\" align=\"left\">- Xây dựng các thủ tục và hàm đó;</p>\r\n<p class=\"Bodytext0\" align=\"left\">- Thủ tục nhận dữ liệu vào là biến mô tả tam giác R và đầu ra là độ dài của ba cạnh a, b, c;</p>\r\n<p class=\"Bodytext0\" align=\"left\">- Hàm tính chu vi của tam giác R;</p>\r\n<p class=\"Bodytext0\" align=\"left\">- Hàm tính diện tích cùa tam giác R;</p>\r\n<p class=\"Bodytext0\" align=\"left\">- Hàm tính khoảng cách giữa hai điểm P, Q</p>\r\n<p class=\"Bodytext0\" align=\"left\">- Thủ tục hiển thị tọa độ ba đỉnh tam giác lên màn hình;</p>\r\n<p class=\"Bodytext0\" align=\"left\">- Thủ tục nhận đầu vào là biến mô tả tam giác R và đầu ra là tính chất của tam giác (Deu hay Can hay Vuong);</p>\r\n<p class=\"Bodytext0\">b)<strong> </strong>Trong câu này các chương trình con giải quyết một số bài toán đơn giản liên quan đến tam giác khi biết tọa độ các đỉnh, đó là: tính độ dài cạnh, tính chu vi, tính diện tích, kiểm tra các tính chất (đều, cân, vuông).</p>\r\n<p class=\"Bodytext0\" align=\"left\">Khi dạy chương trình, giả sử ta nhập tọa độ của các đinh A, B, C theo thứ tự là: (2, 30), (15,10), (15, 40) thì trên màn hình thông báo: </p>\r\n<p class=\"Bodytext80\">Dien tich: 130.000,Chu vi: 52.802 Tam giac co tinh Chat: la tam giac can</p>\r\n<p class=\"Bodytext0\">Kết quả chương trình như hình 75 dưới đây:</p>\r\n<p class=\"Bodytext60\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\"><img src=\"https://img.loigiaihay.com/picture/2017/0125/75.jpg\" alt=\"\" width=\"450\" height=\"195\" /></span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\">Còn khi nhập tọa độ cùa các đinh A, B, c theo thứ tự là: (5, 30), (15,20) , (75. 40) thì trên màn hình thông báo:</p>\r\n<p class=\"Bodytext330\">Dien tich: 100.000,Chu i: 48.284 Tam giac co tinh Chat: la tam giac vuong can</p>\r\n<p class=\"Bodytext0\" align=\"left\">Kết quả chương trình như hình 76 dưới đây:</p>\r\n<p class=\"Bodytext0\" align=\"left\"><img src=\"https://img.loigiaihay.com/picture/2017/0125/76.jpg\" alt=\"\" width=\"450\" height=\"185\" /></p>\r\n<p class=\"Bodytext30\" align=\"left\"><span class=\"Bodytext3TimesNewRoman\"><span lang=\"VI\">c) Để xây dựng chương trình có sử dụng các hàm và thủ tục xây dựng ở câu a) trên nhằm đưa ra tính chất các tam giác:</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span lang=\"VI\">- </span><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Số lượng tam giác đều;</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span lang=\"VI\">- </span><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Số lượng tam giác cân;</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span lang=\"VI\">- </span><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Số lượng tam giác vuông.</span></span></p>\r\n<p class=\"Bodytext30\" align=\"left\"><span class=\"Bodytext3TimesNewRoman\"><span lang=\"VI\">ta cần tạo tệp </span></span><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">tamgiac</span></span><span class=\"Bodytext3TimesNewRoman\"><span lang=\"VI\">. </span></span><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">dat</span></span><span class=\"Bodytext3TimesNewRoman\"><span lang=\"VI\">, để từ tệp này đọc dữ liệu sang tệp của chương trình chính.</span></span></p>\r\n<p>- Chương trình tạo tệp tamgỉac. dat nhằm mục đích để nhập tọa độ (Các đỉnh của tam giác.</p>\r\n<p class=\"Bodytext80\">program cau_c_btth7;</p>\r\n<p class=\"Bodytext80\">uses crt;</p>\r\n<p class=\"Bodytext270\" align=\"left\">type</p>\r\n<p class=\"Bodytext80\">Diem = record X, y:real,</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext80\">Tamgiac= record</p>\r\n<p class=\"Bodytext270\" align=\"left\">A, B, C: Diem;</p>\r\n<p class=\"Bodytext270\" align=\"left\">end;</p>\r\n<p class=\"Bodytext270\" align=\"left\">var i, n: integer; f: text;</p>\r\n<p class=\"Bodytext270\" align=\"left\">T: Tamgiac;</p>\r\n<p class=\"Bodytext270\" align=\"left\">begin</p>\r\n<p class=\"Bodytext270\" align=\"left\">clrscr;</p>\r\n<p class=\"Bodytext270\" align=\"left\">assign(f,'tamgiac.dat');</p>\r\n<p class=\"Bodytext270\" align=\"left\">rewrite(f) ,</p>\r\n<p class=\"Bodytext770\">writs 'Nhap so tam giac: ' );</p>\r\n<p class=\"Bodytext770\">read(n);</p>\r\n<p class=\"Bodytext770\">writeln (f , n) ;</p>\r\n<p class=\"Bodytext770\">for i:= 1 to n do</p>\r\n<p class=\"Bodytext770\">begin</p>\r\n<p class=\"Bodytext770\">wrri teln ( ' Nhap toa cua tam giac ',i,' la:');</p>\r\n<p class=\"Bodytext770\">read(T.A.X, T.A.y, T.B.X,T.B.y,T.C.X,T.C.y);</p>\r\n<p class=\"Bodytext770\">writeln ( f , T. A. X, T.A.y, T.B.x,T.B.y,T.C.x,T.C.y);</p>\r\n<p class=\"Bodytext770\">end</p>\r\n<p class=\"Bodytext0\" align=\"left\">clrscr(f) ;</p>\r\n<p class=\"Bodytext0\" align=\"left\">reacln</p>\r\n<p class=\"Bodytext30\" align=\"left\"><span class=\"Bodytext3TimesNewRoman\"><span lang=\"VI\">end.<br /></span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\">Khi ch</span><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">ạy chương trình, ta nhập số tam giác N= 3, với các tọa độ của tam giác lần lượt như sau (Hình 77):</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Tọa độ của tam giác 1 là: (5; 10); (20; 10); (20; 50) (đây là tam giác vuông)</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Tọa độ của tam giác 2 là: (2;30); (15; 20); (15; 40) (đây là tam giác cán)</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Tọa độ của tam giác 2 là: (5; 30); (15; 20); (15; 35) (đây là tam giác thường)</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\"><img src=\"https://img.loigiaihay.com/picture/2017/0125/77.jpg\" alt=\"\" width=\"450\" height=\"84\" /></span></span></p>\r\n<p class=\"Bodytext270\" align=\"left\">begin</p>\r\n<p class=\"Bodytext80\">a : =Kh_cach (R . B, R.C);</p>\r\n<p class=\"Bodytext80\"> b:=Kh_cach(R.A, R.C);</p>\r\n<p class=\"Bodytext80\">c:=Kh_cach(R.A,R.B);</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext80\">procedure Tinhchat(var R:Tamgiac; var Deu, Can, Vuong: Boolean);</p>\r\n<p class=\"Bodytext80\">var a, b, c:real;</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">Deu:=false; Can:=false; Vuong:=false;</p>\r\n<p class=\"Bodytext80\">Daicanh(R, a, b, c); ifMabs (a-b) &lt;eps) and (abs (a-c) &lt;eps) then</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">Deu:= true;</p>\r\n<p class=\"Bodytext80\">Can:= true;</p>\r\n<p class=\"Bodytext80\">end else</p>\r\n<p class=\"Bodytext80\">if (abs (a-b) &lt;eps) or (abs (a-c) &lt;eps) or (abs (b-c) &lt;ep:S) then Can:=true;</p>\r\n<p class=\"Bodytext80\">if (abs(a*a+b*b-c*c)&lt;eps) or (abs (a*a+c*c-k*b) &lt;c-ps) or (abs(b*b+c*c-a*a)&lt;eps) then Vuong:= truer</p>\r\n<p class=\"Bodytext80\">end;</p>\r\n<p class=\"Bodytext270\" align=\"left\">Begin</p>\r\n<p class=\"Bodytext80\">deu:= 0; can:= 0; vuong:= 0;</p>\r\n<p class=\"Bodytext80\">assign ( f, ' tamgiac . dat' ) ,</p>\r\n<p class=\"Bodytext80\">reset(f);</p>\r\n<p class=\"Bodytext80\">readln(f,N);</p>\r\n<p class=\"Bodytext80\">for i:= 1 to N do</p>\r\n<p class=\"Bodytext270\" align=\"left\">begin</p>\r\n<p class=\"Bodytext80\">readln(f, T.A.X, T.A.y, T.B.x,T.B.y,T.C.x,T.C.y);</p>\r\n<p class=\"Bodytext80\">Tinhchat(T, D, Cn, V);</p>\r\n<p class=\"Bodytext80\">If D then deu:= deu + 1 else</p>\r\n<p class=\"Bodytext80\">begin</p>\r\n<p class=\"Bodytext80\">if Cn then can:= can + 1;</p>\r\n<p class=\"Bodytext80\">if V then vuong:= vuong + 1;</p>\r\n<p class=\"Bodytext80\">end;end;</p>\r\n<p class=\"Bodytext80\">writeln('Co: ',deu,'tam giac deu');</p>\r\n<p class=\"Bodytext80\">writeln('Co: can,'tam giac can(khong deu)' );</p>\r\n<p class=\"Bodytext80\">writeln('Co: ’,vuong, 'tam giac vuong);</p>\r\n<p class=\"Bodytext80\">readln;</p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">end <br /></span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Co 0 tam giac deu</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Co 1 tam giac can(khong deu)</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Co 1 tam giac vuong</span></span></p>\r\n<p class=\"Bodytext0\" align=\"left\"><span class=\"BodytextTimesNewRoman\"><span lang=\"VI\">Kết quả chương trình như hình 78 dưới đây:</span></span></p>\r\n<div><img src=\"https://img.loigiaihay.com/picture/2017/0125/78.jpg\" alt=\"\" width=\"450\" height=\"82\" /></div>\r\n<div style=\"text-align: right;\"><strong>Loigiaihay.com</strong></div>"}],"most_views":[{"article_id":25202,"cat_id":155,"publish_time":1486366680,"is_hot":0,"is_link":0,"thumbnail":"https://img.loigiaihay.com/picture/article/2017/0125/resize_2-0_3.jpg","title":"Bài tập và thực hành 7 trang 105 SGK Tin học 11","alias":"bai-tap-va-thuc-hanh-7-trang-105-sgk-tin-hoc-11","introtext":"Tìm hiểu việc xây dựng các hàm và thủ tục thực hiện tính độ dài các cạnh, chu vi. diện tích, kiểm tra các tính đều, cân, vuông cỦa tam giác được trình bày dưới đây:","display_type":1},{"article_id":25203,"cat_id":155,"publish_time":1486366680,"is_hot":0,"is_link":0,"thumbnail":"https://img.loigiaihay.com/picture/article/2017/0125/resize_3-0_1.jpg","title":"Hướng dẫn làm bài tập và thực hành 7 trang 105 SGK Tin học 11","alias":"huong-dan-lam-bai-tap-va-thuc-hanh-7-trang-105-sgk-tin-hoc-11","introtext":"Câu này nhằm mục đích tìm hiểu việc xây dựng các hàm và thủ tục thực hiện tính độ dài các cạnh, chu vi, diện tích, kiểm tra các tính đều, cân, vuông của tam giác.","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":[]}