Viết phương trình để tính diễn tích của một tam giác có độ dài 1 cạnh là b và chiều cao tường ứng Là h(b và h được nhập vào từ bàn phím,b và h là số tự nhiên)
Viết phương trình để tính diễn tích của một tam giác có độ dài 1 cạnh là b và chiều cao tường ứng Là h(b và h được nhập vào từ bàn phím,b và h là số tự nhiên)
program dien_tich_tgiac;
uses crt;
var b,h:integer;
begin
clrscr;
write(‘Nhap do dai canh b: ‘); readln(b);
write(‘Nhap chieu cao h: ‘); readln(h);
write(‘Dien tich tam giac la: ‘,(b*h)/2:0:3);
readln;
end.
program phuongt;
uses crt;
var b, h: integer;
s: real;
begin
clrscr;
write(‘Nhap do dai canh b = ‘); readln(b);
write(‘Nhap chieu cao tuong ung h = ‘); readln(h);
s:=b*h/2;
write(‘Dien tich s = ‘, s);
readln
end.