Giải bài tập Tin học 11: Bài tập và thực hành 7

Type Diem=record
		X,y:real
	       End;
        Tamgiac=record 
		A,B,C:Diem;
		End;

Procedure Daicanh(var R:Tamgiac; var a,b,c:real);

function ChuVi(var R:Tamgiac):real;

function Dientich(var R:Tamgiac):real; 

procedure Tinhchat(var R:Tamgiac;var Deu,Can,Vuong:boolean);

procedure Hienthi (var R:tamgiac);

function Kh_cach(P,Q:Diem):real;

uses crt;
const eps=1.0E-6;
type
Diem=record
	x,y:real;
     end;
Tamgiac=record
	A,B,C:Diem;
	end;
var T:Tamgiac;
    Deu,Can,Vuong:boolean;
function Kh_cach(P,Q:Diem):real;
begin
	Kh_cach:=sqrt((P.X-Q.x)*(P.x-Q.x)+(P.y-Q.y)*(P.y-Q.y));
end;
procedure Daicanh(var R:Tamgiac;var a,b,c:real);
begin
	a:=Kh_cach(R.B,R.C);
	b:=Kh_cach(R.A,R.C);
	c:=Kh_cach(R.A,R.B);
end;
function ChuVi(var R:Tamgiac):real;
	var a,b,c:real;
begin
	Daicanh(R,a,b,c);
	Chuvi:=a+b+c;
end;
function Dientich(var R:Tamgiac):real;
	var a,b,c,p:real;
begin
	Daicanh(R,a,b,c);
	p:=(a+b+c)/2;
	Dientich:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
procedure Hienthi (var R:tamgiac);
begin
	writeln('Toa do 3 dinh cua tam giac la :');
	writeln('-Dinh A(',R.A.x:0:3,',',R.A.y:0:3,')');
	writeln('-Dinh B(',R.B.x:0:3,',',R.B.y:0:3,')');
	writeln('-Dinh C(',R.C.x:0:3,',',R.C.y:0:3,')');
end;
procedure Tinhchat(var R:Tamgiac;var Deu,Can,Vuong:boolean);
	var a,b,c:real;
begin
	Deu:=false;Can:=false;;Vuong:=false;
	Daicanh(R,a,b,c);
	if (abs(a-b)<eps) and (abs(a-c)<eps) then
	Deu:=true
	else 
	if (abs(a-b)<eps) or (abs(a-c)<eps) or (abs(b-c)<eps)
	then Can:=true;
	if (abs(a*a+b*b-c*c)<eps) or (abs(a*a+c*c-b*b)<eps)
	then Vuong:=true;
end;             
begin
	clrscr;
	writeln('Nhap tam giac :');
	write('Toa do dinh A:'); readln(T.A.x,T.A.y);
	write('Toa do dinh B:'); readln(T.B.x,T.B.y);
	write('Toa do dinh C:'); readln(T.C.x,T.C.y);
	writeln('======================================');
	Hienthi(T);
	writeln('Dien tich: ',Dientich(t):9:3);
	writeln('Chu vi:',Chuvi(T):9:3);
	Tinhchat(T,Deu,Can,Vuong);
	writeln('Tam giac co tinh chat :');
	if Deu then writeln('La tam giac deu ')
		else if Can then writeln('La tam giac can ');
	if Vuong then writeln('La tam giac vuong ');
	readln;
end.

uses crt;
const eps=1.0E-6;
type
Diem=record
	x,y:real;
     end;
Tamgiac=record
	A,B,C:Diem;
	end;
var T:array[1..1000] of Tamgiac;
    Deu,Can,Vuong:boolean;
    N,i:integer;
    sdeu,scan,svuong:integer;
    tin,tout:text;
function Kh_cach(P,Q:Diem):real;
begin
	Kh_cach:=sqrt((P.X-Q.x)*(P.x-Q.x)+(P.y-Q.y)*(P.y-Q.y));
end;
procedure Daicanh(var R:Tamgiac;var a,b,c:real);
begin
	a:=Kh_cach(R.B,R.C);
	b:=Kh_cach(R.A,R.C);
	c:=Kh_cach(R.A,R.B);
end;
procedure Tinhchat(var R:Tamgiac;var Deu,Can,Vuong:boolean);
	var a,b,c:real;
begin
	Deu:=false;Can:=false;;Vuong:=false;
	Daicanh(R,a,b,c);
	if (abs(a-b)<eps) and (abs(a-c)<eps) then
	Deu:=true
	else 
	if (abs(a-b)<eps) or (abs(a-c)<eps) or (abs(b-c)<eps)
	then Can:=true;
	if (abs(a*a+b*b-c*c)<eps) or (abs(a*a+c*c-b*b)<eps)
	then Vuong:=true;
end;
begin
	assign(tin,'TAMGIAC.DAT');
	reset(tin);
	assign(tout,'TAMGIAC.OUT');
	rewrite(tout);
	sdeu:=0;
	scan:=0;
	svuong:=0;
	readln(tIN,N);
	for i:=1 to N do
		begin
			Deu:=false;
			Can:=false;
			Vuong:=false;
			readln(tin,T[i].A.x,T[i].A.y,T[i].B.x,T[i].B.y,T[i].C.x,T[i].C.y);
			Tinhchat(T[i],Deu,Can,Vuong);
			if Deu then
			sdeu:=sdeu+1
			else if Can
			then scan:=scan+1;
			if Vuong then
			svuong:=svuong+1;
		end;
	writeln(tout,'So luong cac tam giac deu la ',sdeu);
	writeln(tout,'So luong cac tam giac can ma khong deu la ',scan);
	write(tout,'So luong cac tam giac vuong la ',svuong);
	close(tin);
	close(tout);
end.