Bộ đề kiểm tra môn Tin học 8 - Trần Văn Tới (Có đáp án)

Nội dung text: Bộ đề kiểm tra môn Tin học 8 - Trần Văn Tới (Có đáp án)

1. B. Var X: Real; C. Var X: String; D. Var X: char; II/ Tự luận: Câu 11 (3 điểm) Viết các biểu thức toán học sau bằng các ký hiệu trong ngôn ngữ Pascal. x y 2a2 2c2 a a) 5x3 + 2x2 – 8x + 15 b) c) x y 4 Câu 12 (2 điểm): Hằng giống và khác biến ở điểm nào? b) Viết chương trình: Nhập vào giá trị chiều dài và chiều rộng của một hình chữ nhật. In ra màn hình chu vi và diện tích của hình chữ nhật đó Câu 13: (2 điểm) Viết chương trình nhập vào 2 số nguyên a và b từ bàn phím. Sau đó in ra tích của a và b (Dành cho lớp A) Hết * Đáp án I/ Trắc nghiệm (3điểm – Mỗi ý đúng 0,3điểm) Câu 1 2 3 4 5 6 7 8 9 10 Đáp án D A A A C C B A B B Câu 11: (3 điểm – Mỗi ý đúng 1 điểm) a) 5*x*x*x + 2*x*x-8*x+ 15 b) (x+y)/(x-y) c) (2*a*a+2*c*c – a)/4 Câu 12: (2 điểm) * Hằng và biến giống nhau: Là đại lượng được đặt tên dùng để lưu trữ dữ liệu. (1 điểm) Khác nhau: Giá trị của biến có thể thay đổi, còn giá trị của hằng được giữ nguyên trong suốt quá trình thực hiện chương trình. (1 điểm) Câu 13: (2 điểm) a) Program Tich; uses crt; var a, b, Tich: integer; Begin Write (‘ nhap a=’); readln(a); Write (‘ nhap b=’); readln(b); Tich: = a*b; Writeln (‘ tich cua a và b la:’, Tich: 8:2); Readln; End.
2. c: = a+ b; Writeln (‘ Tong cua hai so la: ‘,c); Readln; End. b) 1 điểm Bài 3: a) 3 điểm Program Xeploai; Var ĐTB: Real; Begin Write (‘ Nhap vao diem trung binh:’); Readln (ĐTB); If ĐTB >= 8 then Writeln (‘Xep loai Gioi’) else If ĐTB >= 6.5 then Writeln (‘Xep loai Kha’) else If ĐTB >= 5 then Writeln (‘Xep loai TB’) else Writeln (‘ Xep loai Yeu’); Readln End. c) 1 điểm Kiểm tra học kỳ I Nội dung đề kiểm tra I/ Trắc nghiệm ( 3 điểm): Hãy chọn phương án đúng. Câu 1: Xác định bài toán là gì? A. Chỉ rõ các điều kiện cho trước và kết quả cần thu được. B. Chỉ rõ các điều kiện cho trước và phương pháp giải. C. Chỉ rõ phương pháp giải và kết quả cần thu được. D. Chỉ rõ các bước để giải bài toán. Câu 2: Giải thuật đổi giá trị hai biến x và y cho nhau, ta có thể thực hiện như sau: A. x  z; x  y; y  x B. z x; z y; y x C. z  x; x  y; y  z; D. z x; x y; z x Câu 3: Phần thân chương trình của Pascal được bắt đầu và kết thúc bởi cặp từ khoá: A. Begin và end B. Begin: và end C. Begin và end; D. Begin và end. Câu 4: Kiểu dữ liệu thường dùng của Turbo Pascal là: A. Xâu ký tự B. Số nguyên C. Số thực D. Cả A, B và C đều đúng. Câu 5: Kết quả của phép chia 7 mod 5 thuộc kiểu gì? A. Kiểu số nguyên B. Kiểu số thực C. Kiểu xâu ký tự D. Kiểu thập phân. Câu 6: Nội dung các văn bản muốn ghi ra màn hình bằng lệnh Write phải được đặt trong cặp dấu ngoặc:
3. Readln (a); Readln (b); If (a>b) then writeln (a); If (a<b) then writeln (b) Else writeln (‘hai so bang nhau’); Readln End. Tiết 53: : kiểm tra 1 tiết Đề bài I . trắc nghiệm: Khoanh tròn vào đáp án đúng . Câu 1 : Phần mềm Geogebra dùng để: a. Luyễn gõ phím nhanh b. Học địa lý c. Học vẽ hình d. Học tính toán Câu 2 : Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào ? a. Ctrl + F9 b. Alt + F9 c. F9 d. Shitf + F9 Câu 3 : Trong Pascal, lệnh For to do là lệnh a. Lặp với số lần biết trước; b. Lặp với số lần chưa biết trước; c. Lệnh điều kiện; Câu 4 : Trong các câu lệnh sau câu lệnh nào đúng ? a. For i:= 1 to 10 do ; writeln(‘lenh dung’); b. For i:= 1.2 to 10.2 do writeln(‘lenh dung’); c. For i:= 10 to 1 do writeln(‘lenh dung’); d. For i:= 1 to 10 do writeln(‘lenh dung’); Câu 5 : s := 0; n := 0; While s <= 10 do begin n = n + 1; s := s + n; end; ý nghĩa của đoạn chương trình trên là : a. Tính tổng của 10 số tự nhiên b. Tính tổng của n số tự nhiên đầu đầu tiên đến khi tổng lớn hơn 10 thì dừng lại c. Tính tổng của 10 số tự nhiên đầu tiên d. Tính tổng của n số tự nhiên đến khi tổng lớn hơn 10 thì dừng lại Câu 6 : Câu lệnh nào sau đây là đúng ? a) x := 5; while x < 15 do x := x + 2; b) x := 5 while x < 15 do x := x + 2; c) x := 5; while x := 15 do x := x + 2; d) x := 5; while x < 5 ; do x := x + 2; II Tự luận
4. Đề bài Câu1: Hãy khởi động chương trình Turbo Pascal và thực hiện các yêu cầu sau: a) Viết – chạy và sửa lỗi (nếu có) chương trình thực hiện ghi ra trên màn hình dòng chữ: “ Chương trình tin học lớp 8 lập trình đơn giản ” b) Lưu vào máy với tên: Inchu. Pas Câu 2: Thực hiện yêu cầu sau: a)Viết – chạy và sửa lỗi (nếu có) chương trình ghi ra màn hình kết quả tổng của hai số tự nhiện a và b được nhập vào từ bàn phím. b)Lưu vào máy tính với tên: Tong.Pas. Câu 3: a)Viết – chạy và sửa lỗi (nếu có) chương trình: Nhập vào từ bàn phím điểm trung bình (ĐTB), sau đó xếp loại học lực và báo ra màn hình theo yêu cầu sau: ĐTB >= 8 : Xếp loại giỏi 6,5 <= ĐTB <8: Xếp loại khá 5<= ĐTB <6,5 : Xếp loại trung bình. ĐTB < 5: Xếp loại yếu. b)Lưu vào máy tính với tên: Xếp loại. Pas. IV/ Đáp án và biểu điểm: Bài 1: a)2 điểm Program Inchu; Begin Writeln (‘ Chương trinh tin học lop 8’); Writeln (‘ Lap trinh don gian’); Readln; End. b)1 điểm. Bài 2: a)2 điểm Program Tong; Var a, b, c: Integer; Begin Write (‘ Nhap vao so thu nhat a =’); Readln(a); Write (‘ Nhap vao so thu hai b =’); Readln(b); c: = a+ b; Writeln (‘ Tong cua hai so la: ‘,c);
5. Câu 4: Nêu lợi ích của việc khai báo và sử dụng biến mảng? A. Có thể thay thế nhiều câu lệnh nhập B. In dữ liệu ra màn hình bằng một câu lệnh lặp. C. Câu a và b đúng. D. Tất cả đều sai. Câu 5: Hãy cho biết đâu là phần khai báo biến mảng A gồm 20 phần tử thuộc kiểu dữ liệu số nguyên? A. var A: array[11 30] of integer; B. var A: array[1 20] of real; C. var A: array[1 20] of integer; D. var A: array[11 30] of real; Câu 6: Trong Pascal, cách khai báo mảng đúng là: A. Tên mảng : array[ ] of ; B. Tên mảng : array[ : ] of ; C. Tên mảng : array[ ] : ; D. Tên mảng : array[ , ] of ; Câu 7: Hãy cho biết đâu là lệnh lặp For do để in chữ O? A. For i:=1.5 to 10.5 do writeln(‘O’); B. For i:=1 to 10 do writeln(‘O’); C. For i:=100 to 1 do writeln(‘O’); D. For i:=1 to 10 do; writeln(‘O’; Câu 8: Câu lệnh nào sau đây là câu lệnh nhập cho phần tử thứ 10 của biến mảng A? A. Readln(A[10]); B. Readln(A[k]); C. Readln(A[i]); D. Readln(A10); II. TỰ LUẬN: (6 điểm) 1. Điền X vào các ô sao cho phù hợp và giải thích vì sao? (2 điểm) Câu Đúng Sai Giải thích a) if a>b then max:=a; else max:=b; b) var X: Array[5 10] Of Real; c) X:=10; while X:=10 do X := X+5; d) for i:=1.5 to 10 do m:=m + 1; 2. Hãy viết các câu lệnh, khai báo theo yêu cầu sau: (2điểm) A.Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực. B. Phần tử thứ 5 của mảng A được gán giá trị là 8. C. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên. D. Nhập giá trị cho phần tử thứ 2 trong mảng diem. 3. Viết chương trình Pacscal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài dãy số được nhập từ bàn phím. In ra màn hình số lớn nhất của dãy số.(2 điểm) (Giám thị coi thi không giải thích gì thêm)
6. End ; max :=a[1] ; For i :=2 to n do If a[i] < min then max :=a[i] ; Writeln(‘So lon nhat la :’,max) ; Readln ; End.