viết chương trình in ra màn hình diện tích, chu vi tam giác ( Với chiều dài, các cạnh được nhập từ bàn phím )
2 câu trả lời
Program baitap;
Uses crt;
Var a,b,c,p:real;
Begin
Clrscr;
Write('Nhap chieu dai ba canh tam giac:');
Readln(a,b,c);
p:=1/2*(a+b+c);
Writeln('Dien tich tam giac:',sqrt(p*(p-a)*(p-b)*(p-c):5:2);
Writeln('Chu vi tam giac:',a+b+c);
Readln
End.
program bai_giai;
uses crt;
var a,b,c,h:real;
begin
clrscr;
write('nhap chieu dai ba canh va chieu cao cua hinh tam giac:');readln(a,b,c,h);
writeln('chu vi tam giac:',a+b+c:4:2);
write('dien tich tam giac:',(a*h)/2:4:2);
readln;
end.
Câu hỏi trong lớp
Xem thêm