program btap;
var d,x1,y1,x2,y2:real;
n,d1:real;
f1,f2:text;
begin
Assign(f1,'Input.txt');
reset(f1);
readln(f1,x1,y1);
readln(f1,x2,y2);
d1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
n:=0;
if (d<=d1) then n:=n+1;
if (d<=d2) then n:=n+1;
Assign(f2,'Output.txt');
rewrite(f2);
writeln(f2,d:0:1);
writeln(f2,d1:0:1);
writeln(f2,n:0:1);
close(f1);
close(f2);
end.
Câu 1: Trong tệp ‘output.txt’ các kết qủa đượcghi trên mấy dòng?
Câu 2: Lệnh Assgin(f2,’output.txt’); dùng để:
Câu 3: Trong chương trình trên lệnh Reset(f1) là lệnh?
Câu 4: Với d = 3; A(-2; 0); B(0; 3) kết quả trong tệp ‘output.txt’ là
Câu 5: Chương trình trên đọc bao nhiêu dòng trong tệp Input.txt
Câu 6: Thứ tự các giá trị được ghi trong tệp ‘output.txt’ lần lượt là
Câu 7: Với d = 0.5; A(1; 1); B(4; -1) kết quả trong tệp ‘output.txt’ là
Câu 8: Hãy cho biết độ dài d1, d được ghi vào tệp nào?
Câu 9: Hãy cho biết d nằm ở dòng thứ mấy trong tệp ‘input.txt’
Câu 10: Chương trình trên sử dụng kiểu dữ liệu có cấu trúc nào?
Câu 11: Với d= 2; A(1; 1); B(3; -1) kết quả trong tệp ‘output.txt’ là
Câu 12: Chương trình trên thực hiện công việc nào sau đây?
Câu 14: Sau khi thực hiện chương trình trên tệp thì giá trị n được ghi ở dòng thứ mấy trong tệp ‘output.txt’.
Câu 15: Với d = 4; A(1; 1); B(4; -1) kết quả trong tệp ‘output.txt’ là
Loga
Sinh Học lớp 12
