1. Bài toán
2. Giải thuật:
Bước 1. Nhập thông tin:
Bước 2. Xử lý:
- 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 3. In ra màn hình diện tích tam giác.
- 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
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ả. |
Sheet steel is 1/4 inch or much less in thickness, whereas plate is over 1/4 inch in thickness. Plate is usually used for bigger structural elements like boilers, turbines, bridges and ships. Sheet steel is used within the manufacture of vehicles, trains, aircraft, farm tools, workplace tools, furnishings, home home equipment, computers, machine parts and beverage cans to call a couple of of}. With a command over normal sheet steel sizes, you’ll save time designing Manual Can Openers projects and making them a actuality. And you’ll have the confidence that the ultimate product will work as it’s imagined to. While many of the world measures sheet steel thickness in millimeters, within the United States sheet steel thickness is measured in gauges.
Trả lờiXóa