Tin học 11 viết chương trình tính diện tích hình tam giác
1. Bài toán Yêu cầu: Viết chương trình tính diện tích tam giác
2. Giải thuật:
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 codeDong codeÝ nghĩaProgram Tam_Giac;Đặt tên chương trình là Tam_GiacVar 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 GIACWrite('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 aWrite('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 bWrite('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 cP := 0.5 * (a + b + c);Gán giá trị biểu thức \(\frac{{a + b + c}}{2}\) vào biến pS := 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 sif ((a + b > c) and (b + c > a) and (c + a > b)) thenbegin 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'); endNế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 vuongelse 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!ReadlnDừng màn hình cho các bạn xem kết quả. 5. Kết Quả PascalKết luận: |