Bài 2. Viết Chương Trình Tính Diện Tích Tam Giác Dùng If - Else

Học lập trình dành cho người mới bắt đầu!

• ⦿ Home
• ⚙️ Study
• _ ➺ Phần mềm tiện ích
• ⚙️ TOOL TIỆN ÍCH
• _ ➺ Diện tích HCN
• _ ➺Tiền 1 tiết dạy GV
• _ ➺Giải PT bậc nhất
• _➺Giải PT bậc 2
• ✉ Liên hệ

✜ TIỆN ÍCH ONLINE

• ◈ Diện tích HCN
• ◈ Tiền 1 Tiết dạy GV
• ◈ Giải PT bậc nhất
• ◈ Giải PT bậc hai
• ◈ Tính tuổi của bạn
• ◈ Đếm ký tự
• ◈ Xoá dấu và thêm dấu "-"
• ◈ Kiểm tra số nguyên tố
• ◈ Tìm lại PTB2 ban đầu
• ◈ Chuyển đổi Hoa - Thường

💻 Software

• ◈ Sublime Text 4
• ◈ Turbo Pascal 7.0

↺ Xem nhiều

• Bài 3. Viết chương trình tính tuổi
• Bài 4. Viết chương trình tính tổng hiệu tích thương
• Bài 5. Viết chương trình tính diện tích hình tròn
• Bài 2. Viết chương trình xuất ra màn hình bài thơ
• Bài 1. Viết chương trình in bảng cửu chương với For Do
• Bài 3. Tìm min và max của hai số nguyên
• Bài 9. Tính điểm trung bình của học sinh
• Bài 11. Diện tích hình thang
• Bài 6. Viết chương trình tính cạnh huyền tam giác vuông
• Bài 10. Viết chương trình in bản cửu chương từ 2 đến 9

Home ĐIỀU KIỆN - RẺ NHÁNH Bài 2. Viết chương trình tính diện tích tam giác dùng if - else Bài 2. Viết chương trình tính diện tích tam giác dùng if - else ĐIỀU KIỆN - RẺ NHÁNH,

1. Bài toán

  Yêu cầu: Viết chương trình tính diện tích tam giác

• Input: Nhập ba cạnh của tam giac
• Output: In ra màn hình diện tích tam giac

2. Giải thuật:

Bước 1. Nhập thông tin:

• Bước 1.1. Nhập độ dài cạnh a
• Bước 1.2. Nhập độ dài cạnh b
• Bước 1.3. Nhập độ dài cạnh c

Bước 2. Xử lý:

• Bước 2.1. Nếu ba cạnh tạo thành tam giác thì B2.1.1. Tính \(P = \frac{{a + b + c}}{2}\) B2.1.2. Tính diện tích tam giác bằng công thức \(S = \sqrt {p\left( {p - a} \right)\left( {p - b} \right)\left( {p - c} \right)} \)
• Bước 2.2. Nếu không tạo thành tam giác thì in ra không phải tam giác

Bước 3. In ra màn hình diện tích tam giác.

3. Code Pascal:

Program Tam_Giac; Var a,b,c:Integer; P,S:Real; Begin Writeln('CHUONG TRINH TINH DIEN TICH TAM GIAC'); Write('Cho biet canh thu nhat a = '); Readln(a); Write('Cho biet canh thu hai b = '); Readln(b); Write('Cho biet canh thu ba c = '); Readln(c); if ((a + b > c) and (b + c > a) and (c + a > b)) then begin P := 0.5 * (a + b + c); S := sqrt(p*(p-a)*(p-c)*(p-c)); Writeln('Dien tich hinh tam giac = ',S:6:2,' met vuong'); end else Writeln('Do dai ba canh vua nhap khong tao thanh tam giac!'); Readln End.

4. Giải thích code

