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