Các phần tử của mảng một chiều được sắp thứ tự theo giá trị tăng dần; D.. Các phần tử của mảng một chiều không sắp thứ tự.[r]
(1)Tiết 50:
KIỂM TRA HỌC KÌ II MA TRẬN ĐỀ
Đề Nhận biết Thông hiểu Vận dụng Vận dụng cao
1 Câu 2, 4, 5, 6, Câu 1, Câu 9a, 9b, 10a Câu 9c, 10b, 10c
2 Câu 1, 2, 5, 6, 7, Câu 3, Câu 9a, 10a Câu 9b, 9c, 10b, 10c
3 Câu 1, 3, 4, Câu 2, 6, 7, Câu 9a, 10a Câu 9b, 9c, 10b, 10c
Hä tªn: ………
Líp:……
Đề 1
§iĨm KiĨm tra häc kú ii
Môn: tin học 11 Năm học 2017- 2018 A. Lý thuyết (4 điểm)(Khoanh tròn đáp án đúng)
Câu 1:Trong ngơn ngữ lập trình pascal, mặt cú pháp câu lệnh sau đúng? a Type 1chieu = array [1 100] of char;
b Type mang = array [1-100] of char; c Type mang1c = array (1 100) of char; d Type mang1c = array [1 100] of char; Câu 2: Dữ liệu kiểu tệp
a Đợc lu trữ ROM b Đợc lu trữ RAM
c Ch c lu trữ đĩa cứng d Đợc lu trữ nhớ Câu 3: Trong Pascal, để khai báo hai biến tệp văn f1,f2 ta viết:
a Var f1 f2 : Text; b Var f1, f2 : Text;
c Var f1 ; f2 : Text; d Var f1 : f2 : Text; Câu 4: Để đọc liệu từ tệp văn ta sử dụng thủ tục ?
a Read(<tªn tƯp>, <danh sách biến>); b Read(<tên biến tệp>, <danh sách biến>);
c Write(<tên tệp>, <danh cách biến>); d Write(<tên biến tệp>, <danh sách biến>); Câu 5: Trong ngôn ngữ lập trình pascal, xâu kí tự kí tự gọi ?
a Xâu không b Xâu rỗng c Xâu trắng
d Không phải xâu kí tự Câu 6: Số lợng phần tử tệp
a Không đợc lớn 128 b Không đợc lớn 256 c Phải đợc khai báo trớc
d Không bị giới hạn mà phụ thuộc vào dung l-ợng ổ đĩa
Câu 7: Trong ngơn ngữ lập trình pascal, hai xâu kí tự đợc so sánh dựa trên?
a M· cđa tõng kÝ tù c¸c xâu lần lợt từ trái qua phải
b Độ dài tối đa hai xâu c Độ dài thực hai xâu
d Số lợng kí tự khác xâu
Câu 8: Trong ngôn ngữ lập trình pascal, phần tử đầu tiên xâu ký tự mang số là?
a
b Do ngời lập trình khai báo c
d Không có số
Bài tập (6 ®iĨm)
C©u 9 : Cho d·y A gåm N (N<=100) phần tử số nguyên Viết chơng trình thực công việc sau: a Nhập giá trị cho dÃy A
b Số lợng số lẻ
c Tính tổng phần tử dÃy có giá trị nhỏ giá trị lớn Câu 10 : Viết chơng trình nhập vào xâu S cho biết:
a Độ dài xâu
b Chuẩn hóa S theo quy tắc: Không có kí tự trống đầu xâu, kí tự trống cuối xâu, hai kí tự liền kề cã mét kÝ tù trèng
(2)Hä tên:
Lớp:
2
Điểm KiĨm tra häc kú ii
Mơn: tin học 11 Năm học 2017 - 2018 Lý thuyết (4 điểm)(Khoanh tròn đáp án đúng)
Câu 1: Trong ngôn ngữ lập trình Pascal, xâu kí tự có tối đa ? A kí tự;
B 256 kí tự;
C 16 kí tự; D 255 kí tự;
Câu 2: Trong ngơn ngữ lập trình Pascal, thủ tục chèn xâu S1 vào xâu S2 vị trí vt viết: A Insert(vt,S1,S2);
B Insert(S1,S2,vt);
C Insert(S1,vt,S2); D Insert(S2,S1,vt); Câu 3: Hãy chọn phương án hợp lý Trong ngơn ngữ lập trình Pascal:
A Các phần tử mảng chiều thứ tự theo số;
B Các phần tử mảng chiều thứ tự theo giá trị giảm dần; C Các phần tử mảng chiều thứ tự theo giá trị tăng dần; D Các phần tử mảng chiều không thứ tự
Câu 4: Trong chương trình chuẩn sau đây, chương trình chuẩn thủ tục chuẩn? A Sin(x);
B Length(S);
C Sqrt(x); D Delete(S,5,1); Câu 5: Để khai báo hàm Pascal khóa:
A Program B Procedure
C Function D Var Câu 6: Để đọc liệu từ tệp văn ta sử dụng thủ tục:
A Read(<tên tệp>,<danh sách biến>); B Read(<tên biến tệp>,<danh sách biến>); C Write(<tên tệp>,<danh sách biến>); D Write(<tên biến tệp>,<danh sách biến>);
Câu 7: Nếu hàm eof(<tên biến tệp>) cho giá trị true trỏ tệp nằm vị trí : A Đầu dịng
B Đầu tệp
C Cuối dòng D Cuối tệp Câu 8: Trong PASCAL để khai báo biến tệp văn ta phải sử dụng cú pháp:
A Var <tên tệp> : Text; B Var <tên biến tệp> : Text;
C Var <tên tệp> : String; D Var <tên biến tp> : String; Bài tập (6 điểm)
Câu 9: Cho dÃy A gồm N (N<=100) phần tử số nguyên Viết chơng trình thực công việc sau: a Nhập giá trị cho dÃy A
b DÃy có số không âm
c Tìm giá trị nhỏ số lợng phần tử đạt giá trị nhỏ dãy Câu 10: Viết chơng trình nhập vào xâu S thực hin:
a Độ dài xâu
b Tớnh số lợng kí tự số khác kí tự xâu c Xâu S có phải xâu đối xứng hay khơng?
Hä tªn: ………
Líp:…
§iĨm KiĨm tra häc kú ii
(3)Đề 3 Năm học 2017- 2018 Lý thuyết (4 điểm)(Khoanh tròn đáp án đúng)
Câu 1: Dữ liệu kiểu tệp
A. Sẽ bị hết tắt máy
B. Sẽ bị hết tắt điện đột ngột
C. Không bị tắt máy điện D. Cả A, B, C sai
Câu 2: Cho khai báo mảng sau : Var a: array [0 10] of integer;
Phần tử truy cập đến phần tử thứ 10 mảng? A. A[10]
B. A(10)
C. A[9] D. A(9) Câu 3: Phát biểu biến sai ?
A. Biến tồn cục sử dụng thủ tục; B. Biến cục phải có tên khác với tên biến tồn cục;
C. Biến cục có kiểu khác với kiểu biến tồn cục có tên; D. Một hàm có nhiều tham số biến;
Câu 4: Hãy chọn phương án ghép đúng? Độ dài tối đa xâu kí tự ngơn ngữ lập trình pascal? A 256
B 255
C 65535 D Tùy ý Câu 5: Cách thức truy cập tệp văn là
A. Truy cập B. Truy cập ngẫu nhiên
C. Truy cập trực tiếp
D. Vừa truy cập vừa truy cập trực tiếp Câu 6: Hãy chọn thứ tự hợp lí thực thao tác đọc liệu từ tệp :
A. Mở tệp => Gán tên tệp với biến tệp => Đọc liệu từ tệp => Đóng tệp B. Mở tệp => Đọc liệu từ tệp => Gán tên tệp với biến tệp => Đóng tệp C. Gán tên tệp với biến tệp => Mở tệp => Đọc liệu từ tệp => Đóng tệp D. Gán tên tệp với biến tệp => Đọc liệu từ tệp => Mở tệp => Đóng tệp Câu 7: Cho str xâu kí tự, đoạn chương trình sau thực cơng việc ?
A. In xâu hình;
B. In kí tự xâu hình;
C. In kí tự hình theo thứ tự ngược, trừ kí tự đầu tiên; D. In kí tự hình theo thứ tự ngược;
Câu 8: Cho khai báo sau:
Phát biểu ?
A. Câu lệnh sai thiếu độ dài tối đa xâu;
B. Xâu có độ dài lớn 0; C.D. Xâu có độ dài lớn 255; Cần phải khai báo kích thước xâu sau đó; Bµi tËp (6 điểm)
Câu 9: DÃy A gồm N phần tử (N<=100) số nguyên Viết chơng trình thực hiện: a Nhập giá trị cho dÃy A
b Số lợng số chẵn chia hết cho dÃy A c Sắp xếp dÃy thành dÃy không giảm
Câu 10: Viết chơng trình nhập vào xâu X thực hiện: a Độ dài xâu
b Hiển thị xâu X theo chiều ngợc lại c Số lợng chữ số khác có xâu X
Bài làm
ơn
for i := length(str) downto write(str[i]) ;
(4)
A Lý thuyết(4 điểm) Mỗi câu 0.5 điểm
Câu
Đáp ¸n D D C B B D A C
B.Bài tập (6 điểm) Bài 1: ( 3.5 điểm )
Program bai1; Uses crt;
0.25
(5)N,i,slnt,slu: byte; Begin
Clrscr;
0.25 Writeln (‘nhap so luong phan tu N cho day, N <100’);
Readln(N);
0.5 For i:=1 to N
Readln(a[i]);
0.5
slu:=2; slnt:=0; 0.25
for i:=1 to N begin
for j:=2 to a[i]-1
if a[i] mod j = then slu:= slu +1; if slu = then slnt := slnt +1;
end;
1
writeln(‘So luong so nguyen to cua day A la: ’, slnt : 4); readln
end
(6)Bai 2(2,5 ®iĨm)
Program bai2; Uses crt; Var i,s: integer;
0.5
Function gt(x: integer): integer; Begin
gt:=1.0;
For i:= to x gt:= gt * i End;
1
BEGIN Clrscr; S := 0;
0.25
For i:=1 to 10
S := S + gt(i);
0.5 Writeln(‘Tong cac giai thua la: ’, S:8);
readln END