Tải bản đầy đủ (.docx) (1 trang)

pascal tính chu vi và diện tích tam giác

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (28.37 KB, 1 trang )

Program Example3;
uses Crt;
var
a,b,c,P,S :real;
begin
write('Nhap vao 3 canh : '); readln(a,b,c);
If (abegin
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('3 canh ban vua nhap la 3 canh cua 1 tam giac.');
writeln('chu vi cua tam giac la : ',P*2:4:2,' cm');
writeln('dien tich cua tam giac la : ',S:4:2,' cm');
end
else
writeln('3 canh vua nhap khong la 3 canh cua tam giac');
readln
end.



×