Lập trình đơn giản

Nguyễn Đăng Kim

Viết chương trình tính diện tích của 1 tam giác biết cạnh đáy (a) và chiều cao (h) là các số NGUYÊN nhập từ bàn phím

Thu Thao
10 tháng 11 2020 lúc 16:57

Program hoc24;

var a,h : integer;

S:real;

Begin

writeln('nhap a='); readln(a);

writeln('nhap h='); readln(h);

S:=a*h/2;

Writeln('dientichtamgiac=',S);

Readln

End.

Bình luận (0)
 Khách vãng lai đã xóa
Viên Tiểu Mộng
12 tháng 11 2020 lúc 21:44

*Cái này mình chỉ giải theo cách của mình thôi nhé! Nếu có sai sót gì thì cho mình xin lỗi*

program tam_giac;

uses crt;

var a,b,c,p,S:real;

begin

clrscr;

write('nhap canh a:'); readln(a);

write('nhap canh b:'); readln(b);

write('nhap canh c:'); readln(c);

p:=(a+b+c)/2;

S:=(p*(p-a)*(p-b)*(p-c));

writeln('dien tich hinh tam giac la:',S:10:2);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyễn Thị Thu Hiền
Xem chi tiết
32_Nguyễn Thị Khánh Quyê...
Xem chi tiết
Nguyễn Quỳnh Anh
Xem chi tiết
Hoàng Hải Yến
Xem chi tiết
Tuấn Đạt Nguyễn
Xem chi tiết
Kỳ Duyên Võ
Xem chi tiết
haizzz!!
Xem chi tiết
Lovers
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Cao Cự Quân
Xem chi tiết