Trang Chính
Tìm kiếm
Latest images
Đăng ký
Đăng Nhập
program tinh_S_tamgiac;
uses crt;
var xa,ya,xb,yb,xc,yc:real;
p,s,ha,hb,hc:real;
a,b,c:real;
begin
clrscr;
write('toa do diem A:'); readln(xa,ya);
write('toa do diem B:'); readln(xb,yb);
write('toa do diem C:'); readln(xc,yc);
a:=sqrt(sqr(xb-xc)+sqr(yb-yc));
b:=sqrt(sqr(xa-xc)+sqr(ya-yc));
c:=sqrt(sqr(xb-xa)+sqr(yb-ya));
p:= (a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
ha:=2*s/a;
hb:=2*s/b;
hc:=2*s/c;
writeln('dien tich cua tam giac=',s:6:2);
writeln('ha=',ha:6:2,'; hb=',hb:6:2,'; hc=',hc:6:2);
write('an phim de ket thuc chuong trinh');
readln
end.
uses crt;
var xa,ya,xb,yb,xc,yc:real;
p,s,ha,hb,hc:real;
a,b,c:real;
begin
clrscr;
write('toa do diem A:'); readln(xa,ya);
write('toa do diem B:'); readln(xb,yb);
write('toa do diem C:'); readln(xc,yc);
a:=sqrt(sqr(xb-xc)+sqr(yb-yc));
b:=sqrt(sqr(xa-xc)+sqr(ya-yc));
c:=sqrt(sqr(xb-xa)+sqr(yb-ya));
p:= (a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
ha:=2*s/a;
hb:=2*s/b;
hc:=2*s/c;
writeln('dien tich cua tam giac=',s:6:2);
writeln('ha=',ha:6:2,'; hb=',hb:6:2,'; hc=',hc:6:2);
write('an phim
readln
end.
» Người ta bận yêu, còn em bận cô đơn…
» Đông đến làm người ta cô đơn hơn phải không anh?
» Em muốn được ôm anh từ phía sau
» Hãy cho nhau một cơ hội để giãi bày!
» Hãy cho nhau một cơ hội để giãi bày!
» Đôi lúc em chỉ muốn mình thuộc về ai đó thôi...
» Trái đất này, ba phần tư là nước mắt...
» Để anh kể em nghe về những người phụ nữ anh yêu...
» Thương vội người đến sau...