Question

[Ngô Chí Thành]

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 .

Answer 1

[Nguyễn Lê Phước Thịnh]

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.