# data[].attributes.headline
Bài toán: Mỗi lớp có một khu trại, vị trí trại của mỗi giáo viên chủ nhiệm đều có tọa độ nguyên (x,y) được ghi trong tệp văn bản TRAI.TXT (tệp TRAI.TXT chứa liên tiếp các cặp số nguyên, các số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng). Đọc các cặp tọa độ từ tệp TRAI.TXT và tính khoảng cách ( với độ chính xác hai chữ số thập phân ) giữa trại của mỗi giáo viên chủ nhiệm và trại của thầy hiệu trưởng. 

# data[].attributes.subject
Bài toán: Mỗi lớp có một khu trại, vị trí trại của mỗi giáo viên chủ nhiệm đều có tọa độ nguyên (x,y) được ghi trong tệp văn bản TRAI.TXT (tệp TRAI.TXT chứa liên tiếp các cặp số nguyên, các số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng). Đọc các cặp tọa độ từ tệp TRAI.TXT và tính khoảng cách ( với độ chính xác hai chữ số thập phân ) giữa trại của mỗi giáo viên chủ nhiệm và trại của thầy hiệu trưởng. 

# data[].attributes.headline
Yêu cầu: viết các câu lệnh bằng pascal để diễn đạt các yêu cầu sau:

# data[].attributes.subject
Yêu cầu: viết các câu lệnh bằng pascal để diễn đạt các yêu cầu sau:

# data[].attributes.body
1. Gắn biến tệp  bất kỳ với tệp TRAI.TXT.
2. Mở tệp TRAI.TXT(Để đọc dữ liệu)
3. Duyệt tất cả các tọa được ghi trong tệp TRAI.TXT
4. Đọc tọa độ từ tệp TRAI.TX tương ứng với tọa độ nguyên x, y
5. Tính khoảng cách dựa vào tọa độ nguyên x, y.
6. Đóng tệp

# data[].attributes.headline
yêu cầu: Viết các câu lệnh bằng pascal để diễn đạt các yêu cầu sau:

# data[].attributes.subject
yêu cầu: Viết các câu lệnh bằng pascal để diễn đạt các yêu cầu sau:

# data[].attributes.body
1. Gắn biến tệp bất kỳ với tệp KQ.TXT
2. Mở tệp KQ.TXT(để đưa kết quả vào)
3. Đưa kết quả tính khoảng cách giữa hai trại với độ chính xác là hai chữ số thập phân vào tệp KQ.TXT

# data[].attributes.body
Khánh phạm 11d1
assign(q,'TRAI.TXT');
reset(q);
While not eof(q) do
Begin
read(q,x,y);

d:=sqrt(x*x+y*y);
writeln('Khoang cach:',d:10:2);
End;
Close(q)

# data[].attributes.body
Chu Nguyệt Hà
assign (tep1,TRAI.TXT) ;

# data[].attributes.body
Phạm Dũng 11D1
assign (a, 'TRAI.TXT');
reset (a);
while not eof(q) do
begin
read (a,x,y);
d:= sqrt(x*x+y*y);
end;
close(a)

# data[].attributes.body
Khánh Phạm 11d1 phiếu 2
Assign(k,'KQ.TXT');
Reset(k);

# data[].attributes.body
Chu Nguyệt Hà
assign (a, 'KQ.TXT') ;
rewrite (<KQ.TXT>) ;

# data[].attributes.body
Nguyễn Dũng 11d1
assign (a, ‘TRAI.TXT’);
reset (a);
while not eof(q) do
begin
read (a,x,y)
d:= sqry(x*x+y*y
end;
close(a)

# data[].attributes.body
Phạm Dũng 11D1
assign (b, 'KQ.TXT');
rewrite(b);
while not eof(a) do
writeln('Khoang cach: ' , d:10:2)
End;
Close(a)

# data[].attributes.body
Thanh bình 11d1
Assign (a, 'TRAI.TXT');
Reset (a);
While not eof(q) do
Begin
Read (a,x,y);
d:= sqt(x*x+y*y);
End;
Close(a)

# data[].attributes.body
assign(q,’TRAI. TXT’);reset(q);While not eof(q)

# data[].attributes.body
Nguyễn Dũng 11D1
assign (a, ‘KQ.TXT’);
rewrite (<KQ.TXT>)

# data[].attributes.body
assign (a, 'TRAI.TXT');
reset (a);
while not eof(q) do
begin
read (a,x,y);
d:= sqrt(x*x+y*y);
end;
close(a)

# data[].attributes.body
Thanh bình 11d1
Assign(f1,'KQ.TXT');
Rewrite(f1);
Write(f1,d:10:2, ' ');
Close(f1);