Dong code	Ý nghĩa
Program Tam_Giac;	Đặt tên chương trình là Tam_Giac
Var a,b,c:Integer; p,s:Real;	Khai báo biến a(cạnh thứ nhất), b(cạnh thứ hai), c(cạnh thứ ba) theo kiểu integer(số nguyên) và p, s(diện tích) theo kiểu real(số thực)
Writeln('CHUONG TRINH TINH DIEN TICH TAM GIAC');	In ra màn hình dòng CHUONG TRINH TINH DIEN TICH TAM GIAC
Write('Cho biet canh thu nhat a = ');	In ra màn hình dòng Cho biet canh thu nhat a =
Readln(a);	Nhập vào từ bàn phím giá trị gán vào biến a
Write('Cho biet canh thu hai b = ');	In ra màn hình dòng Cho biet canh thu hai b =
Readln(b);	Nhập vào từ bàn phím giá trị gán vào biến b
Write('Cho biet canh thu ba c = ');	In ra màn hình dòng Cho biet canh thu ba c =
Readln(c);	Nhập vào từ bàn phím giá trị gán vào biến c
P := 0.5 * (a + b + c);	Gán giá trị biểu thức \(\frac{{a + b + c}}{2}\) vào biến p
S := sqrt(p*(p-a)*(p-c)*(p-c));	Gán giá trị biểu thức \(\sqrt {p\left( {p - a} \right)\left( {p - b} \right)\left( {p - c} \right)} \) vào biến s
if ((a + b > c) and (b + c > a) and (c + a > b)) then begin p := 0.5 * (a + b + c); s := sqrt(p*(p-a)*(p-c)*(p-c)); Writeln('Dien tich hinh tam giac = ',s:6:2,' met vuong'); end	Nếu điều kiện (a + b > c) and (b + c > a) and (c + a > b) đúng thì ba cạnh a, b, c tạo thành tham giác và tính p, s và in ra màn hình dòng Dien tich hinh tam giac = và giá trị biến s và in chữ met vuong
else Writeln('Do dai ba canh vua nhap khong tao thanh tam giac!');	Else là ngược lại tức là ba cạnh không tạo thành tam giác thì in ra dòng Do dai ba canh vua nhap khong tao thanh tam giac!
Readln	Dừng màn hình cho các bạn xem kết quả.

5. Kết Quả Pascal

Kết luận: ⦿ Bài này chúng ta đã xét trước đó trong phần bài tập cơ bản, nhưng code chưa giải quyết được phần ba cạnh nhập vào không tạo thành tam giác nên lúc đó khi không tạo thành được tam giác thì diện tích sẽ bằng không. ⦿ Bài này sẽ được giải quyết tốt hơn khi có sử dụng điều kiện if - else để kiểm tra ba cạnh nhập vào có tạo thành tam giác không. ⦿ Điều kiện để ba cạnh nhập vào là một tam giác là Tổng hai cạnh của tam giác lớn hơn cạnh còn lại của tam giác ⦿ Công thức diện tích tam giác: \(S = \sqrt {p\left( {p - a} \right)\left( {p - b} \right)\left( {p - c} \right)} \) ▪ a: Độ dài cạnh thứ nhất ▪ b: Độ dài cạnh thư hai ▪ c: Độ dài cạnh thứ ba ▪ p: Nữa chu vi ▪ S: Diện tích tam giác Gửi email bài đăng nàyBlogThis!Chia sẻ lên XChia sẻ lên FacebookChia sẻ lên Pinterest Labels: ĐIỀU KIỆN - RẺ NHÁNH

Không có nhận xét nào:

Đăng nhận xét

Bài đăng Mới hơn Bài đăng Cũ hơn Trang chủ Đăng ký: Đăng Nhận xét (Atom)

☑ Trắc nghiệm

• ➙ Bài 1. Khái niệm lập trình và ngôn ngữ lập trình
• ➙ Bài 2. Các thành phần của ngôn ngữ lập trình
• ➙ Bài 3. Cấu trúc chương trình
• ➙ Bài 4. Một số kiểu dữ liệu chuẩn
• ➙ Bài 5. Khai báo biến
• ➙ Bài 6. Các phép toán, biểu thức, câu lệnh ghép
• ➙ Bài 7. Các thủ tục chuẩn vào ra đơn giản
• ➙ Bài 8. Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình
• ➙ Bài 9. Cấu trúc rẽ nhánh
• ➙ Bài 10. Cấu trúc lặp
• ➙ Bài 11. Kiểu mảng
• ➙ Bài 12. Kiểu xâu
• ➙ Bài 13. Kiểu bản ghi
• ➙ Bài 14. Kiểu dữ liệu tệp
• ➙ Bài 15. Thao tác với tệp
• ➙ Bài 16. Ví dụ làm việc với tệp
• ➙ Bài 17. Chương trình con và phân loại
• ➙ Bài 18. Ví dụ về cách viết và sử dụng chương trình con
• ➙ Bài 19. Thư viện chương trình con chuẩn

დ Hello các bạn!

➺ Xin chào các bạn ghé thăm blog. Mình không phải dân chuyên lập trình, mình chỉ là người thích lập trình. Blog lập ra với mục đích ghi lại những kiến thức mình học được. ➺ Một điều quan trọng khi học lập trình bạn cần phải nhớ là " Tư duy lập trình", còn ngôn ngữ lập trình chỉ là phương tiện đạt mà thôi!

✜ Chủ Đề

• CÂU LỆNH LẶP
• ĐIỀU KIỆN - RẺ NHÁNH
• PASCAL CƠ BẢN
• Trắc Nghiệm

✜ Menu

• ◉ Trang chủ
• ◉ Giới thiệu
• ◉ Điều khoản sử dụng
• ◉ Chia sẻ phần mềm
• ◉ Liên hệ

Copyright © Study Lập Trình