MaDe: 001 Họ tên: Lớp: KIỂM TRA 1 TIẾT Môn: Tin học 11 I. PHẦN TRẮC NGHIỆM Khoanh tròn vào các câu trả lời đúng: Câu 1. Cho các thủ tục sau: {1} WRITE(F,A,B,C); {2} REWRITE(F); {3} CLOSE(F); {4} ASSIGN(F, ’DATA.OUT’); Chọn thứ tự các thủ tục để GHI tệp: A. {4}{2}{3}{1} B. {2}{4}{3}{1} C. {1}{4}{2}{3} D. {4}{2}{1}{3} Câu 2. Hãy cho biết nội dung của tệp DATA.INP khi kết thúc đoạn chương trình như sau, với khai báo VAR F: Text; J : BYTE; ASSIGN(F,'DATA.INP'); REWRITE(F); FOR J:=1 TO 20 DO IF J MOD 3 = 0 THEN WRITE(F, J:3); CLOSE(F); A. 369121518 B. 1 2 3 4 5 6 C. 3 6 9 12 15 18 D. 2 4 6 8 10 12 14 16 18 20 Câu 3. Kiểu dữ liệu nào KHÔNG ĐƯỢC dùng làm kiểu của hàm : A. INTEGER; REAL B. STRING, CHAR C. BOOLEAN, WORD D. RECORD, BYTE Câu 4. Dữ liệu kiểu tệp văn bản (TEXT) được lưu trữ ở đâu? A. Được lưu trữ trên ROM B. Được lưu trữ trên RAM C. Được lưu trữ trên bộ nhớ ngoài D. Chỉ được lưu trữ trên đĩa cứng Câu 5. Khai báo biến ST: STRING; độ dài cực đại của ST là: A. 256 B. 255 C. 0 D. 100 Câu 6. Muốn kiểm tra đồng thời cả A, B, C cùng lớn hơn 0 hay không ta sử dụng câu lệnh nào? A. if A,B,C>0 then . B. if a>0 and B>0 and c>0 then . C. if (a>0) or (B>0) or (c>0) then . D. if (a>0) and (B>0) and (c>0) then . Câu 7. Cho S1:='Fill'; S2:='FILEname' phát biểu so sánh S1 và S2 là: A. S1 > S2 B. S1 < S2 C. S1 = S2 D. S1 >= S2 Câu 8. Thứ tự khai báo các đối tượng trong chương trình, dùng thứ tự theo từ khoá như sau: A. CONST, VAR, TYPE, PROCEDURE B. CONST, TYPE, VAR, PROCEDURE C. PROCEDURE, CONST, TYPE, VAR D. TYPE, CONST, VAR, PROCEDURE Câu 9. Trong thân Hàm bắt buộc phải có câu lệnh nào? A. <Tên Hàm> := <Biểu thức> B. <Tên Biến> := <Biểu thức> C. READLN(Tên Hàm) D. <Tên Hàm> = <Biểu thức> Câu 10. Để tính tổng các ước thực sự của N (ước thực sự là các ước không kể chính nó), câu lệnh nào đúng? A. t:=1; for i:= 1 to n-1 do if n mod i = 0 then t:= t+i; B. t:=0; for i:= 1 to n-1 do if n mod i = 0 then t:= t+i; C. t:=0; for i:= 1 to n-1 do if n div i = 0 then t:= t+i; D. t:=1; for i:= 1 to n-1 do if n div i = 0 then t:= t+i; II. PHẦN LẬP TRÌNH Viết CHƯƠNG TRÌNH CON tìm bội chung nhỏ nhất của 2 số nguyên dương a và b. Bài làm ………… ………………………………………………………………………………………… ……………………………………………………………………………………………… 1 . REWRITE(F); FOR J: =1 TO 20 DO IF J MOD 3 = 0 THEN WRITE(F, J:3); CLOSE(F); A. 36 9 12 1 518 B. 1 2 3 4 5 6 C. 3 6 9 12 15 18 D. 2 4 6 8 10 12 14 16 18 20 Câu 3. Kiểu. Câu 7. Cho S1:='Fill'; S2:='FILEname' phát biểu so sánh S1 và S2 là: A. S1 > S2 B. S1 < S2 C. S1 = S2 D. S1 >= S2 Câu 8. Thứ