Question

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"

Answer 1

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.