PHẦN TỰ LUẬN 4đ: HS viết nội dung chương trình sang mặt sau Câu 1: 2đ Viết chương trình nhập vào từ bàn phím một mảng 1 chiều A gồm 30 phần tử.. In ra màn hình các phần tử chia hết cho
Trang 1Đề số 2
Họ và tên: ………… Lớp: 11… Môn: Tin học Thời gian: 45’
A PHẦN TRẮC NGHIỆM:(6đ) (Hãy khoanh tròn vào câu trả lời đúng!)
Câu 1: Trong NNLT Pascal về mặt cú pháp khai báo mảng nào sau đây là sai?
A/ Type A=array[n+1 n-1] of Char; B/ Type A=array[‘A’ ’Z’] of Byte;
Var y:A; Var x:A;
C/ Var A: array[-n+1 n+1] of Integer; D/ Var A: array[1 100] of Char;
Câu 2: Với khai báo: Var MyArray:Array[1 100,1 100] of Integer; thì việc truy xuất đến phần tử của mảng là:
A/ MyArray(i,j); B/ MyArray[i],[j]; C/ MyArray[i,j]; D/ MyArray[i;j]; Câu 3: Trong NNLT Pascal, khai báo nào trong các khai báo sau là sai khi khai báo xâu ký tự?
A/ Var st:String[255]; B/ Var st:String; C/ Var st:String[100]; D/ Var st:String[]; Câu 4: st có kiểu DL Logic, sau khi thực hiện câu lệnh: st:=’HocTap’ < ’HocBai’; thì cho kết quả xâu st là:
Câu 5: Trong NNLT Pascal, để truy cập vào từng trường của bản ghi ta viết:
A/ <Tên kiểu bản ghi>.<Tên trường>; B/ <Tên kiểu bản ghi>.<Giá trị của trường>;
C/ <Tên biến bản ghi>.<Giá trị của trường>; D/ <Tên biến bản ghi>.<Tên trường>;
Câu 6: Tệp songuyen.dat nằm trong Ổ D, thủ tục gắn tên tệp nào sau đây là đúng?
A/ assign(‘songuyen.dat’,tep1); B/ assign(tep1,’D:\songuyen.dat’);
C/ assign(tep1,’songuyen.dat’); D/ assign(tep1,D:\songuyen.dat);
Câu 7: Sau khi thực hiện câu lệnh st:=copy(‘Hau hoc van’,5,7); kết quả xuất ra màn hình xâu st là:
Câu 8: Nếu xâu st:= ‘Tien hoc le ‘ ; sau khi thực hiện lệnh write(length(st)); sẽ cho kết quả là:
Câu 9: Trong NNLT Pascal, khai báo nào sau đây là đúng khi khai báo tệp văn bản?
A/ Var <Tên biến tệp>: Text; B/ Var <Tên tệp>: Text;
C/ Var <Tên tệp>: String; D/ Var <Tên biến tệp>: String;
Câu 10: Nếu st:=’Nghiem Tuc ’; Sau khi thực hiện hàm Delete(st,11,6); thì kết quả xâu st là:
Câu 11: Trong NNLT Pascal, để đọc dữ liệu từ tệp thì thứ tự thực hiện nào sau đây là đúng?
A/ Gắn tên tệp, mở tệp mới, ghi DL từ tệp, đóng tệp B/ Gắn tên tệp, mở tệp đã có, đọc DL từ tệp, đóng tệp C/ Gắn tên tệp, đọc DL từ tệp, mở tệp mới, đóng tệp D/ Gắn tên tệp, đọc DL từ tệp, mở tệp đã có, đóng tệp Câu 12: Cho chuỗi kí tự sau: a:= ‘hoc sinh’ Lệnh nào sau đây cho kết quả ‘hoc ’ :
A/ Delete(a,3,4); B/ Delete(a,5,4); C/ Copy(a,4,5); D/ Copy(a,4,3);
B PHẦN TỰ LUẬN (4đ): (HS viết nội dung chương trình sang mặt sau)
Câu 1: (2đ) Viết chương trình nhập vào từ bàn phím một mảng 1 chiều A gồm 30 phần tử In ra màn hình các
phần tử chia hết cho 4 và 5, tính và in ra tổng của các phần tử này
Câu 2: (2đ) Cho tệp kiemtra.txt nằm trong Ổ đĩa D, Viết chương trình thực hiện nhập từ bàn phím 2 giá trị a,b nguyên bất kỳ và ghi 2 giá trị vừa nhập vào tệp kiemtra.txt thông qua biến tệp f.