De Dap an thi HKII Tin 8

Khoanh tròn chữ cái đứng trước kết quả đúng Câu 1. Sau đó in ra màn hình giá trị nhỏ nhất của dãy số đó.[r]

Phòng GD&ĐT đề thi kiểm tra học kì II

Trờng THCS Môn: Tin học 8

Năm học: 2011-2012

(Thời gian làm bài 90 phút không kể giao đề)

đề bài phần lý thuyết (45 phút)

I Trắc nghiệm: (2,5 điểm)

Khoanh trũn chữ cỏi đứng trước kết quả đỳng

Cõu 1 Cỏc cõu lệnh Pascal sau đõy lệnh nào được viết đỳng?

a) if x:=7 then a=b; b) if x>5; then a:=b;

c) if x>5 then; a:=b; c) if x>5 then a:=b;

Cõu 2: Cho S và i là biến nguyờn Khi chạy đoạn chương trỡnh :

s:=0;

for i:=1 to 8 do s := s+2*i;

writeln(s);

Kết quả in lờn màn hỡnh là :

a s = 72 b s = 100 c s = 101 d s = 55

Cõu 3: Với cỏc cõu lệnh sau chương trỡnh thực hiện bao nhiờu vũng lặp

S:=0; n:=0;

while S<=10 do begin n:=n+1; S:=S+n end;

Cõu 4: Cỏc khai bỏo mảng sau đõy khai bỏo nào đỳng?

a var X: Array[10,13] Of Integer;

b var X: Array[3.4 4.8] Of Integer;

c var X: Array[10 1] Of Integer;

d var X: Array[4 10] Of Real;

Cõu 5 Khai bỏo mảng a cú 11 phần tử từ 5 đến 15 là cỏc số nguyờn thỡ ta khai bỏo như sau:

a) a:Array [1 11] of integer; b) a:Array [5 15] of integer; c) a:Array [5 15] of integer; d) a:Array [11] of integer;

II Tự luận: (7,5 điểm)

Cõu 1 (1 điểm): Sau mỗi cõu lệnh sau đõy

a if (15 mod 3)=0 then X:=X+2;

b if X>8 then X:=X+2;

giỏ trị của biến X sẽ là bao nhiờu, nếu trước đú giỏ trị của X bằng 7?

Cõu 2 (6,5 điểm): Sử dụng biến mảng viết chương trỡnh nhập vào N số nguyờn từ bàn phớm Sau đú in ra màn hỡnh giỏ trị nhỏ nhất của dóy số đú

đề bài phần THựC HàNH (45 phút)

Nhập vào máy tính chơng trình của câu 2, dịch, sửa lỗi và chạy thử chơng trình để kiểm tra kết quả

Phòng GD&ĐT hƯớng dẫn chấm điểm

Trờng THCS Môn: Tin học 8

HKII - Năm học: 2011-2012

phần lý thuyết

I Trắc nghiệm: (2,5 điểm)

Mỗi ý đỳng cho 0,5 điểm

1 D 2.A 3 B 4.D 5.C

II Tự luận: (7,5 điểm)

Cõu 1: (1 đ)

Sau mỗi cõu lệnh:

a) X:=9; b) X:=7;

Cõu 2: (6.5 đ)

program P_Min;

uses crt;

Var i, n, Min: integer;

A: array[1 100] of integer;

Begin

clrscr;

write('Hay nhap do dai cua day so, N = '); readln(n);

writeln('Nhap cac phan tu cua day so:');

For i:=1 to n do

write('a[',i,']='); readln(a[i]);

Min:=a[1];

For i:=2 to n do if Min>a[i] then Min:=a[i];

writeln('So nho nhat la Min = ',Min);

Readln

End

phần THựC HàNH

- Học sinh nhập đợc vào máy (6 đ)

- Dịch và sử lỗi thành công (3 đ)

- Chạy thử đợc chơng trình (1 đ)

(Lu ý: Điểm kiểm tra học kỳ của học sinh bằng điểm lý thuyết + điểm thực hành chia 2)