giúp em với ạ
1.viết chương trình nhập vào 3 cạnh a, b, c của 1 tam giác . tính chu vi và diện tích của tam giác.
2.viết chương trình tính chu vi (cv) vÀ diện tích (s) của hình chữ nhật biết chiều dài a = 12, chiều rộng b= 8
3. hãy trình bài cách khai báo biến? hãy khai báo biến cho bài toán" tính diện tích hình chữ nhật với số đo các cạnh cho trước"
Câu 1:
uses crt;
var xa,ya,xb,yb,xc,yc,p,s,ab,bc,ac:real;
begin
clrscr;
readln(xa,ya,xb,yb,xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
p:=(ab+bc+ac)/2;
s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));
writeln('Chu vi la: ',p*2:4:2);
writeln('Dien tich la: ',s:4:2);
readln;
end.
