Viết chương trình pascal tính diện tích hình tam giác
Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa. Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc: Show
Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:
23/10/2022 | 0 Trả lời Cho 2 số nguyên a,b. thương của 2 số nguyên là c: hãy viết chương trình tính thương của 2 số đóGiúp em v ạ em sắp thi 27/10/2022 | 1 Trả lời (0101...) là cơ sở để tạo ra ngôn ngữ gì?30/10/2022 | 1 Trả lời Máy tính chỉ có thể hiểu trực tiếp hiểu ngôn ngữ nào?30/10/2022 | 1 Trả lời Máy tính thực hiện một công việc thông qua yếu tố nào?30/10/2022 | 1 Trả lời Ngôn ngữ lập trình thông dụng ở cấp học THCS là gì?30/10/2022 | 1 Trả lời Chương trình máy tính là dãy ………. mà máy tính có thể hiểu và thực hiện được.30/10/2022 | 1 Trả lời Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng(khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả).Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng (khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả). 31/10/2022 | 0 Trả lời Để cho Rô-bốt thực hiện được công việc nhặt rác thì con người phải làm gì?31/10/2022 | 1 Trả lời Từ khoá của một ngôn ngữ lập trình là gì?31/10/2022 | 1 Trả lời Uses là từ khóa để khai báo yếu tố gì?31/10/2022 | 1 Trả lời Dùng từ khóa nào để cho biết điểm bắt đầu và kết thúc chương trình?01/11/2022 | 1 Trả lời Viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b.viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b 2- Viết chương trình con tính diện tích tam giác khi biết đáy và chiều cao nhập từ bàn phím.( sử dụng 1 thủ tục hoặc hàm để tính diện tích) 3- Viết chương trình con tính diện tích tam giác với độ dài các cạnh nhập từ bàn phím.(sử dụng 1 thủ tục hoặc hàm ) 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: |
