PHIẾU HỌC TẬP by Phượng Phạm

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.

ptphuong_hnue — 2020-04-20 09:08:31 UTC

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:

ptphuong_hnue — 2020-04-20 09:12:21 UTC

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

2020-04-20 10:49:08 UTC

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:

ptphuong_hnue — 2020-04-20 16:30:13 UTC

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

2020-04-22 01:23:48 UTC

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)

2020-04-22 01:31:44 UTC

Chu Nguyệt Hà
assign (tep1,TRAI.TXT) ;

2020-04-22 01:34:10 UTC

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)

2020-04-22 01:35:52 UTC

Khánh Phạm 11d1 phiếu 2
Assign(k,'KQ.TXT');
Reset(k);

2020-04-22 01:36:50 UTC

Chu Nguyệt Hà
assign (a, 'KQ.TXT') ;
rewrite () ;

2020-04-22 01:40:02 UTC

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)

Lê Trung Nghĩa

2020-04-22 01:40:17 UTC

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)

qzhocean12803 — 2020-04-22 01:40:21 UTC

assign(q,’TRAI. TXT’);reset(q);While not eof(q)

2020-04-22 01:40:28 UTC

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)

2020-04-22 01:40:39 UTC

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)

2020-04-22 01:42:07 UTC

Nguyễn Dũng 11D1
assign (a, ‘KQ.TXT’);
rewrite ()

2020-04-22 01:43:49 UTC

Thanh bình 11d1
Assign(f1,'KQ.TXT');
Rewrite(f1);
Write(f1,d:10:2, ' ');
Close(f1);

mzbxmvdsb

2021-02-02 13:52:43 UTC

xfd

2021-02-02 13:52:46 UTC