- Code:
var xa,xb,xc,ya,yb,yc,a,b,c,s:real;
DE,CA,VU:BOOLEAN;
FUNCTION kcach(x1,x2,y1,y2:real):real;
begin
kcach:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
FUNCTION dt(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
FUNCTION kiemtra(a,b,c:real): boolean;
var ketqua: boolean;
begin
ketqua:=False;
if (a+b>c) and (a+c>b) and (b+c>a) then ketqua:=True;
kiemtra:=ketqua;
end;
PROCEDURE Tinh_chat(a,b,c : real; Var deu,can,vuong:boolean);
Begin
Deu:=False; Can:=false; Vuong:= False;
IF (a=b) or (b=c) or (a=c) then Can:= True;
if (a=b) and (b=c) then Deu:=True;
IF (a*a=b*b+c*c) OR (b*b=a*a+c*c) OR (c*c=a*a+b*b) Then Vuong:=True;
end;
BEGIn
write('nhap toa do dinh A: ' );readln(xa,ya);
write('nhap toa do dinh B: ');readln(xB,yb);
write('nhap toa do dinh C: ');readln(xc,yc);
a:=Kcach(xb,xc,yb,yc);
b:=kcach(xc,xa,yc,ya);
c:=kcach(xa,xb,ya,yb);
if kiemtra(a,b,c) then
begin
s:=dt(a,b,c);
writeln('do dai canh a= ',a:8:2);
writeln('do dai canh b= ',b:8:2);
writeln('do dai canh c= ',c:8:2);
writeln('Chu vi = ',(a+b+c):9:2);
writeln('dien tich = ',s:9:2);
tinh_chat(a,b,c,de,ca,vu);
if de then writeln('DAY LA TAM GIAC DEU ')
ELSE
if ca then writeln('DAY LA TAM GIAC CAN ')
ELSE
IF VU then writeln('DAY LA TAM GIAC VUONG ');
if not(de) and not(ca) and not(vu) then writeln('DAY LA TAM GIAC THUONG ');
end
else writeln('khong ton tai tam giac');
readln;
end.
Bài tập về tam giác:dien tich tam giac ,tam giac can,tam giac deu
Giới tính :
Đến từ : TPHCM
Ngày Tham gia : 03/04/2011
Tổng số bài gửi : 2292
» Tạo đối tượng Tam Giác, tính chu vi, diện tích!
» Tính chu vi hình tam giác trên hệ trục tọa độ với C#
» Hướng dẫn tich hợp diễn đàn vbb vào nukeviet 3
» Cần bán gấp chung cư xa la hà đông ct5, bán giá 17.5tr/m2, diện tích 78,15m2,tầng 716
» Cần bán chung cư Văn Phú Victoria giá siêu rẻ ,16tr/m2,dien tich 95,31m
» Tính chu vi hình tam giác trên hệ trục tọa độ với C#
» Hướng dẫn tich hợp diễn đàn vbb vào nukeviet 3
» Cần bán gấp chung cư xa la hà đông ct5, bán giá 17.5tr/m2, diện tích 78,15m2,tầng 716
» Cần bán chung cư Văn Phú Victoria giá siêu rẻ ,16tr/m2,dien tich 95,31m
|
|