Cho tệp văn bản tamgiac.DAT mỗi dòng của tệp chứa 3 cặp số thực , xác định tọa độ các đỉnh tương ứng của tam giác ABC . Các số trên 1 dòng cách nhau bởi 1 dấu cách . Hãy lần lượt đọc các dòng của tệp , kiểm tra xem tam giác ABC có phải là tam giác cân hay không và đưa ra màn hình số lượng tam giác cân .
uses crt;
const fi='tamgiac.dat'
var f1:text;
a,b,c:array[1..100]of real;
n,i,j,k,dem:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n],c[n]);
end;
dem:=0;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if (i=j) and (j=k) then
begin
if (a[i]+b[j]>c[k]) and (a[i]+c[k]>b[j]) and (c[k]+b[j]>a[i]) then
begin
if (a[i]=b[j]) and (a[i]<>c[k]) and (b[j]<>c[k]) then inc(dem);
if (a[i]=c[k]) and (a[i]<>b[j]) and (c[k]<>b[j]) then inc(dem);
if (b[j]=c[k]) and (b[j]<>a[i]) and (c[k]<>a[i]) then inc(dem);
end;
end;
writeln(dem);
readln;
end.
