Tin hoc 8 - HKII (Ly thuyet)

Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú IIHọ và tên: .... TỰ LUẬN: Câu 1:2đ Viết chương trình nhập vào một mảng các số nguyên.. In ra màn hình giá trị trung bình cộng của mảng đó

Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II

Họ và tên: Môn: Tin học 8

Lớp: . (Thời gian làm bài 45 phút)

Đề 1

I TRẮC NGHIỆM

Chọn câu trả lời em cho là đúng nhất:

Câu 1:(0,5đ) Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); Sẽ in ra màn hình?

a Không thực hiện được vì giá trị cuối không phải là số nguyên

b Giá trị biến đếm

c Viết số 1 rồi viết số 3.5

d Chỉ viết số 3.5 mà thôi

Câu 2:(0,5đ) Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)

B TỰ LUẬN:

Câu 1:(2đ) Viết chương trình nhập vào một mảng các số nguyên In ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng

Câu 2:(2đ) Viết chương trình tính tổng:

S = 1+2+3+…+n Trong đó n là số nguyên nhập từ bàn phím.

Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II

Họ và tên: Môn: Tin học 8

Lớp: . (Thời gian làm bài 45 phút)

Đề 2

I TRẮC NGHIỆM

Chọn câu trả lời em cho là đúng nhất:

Câu 1:(0,5đ) Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu gì?

a Interger; b real; c string d Tất cả các kiểu trên đều được

Câu 2:(0,5đ) Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng:

a If a=5 then a:=a+1; else a:=a+2; b If a=5 then a:=a+1else a:=a+2

c If a=5 then a:=a+1else a:=a+2; d If a=5 then a:=a+1; else a=a+2;

B TỰ LUẬN:

Câu 1:(2đ) Viết chương trình tính tổng:

S

n

= + + + + +

Trong đó n là số nguyên nhập từ bàn phím.

Câu 2:(2đ) Viết chương trình nhập vào một mảng các số nguyên In ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng

Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II

Họ và tên: Môn: Tin học 8

Lớp: . (Thời gian làm bài 45 phút)

Đề 3

I TRẮC NGHIỆM

Chọn câu trả lời em cho là đúng nhất:

Câu 1:(0,5đ) Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu:

s:=0;

for i:=1 to 5 do s := s+i;

Câu 2:(0,5đ) Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn lệnh:

a for i:=1 to n do

if ( i mod 2) < > 0 then S:=S + i;

b for i:=1 to n do

if ( i mod 2)=0 then S:=S + 1/i;

c for i:=1 to n do

if ( i mod 2)=0 then S:=S – 1/i else S:= S + 1/i;

d for i:=1 to n do

if ( i mod 2)=0 then S:=S +1/ i else S:=S-1/i;

B TỰ LUẬN:

Câu 2:(2đ) Viết chương trình tính tổng:

S = 1+2+3+…+n Trong đó n là số nguyên nhập từ bàn phím.

Câu 2:(2đ) Viết chương trình nhập vào một mảng các số nguyên In ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng

Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II

Họ và tên: Môn: Tin học 8

Lớp: . (Thời gian làm bài 45 phút)

Đề 4

I TRẮC NGHIỆM

Chọn câu trả lời em cho là đúng nhất:

Câu 1:(0,5đ) Trong câu lệnh lặp for i:=1 to 10 do Write(‘A’); thì lệnh Write(‘A’) được

thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)

Câu 2:(0,5đ) Hãy tìm hiểu đoạn chương trình sau đây

i:=1; j:=2; k:=3;

While i<=6 do Begin i:=i+1; j:=j+1; k:=k+j;

end;

Space:=’ ’;

Write(I,space,j,space,k);

Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của i, j, k lần lượt là bao nhiêu?

B TỰ LUẬN:

Câu 1:(2đ) Viết chương trình tính tổng:

S

n

= + + + + +

Trong đó n là số nguyên nhập từ bàn phím.

Câu 2:(2đ ) Tính tổng các số tự nhiên từ 100 đến 1000 (Vòng lặp với số lần lặp chưa biết).

Đáp án

I Trắc nghiệm:

II Tự luận:

Đề 1 Câu 1: (2đ)

Chương trình được viết như sau:

Program tbc;

Var a: array[1 100] of integer;

i, n, tong: integer;

tbc: real;

Begin

Write(‘Nhap vao so phan tu cua mang n= (<=100) :’); readln(n); Write(‘Nhap so nguyen:’);

For i:=1 to n do

Begin write(‘a[‘,i,’]:’); readln(a[i]); end;

Tong:=0;

For i:=1 to n do tong:=tong+a[i];

tbc:=tong/n;

Writeln(‘Trung binh cong cua mang la:’, tbc:10:2);

Writeln(‘ cac phan tu nho hon tbc la:’);

For i:=1 to n do

If a[i]<tbc then write(a[i]:5);

Readln;

End.

Câu 2:(2đ)

Program Tong;

Uses crt;

Var S: real;

n, i: integer;

Begin

Clrscr;

Write(‘Nhap so n = ‘); Readln(n);

S:= 0;

For i:= 1 to n do S: = S + i;

Writeln(‘Tong can tim la: ‘, S:6:2);

Readln

End.

Đề 2 Câu 1 (2đ)

Program Tong_Nghich_Dao;

Uses crt;

Var S: real;

n, i: integer;

Begin

Clrscr;

Write(‘Nhap so n = ‘); Readln(n);

S:= 0;

For i:= 1 to n do S: = S + 1/i;

Writeln(‘Tong can tim la: ‘, S:6:2);

Readln

End.

Câu 2 (2đ)

Program tbc;

Var a: array[1 100] of integer;

i, n, tong: integer;

tbc: real;

Begin

Write(‘Nhap vao so phan tu cua mang n= (<=100) :’); readln(n); Write(‘Nhap so nguyen:’);

For i:=1 to n do

Begin write(‘a[‘,i,’]:’); readln(a[i]); end;

Tong:=0;

For i:=1 to n do tong:=tong+a[i];

tbc:=tong/n;

Writeln(‘Trung binh cong cua mang la:’, tbc:10:2);

Writeln(‘ cac phan tu nho hon tbc la:’);

For i:=1 to n do

If a[i]<tbc then write(a[i]:5);

Readln;

End.

Đề 3

(Phần tự luận tương tự đề 1 và 2)

Đề 4

Câu 2:

Program tinh_tong;

Var i, S: Integer;

Begin

i:= 100;

S: = 0;

While i <=1000 do

S:= S + i;

i:= i + 1;

Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln; End.