ĐỀ KIỂM TRA TIN HỌC LỚP 10 BÀI SOẠN TIN HỌC LỚP 11 Tên bài soạn KIỂM TRA 45’ (Tiết 18) Ngày soạn 18/12/2006 I Mục đích –Yêu cầu Kiểm tra chất lượng học kỳ I HS hoàn thiện các kiến thức cơ bản về Ngôn[.]
BÀI SOẠN TIN HỌC LỚP 11 Tên soạn : KIỂM TRA 45’ (Tiết 18) Ngày soạn : 18/12/2006 I Mục đích –Yêu cầu : - Kiểm tra chất lượng học kỳ I - HS hoàn thiện kiến thức Ngơn ngữ lập trình, Cấu trúc chương trình TP, Tổ chức rẽ nhánh lặp TP, Kiểu liệu có cấu trúc (mảng) - Giáo viên đánh giá việc nắm kiến thức bản, rèn luyện kĩ thái độ học sinh môn học học kỳ I II Chuẩn bị : Giáo viên : Đề kiểm tra dành cho lớp 11 (3 đề khác nhau), đáp án biểu điểm Học sinh : Ôn tập, hệ thống lại toàn kiến thức học học kỳ I III Các bước lên lớp : ĐỀ KIỂM TRA HỌC KỲ I TIN HỌC 11 Thời gian làm : 45 phút Câu (6 điểm) Lựa chọn đáp án đưa đáp án tốt cho câu hỏi sau 1.1 Trong TP khai báo sau hợp lệ ? A CONST Nmax : 100; B CONST Nmax = 100; C VAR Nmax : 100; D VAR Nmax = 100; 1.2 Chương trình TP sau gồm có phần : PROGRAM Vidu; BEGIN Writeln(‘Xin chao! ’); END A B C D 1.3 Nếu biến nguyên A có giá trị nằm phạm vi từ -215 đến 215 -1 biến A có kiểu : A Longint B Byte C Integer D Word 1.4 Biến X có giá trị sau thực câu lệnh gán X := > 5; A True B False C D 1.5 Biểu thức (a MOD = 0) OR (b > 2) : A Biểu thức Toán học B Biểu thức số học C Biểu thức quan hệ D Biểu thức logic 1.6 Hãy xếp thao tác sau cho trình tự thực sử dụng máy tính giải tốn ngơn ngữ lập trình TP A Soạn thảo (gõ) chương trình B Thực chương trình C Khởi động TP D Dịch chương trình 1.7 Để nhập giá trị cho biến số nguyên N từ bàn phím ta sử dụng thủ tục ? A Write(N); B Writeln(N); C Readln(N); D Readln; 1.8 Nếu A biến logic câu lệnh sau hợp lệ ? A IF >= THEN A := 1; B IF >= THEN A := 0; C IF >= THEN A := ‘A’; D IF >= THEN A := False; 1.9 Câu lệnh WHILE – DO dùng để thực công việc : A Rẽ nhánh B Lặp với số lần biết trước C Tính giá trị biến D Lặp với số lần trước 1.10 Hãy câu lệnh không hợp lệ câu lệnh sau : A FOR i := TO 10 DO X := 1; B FOR i := 10 TO DO X := 1; C FOR i := 10 DOWNTO DO X := 1; D FOR i := 1.5 TO 10.5 DO X := 1; 1.11 Đoạn chương trình sau có lỗi ? VAR K, M, I, L : Word; C, c1 : Real; i, j, J1 : Integer; N = 100; A B C D 1.12 Biểu thức logic (n DIV 1000 > 0) AND (n DIV 10000 = 0) thực cơng việc ? A Kiểm tra n có chia hết cho 10000 hay khơng B Kiểm tra xem n có bốn chữ số có nghĩa hay khơng C Kiểm tra xem n có ba chữ số có nghĩa hay khơng D Kiểm tra n có nhỏ 10000 hay không Câu (4 điểm) Thực cơng việc sau 2.1 Viết chương trình “Tìm nghiệm thực phương trình ax + b = 0” 2.2 Viết chương trình “Nhập vào số ngun a Tính đưa tổng S = a(a+1) + (a+1)(a+2) + …+ (a+199)(a+200)” ĐÁP ÁN ĐỀ KIỂM TRA HỌC KỲ I SỐ Câu (6 điểm) Mỗi đáp án 0.5 điểm 1.1 B 1.2 B 1.3 C 1.4 B 1.5 D 1.6 C, A, D, B 1.7 C 1.8 A 1.9 D 1.10 D 1.11 A Tên kiểu mảng B Kiểu số C Kiểu phần tử D Tên kiểu mảng Câu (3 điểm) : Hãy lựa chọn yêu cầu sau : 2.1 PROGRAM Phuong_trinh ax + b = 0; VAR a, b : Real; BEGIN Write(‘Nhap he so a = ‘); Readln(a); Write(‘Nhap he so b = ‘); Readln(b); IF a = THEN IF b = THEN Writeln(‘Phuong trinh co tap nghiem la R.’) ELSE Writeln(‘Phuong trinh co tap nghiem la rong.’) ELSE Writeln(‘Phuong trinh co tap nghiem gom mot phan tu : ’, -b/a : 1: 3); Readln; END 2.2 PROGRAM Tinh_tong; VAR a, i : Integer; S : Real; BEGIN Write(‘Nhap so nguyen a = ‘); Readln(a); S := 0; FOR i := TO 199 DO S := S + a*(a + 1); Writeln(‘Tong S = ‘, S : 1: 0); Readln; END 2.3 PROGRAM Dem_so; VAR A : ARRAY[1 100] OF Real; i, dem : Integer; BEGIN Writeln(‘Nhap gia tri cho 100 so thuc : ‘); FOR i := TO 100 DO BEGIN Write(‘A[‘,i,’] = ‘);Readln(A[i]); END; dem := 0; FOR i := TO 100 DO IF (A[i] >= -1) AND (A[i] = THEN A := True OR False; B IF >= THEN A := True + False; C IF >= THEN A := True - False; D IF >= THEN A := True * False; 1.9 Câu lệnh FOR – DO dùng để thực công việc : A Rẽ nhánh B Lặp với số lần biết trước C Tính giá trị biến D Lặp với số lần trước 1.10 Hãy câu lệnh hợp lệ câu lệnh sau : A WHILE + DO X := -1; B WHILE - DO X := -1; C WHILE > DO X := -1; D WHILE MOD DO X := -1; 1.11 Trong cú pháp khai báo mảng chiều sau, điền tên thành phần thiếu cho phù hợp : TYPE < (A) > = (B) [Kiểu số ] OF < (C) >; VAR < (D) > : < (A) >; A B C D Câu (3 điểm) : Hãy lựa chọn yêu cầu sau : 2.1 Viết chương trình “Tìm nghiệm thực phương trình ax2 + bx + c = (a ≠ 0)” 2.2 Viết chương trình “Nhập vào số nguyên a Tính đưa tổng S= a a +1 a + a + 98 + + + + ” 1.2 2.3 3.4 99.100 2.3 Viết chương trình “Nhập vào 100 số thực A1, A2, … , A100 Tính đưa hình tổng số thực dãy số số thực không âm dãy” Câu (1 điểm) : Hãy cho biết vài suy nghĩ cá nhân em sau kỳ học môn Tin học lớp 11 ĐÁP ÁN ĐỀ KIỂM TRA HỌC KỲ I SỐ Câu (6 điểm) Mỗi đáp án 0.5 điểm 1.1 D 1.2 A 1.3 C 1.4 A 1.5 B 1.6 C, A, B, D 1.7 B 1.8 A 1.9 B 1.10 B 1.11 A Tên kiểu mảng B ARRAY Câu (3 điểm) : Hãy lựa chọn yêu cầu sau : 2.1 PROGRAM Phuong_trinh_bac_hai; VAR a, b, c, Delta : Real; BEGIN Write(‘Nhap he so a = ‘); Readln(a); Write(‘Nhap he so b = ‘); Readln(b); Write(‘Nhap he so c = ‘); Readln(c); Delta := b*b – 4*a*c; C Kiểu phần tử D Tên biến mảng IF Delta < THEN Writeln(‘Phuong trinh vo nghiem.’) IF Delta = THEN Writeln(‘Phuong trinh co nghiem kep x = ’, -b/2/a : 1: 3) ELSE BEGIN Writeln(‘Phuong trinh co hai nghiem phan biet : ‘); Writeln(‘x1 = ‘, (-b – sqrt(Delta))/2/a : : 3); Writeln(‘x2 = ‘, (-b + sqrt(Delta))/2/a : : 3); END; Readln; END 2.2 PROGRAM Tinh_tong; VAR a, i : Integer; S : Real; BEGIN Write(‘Nhap so nguyen a = ‘); Readln(a); S := 0; FOR i := TO 98 DO S := S + (a + i)/((i + 1)*(i + 2)); Writeln(‘Tong S = ‘, S : 1: 0); END 2.3 PROGRAM Tinh_tong_ va_Dem_so; VAR A : ARRAY[1 100] OF Real; S : Real; i, dem : Integer; BEGIN Writeln(‘Nhap gia tri cho 100 so thuc : ‘); FOR i := TO 100 DO BEGIN Write(‘A[‘,i,’] = ‘);Readln(A[i]); END; dem := 0; S := 0; FOR i := TO 100 DO S := S + A[i]; FOR i := TO 100 DO IF A[i] >= THEN dem := dem + 1; Writeln(‘Tong S = ‘, S : 1: 0); Writeln(‘So cac so khong am la : ‘, dem); END Câu (1 điểm) : Hãy cho biết vài suy nghĩ cá nhân em sau kỳ học môn Tin học lớp 11 ĐỀ KIỂM TRA HỌC KỲ I TIN HỌC 11 Thời gian làm : 45 phút Câu (6 điểm) : Lựa chọn đáp án đưa đáp án tốt cho câu hỏi sau : 1.1 Trong TP khai báo sau hợp lệ ? A CONST Nmax : 100; B CONST Nmax = 100; C VAR Nmax : 100; D VAR Nmax = 100; 1.2 Chương trình TP sau có lỗi Hãy cho biết lỗi : VAR x, y, z = Integer; BEGIN x := 200; y := 250 z = x*y; Writeln(z); Readln; END Trả lời : Lỗi : Lỗi : Lỗi : Lỗi : 1.3 Biến X có giá trị sau thực câu lệnh gán X := >= 5; A True B False C D 1.4 Hãy cho biết kết nhận sau thực chương trình sau : Var x, y : Integer; BEGIN x := 1; y := 2; x := x + y; y := x – y; x := x – y; Writeln(‘ x = ‘,x); Writeln(‘ y = ‘,y); Readln END A x = 1, y = B x = 2, y = C x = 3, y = D x = 1, y = 1.5 Hãy xếp thao tác sau cho trình tự thực sử dụng máy tính giải tốn ngơn ngữ lập trình TP A Soạn thảo (gõ) chương trình B Thực chương trình C Khởi động TP D Dịch chương trình 1.6 Nếu A biến logic câu lệnh sau hợp lệ ? A IF >= THEN A := True OR False; B IF >= THEN A := True + False; C IF >= THEN A := True - False; D IF >= THEN A := True * False; 1.7 Câu lệnh WHILE – DO dùng để thực công việc : A Rẽ nhánh B Lặp với số lần biết trước C Tính giá trị biến D Lặp với số lần trước 1.8 Hãy câu lệnh không hợp lệ câu lệnh sau : A FOR i := TO 10 DO X := 1; B FOR i := 10 TO DO X := 1; C FOR i := 10 DOWNTO DO X := 1; D FOR i := 1.5 TO 10.5 DO X := 1; 1.9 Trong TP, có loại phép toán : A B C D Câu (4 điểm) Thực yêu cầu sau 2.1 Viết chương trình “Tìm nghiệm thực phương trình ax2 + bx + c = (a ≠ 0)” 2.2 Viết chương trình “Nhập vào số nguyên a Tính đưa tổng S= a a +1 a + a + 98 + + + + ” 1.2 2.3 3.4 99.100 ĐỀ KIỂM TRA HỌC KỲ I SỐ Câu (6 điểm) Mỗi đáp án 0.5 điểm 1.1 B 1.2 Lỗi : Dấu “=” dòng Lỗi : Thiếu dấu “;” dòng Lỗi : Dấu “=” dòng Lỗi : Tràn phạm vi biến z 1.3 B 1.4 B 1.5 C, A, D, B 1.6 A 1.7 D 1.8 D 1.9 A TYPE B ARRAY C Kiểu phần tử D Tên biến mảng 1.10 C Câu (3 điểm) : Hãy lựa chọn yêu cầu sau : 2.1 PROGRAM Phuong_trinh ax + b > 0; VAR a, b : Real; BEGIN Write(‘Nhap he so a = ‘); Readln(a); Write(‘Nhap he so b = ‘); Readln(b); IF a = THEN IF b = THEN Writeln(‘Phuong trinh vo nghiem.’) ELSE IF a > THEN Writeln(‘Phuong trinh nghiem đung voi moi x > ‘, -b/a : : 3’) ELSE Writeln(‘Phuong trinh nghiem đung voi moi x < ‘, -b/a : : 3’) Readln; END 2.2 PROGRAM Tinh_tong_ va_Dem_so; VAR A : ARRAY[1 100] OF Real; S : Real; i, dem : Integer; BEGIN Writeln(‘Nhap gia tri cho 100 so thuc : ‘); FOR i := TO 100 DO BEGIN Write(‘A[‘,i,’] = ‘);Readln(A[i]); END; dem := 0; S := 0; FOR i := TO 100 DO IF 100 MOD A[i] THEN S := S + A[i]; FOR i := TO 100 DO IF A[i] MOD = THEN dem := dem + 1; Writeln(‘Tong S = ‘, S : 1: 0); IF dem MOD = THEN Writeln(‘So cac so chia het cho co chia het cho ‘) ELSE Writeln(‘So cac so chia het cho khong chia het cho ‘); Readln; END ... Readln; END Câu (1 điểm) : Hãy cho biết vài suy nghĩ cá nhân em sau kỳ học môn Tin học lớp 11 ĐỀ KIỂM TRA HỌC KỲ I TIN HỌC 11 Thời gian làm : 45 phút Câu (6 điểm) : Lựa chọn đáp án đưa đáp án... ‘, dem); END Câu (1 điểm) : Hãy cho biết vài suy nghĩ cá nhân em sau kỳ học môn Tin học lớp 11 ĐỀ KIỂM TRA HỌC KỲ I TIN HỌC 11 Thời gian làm : 45 phút Câu (6 điểm) : Lựa chọn đáp án đưa đáp án... = 100 ; A B C D 1.12 Biểu thức logic (n DIV 100 0 > 0) AND (n DIV 100 00 = 0) thực công việc ? A Kiểm tra n có chia hết cho 100 00 hay khơng B Kiểm tra xem n có bốn chữ số có nghĩa hay khơng C Kiểm