Bài kiểm tra
Đề kiểm tra HK2 môn Tin học lớp 11 năm 2017-2018 trường THPT Ngô Quyền
Câu 2: Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm:
Câu 4: Trong NNLT Pascal, khai báo nào sau đây là đúng khi khai báo tệp văn bản?
Câu 5: Giả sử trên thư mục gốc của đĩa C có tệp f đã có nội dung sẵn. Khi thực hiện thủ tục Rewrite(f);
Câu 7: Cho đoạn chương trình sau:
Var g:text;
I:integer;
Begin
Assign(g, ‘C:\DLA.txt’);
Rewrite(g);
For i:=1 to 10 do
If i mod 2 <> 0 then write(g, i);
Close(g);
Readln
End.
Câu 8: Tệp f có dữ liệu [5 9 15] để đọc 3 giá trị trên từ tệp f và ghi các giá trị này vào 3 biến x, y, z ta sử dụng câu lệnh:
-
A.
Read(f, x, y, z);
-
B.
Read(f, ‘x’, ‘y’, ‘z’);
-
C.
Read(x, y, z);
-
D.
Read(‘x’, ‘y’, ‘z’);
Câu 9: Giả sử a = 5; b = 9; c = 15; để ghi các giá trị trên vào tệp f có dạng là [5 9 15] ta sử dụng thủ tục ghi:
-
A.
Write(f, a,b,c);
-
B.
Write(a, ‘ ’, b, ‘ ’, c);
-
C.
Write(f, a, ‘ ’, bc);
-
D.
Write(f, a ‘’, b‘’, c);
Câu 11: Cho chương trình sau
Program Baitap;
Var x, y, z , t: word;
Function BCNN(a, b:word):word;
Var du, c, d:word;
Begin
c:=a; d:=b;
While b<>0 do
Begin
du:=a mod b;
a:=b;
b:=du;
End;
BCNN:=(c*d) div a;
End;
Begin
Write(‘nhap 4 so x, y, z, t: ‘); readln(x, y, z, t);
Write(‘BCNN cua 4 so la: ’, BCNN(BCNN(x, y),BCNN(z, t)));
Readln;
End.
Câu hỏi: Quan sát và:
a) Nêu các tham số thực sự, tham số hình thức?
b) Nêu tên các biến cục bộ, biến toàn cục?
Câu 12: Cho mảng A gồm N phần tử thuộc kiểu nguyên (N≤50)? Viết chương trình con thực hiện các yêu cầu sau:
- Viết thủ tục nhập giá trị cho mảng A từ bàn phím.
- Viết thủ tục in ra màn hình các phần tử âm trong mảng A.
