1. Trang chủ
  2. » Cao đẳng - Đại học

De Dap an thi HKII Tin 8

2 3 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Nội dung

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]

(1)

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

(Thi gian làm 90 phút không kể giao đề) đề phần lý thuyết (45 phút)

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

Khoanh trịn chữ đứng trước kết đúng Câu Các câu lệnh Pascal sau lệnh 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 i biến nguyên Khi chạy đoạn chương trình : s:=0;

for i:=1 to s := s+2*i; writeln(s);

Kết in lên hình :

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

Câu 3: Với câu lệnh sau chương trình thực vòng lặp S:=0; n:=0;

while S<=10

begin n:=n+1; S:=S+n end;

a lần b lần c lần d lần Câu 4: Các khai báo mảng sau khai bá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 Khai báo mảng a có 11 phần tử từ đến 15 số nguyên ta khai báo 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ù ln: (7,5 ®iĨm)

Câu (1 điểm): Sau câu lệnh sau a. if (15 mod 3)=0 then X:=X+2;

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

giá trị biến X bao nhiêu, trước giá trị X 7?

Câu (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 hình giá trị nhỏ dãy số

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

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

Phßng GD&ĐT hƯớng dẫn chấm điểm Trờng THCS Môn: Tin häc 8

(2)

phÇn lý thuyÕt

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

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

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

II Tù ln: (7,5 ®iĨm)

Câu 1: (1 đ) Sau 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 dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:');

For i:=1 to n Begin

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

Min:=a[1];

For i:=2 to n 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 sử lỗi thành công (3 đ) - Chạy thử đợc chơng trình (1 đ)

Ngày đăng: 18/05/2021, 11:12

TÀI LIỆU CÙNG NGƯỜI DÙNG

  • Đang cập nhật ...

TÀI LIỆU LIÊN QUAN

w