Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Viết chương trình nhập vào 3 giá trị dương a, b, c. Kiểm tra xem chúng có thể tạo thành ba cạnh của một tam giác hay không, nếu đúng thì đó là tam giác vuông, cân, đều hay tam giác thường và cho biết chu vi và diện tích của hình tam giác đó. Hướng dẫn a+b+c Diện tích tam giác được tính: S = p ( p − a)( p − b)( p − c) với p = 2 Giao diện chương trình: | BÀI THỰC HÀNH SỐ 1 Viết chương trình nhập vào 3 giá trị dương a b c. Kiểm tra xem chúng có thể tạo thành ba cạnh của một tam giác hay không nếu đúng thì đó là tam giác vuông cân đều hay tam giác thường và cho biết chu vi và diện tích của hình tam giác đó. Hướng dẫn . I -------- ------ ---------- a b c Diện tích tam giác được tính S p p - a p - b p - c với p ------------------2----- Giao diện chương trình Đúng Sai Cân Vuông Đều Thường - Các đối tượng TextBox có thuộc tính Name là Textl - Text7 thứ tự từ trên xuống - Các đối tượng CommandButton nút lệnh có Name từ Commandl - Commands Mã lệnh tham khảo Dim a As Byte b As Byte c As Byte Dim S As Single P As Single Sự kiện Click của nút Command2 nút Tiep tuc Private Sub Command2_Click Textl.Text Text2.Text Text4.Text Text6.Text End Sub Các biến chứa ba cạnh tam giác Chứa diện tích và chu vi của tam giác Xóa rỗng các đối tượng TextBox Text3.Text Text5.Text Text7.Text Sự kiện Click của nút Command3 nút Ket thuc Private Sub Command3_Click Unload Me End Sub Cho biến a nhận giá trị từ Textl Cho biến b nhận giá trị từ Text2 Cho biến c nhận giá trị từ Text3 Sự kiện Click của nút Commandl nút Kiem tra Private Sub Command1_Click a Val Textl.Text b Val Text2.Text c Val Text3.Text If a b c And a c b And b c a Then Kiểm tra loại tam giác - Chỉ khi a b c là ba cạnh của tam giác Text4.Text DIEU NAY DUNG If a b And b c Then Text5.Text TAM GIAC DEU Elself a b Or a c Or b c Then Texts.Text Tam GIAC Can ElseIf a a b b c 2 Or b b c c a 2 Or a a c c b 2 Then Text5.Text TAM GIAC VUONG Else Text5.Text TAM GIAC THUONG End If P a b c 2 Tính chu vi của tam giác Đối tượng Text6 chứa chu vi tam giác Text6.Text Str 2 P Tính diện tích tam giác S Sqr P P - a P - b P - c Đối tượng text7 chứa diện tích tam giác Text7.Text Str S Else Text4.Text DIEU NAY SAI End If End Sub Các bài tập khác 1. Giải phương trình bậc hai ax2 bx c 0 a 0 a1 X b1 y c1 a2 X b2 y c2 Hướng dẫn a. b D 1 1 a2 b2 b1 Dx b2 c1 D c1 a1 c2 y c2 a2 - D 0 Có nghiệm x Dx D và y Dy D - D 0
