GA-Đề kiểm tra 1tiết-11(chuẩn kiến thức)

Đề kiểm tra 1 tiết tin học 11
1. Mục tiêu đánh giá
Kiểm tra hiểu biết của học sinh về cách dùng câu lệnh ghép, rẽ nhánh và lặp
2. Mục đích yêu cầu của đề
Nắm được lệnh rẽ nhánh, hiểu được cấu trúc lặp.
Lập trình giải một bài toán về rẽ nhánh và lặp
3. Ma trận đề
Nhận biết Câu 1, Câu 5
Thông hiểu Câu 2, Câu 3, Câu 4
Vận dụng Câu 6
4. Đề bài
Đề 1:
Câu 1: Cho a, b, min là các biến thực. Trong các câu lệnh sau, câu lệnh nào đúng ?
a. If a<b;then min:=a ;
b. If a<b then min=a else min=b;
c. If a<b then min:=a else min:=b;
Câu 2: Cho đoạn chương trình sau:
x:=a;
if a<b then x:=b;
Cho a=20 ; b=15. Kết quả x bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 10 c. 15
b. 20 d. 25
Câu 3: Cho đoạn chương trình sau:
i:=1; s:=0;
while i<5 do
begin
s:=s+1;
i:=i+1;
end;
Kết quả s bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 3 c. 5

b. 4 d. 6
Câu 4: Cho đoạn chương trình sau:
p:=1;
for i:=1 to 6 do
p:=p*i;
kết quả p bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 120 c. 5040
b. 720 d. 40320
Câu 5: Cho đoạn chương trình sau
Var i:byte;S,n:real;
Begin
Write(‘nhap n=’),readln(n);
S:=0
For i:=1 to n do s:=s+(1/i)
Write(‘tong s=’,s);
Readln
End.
Đoạn chương trình trên có mấy lỗi?
a.2 c. 4
b.3 d.5
Câu 6: Tự luận (5 điểm). Viết các chương trình sau:
a. Nhập N từ bàn phím để tính tổng sau: s=1
2
+2
2
+3
2
+….N
2
. (3 điểm)

b. Nhập vào N số nguyên dương, kiểm tra xem có bao nhiêu số dương và tính tổng của
chúng.(HD: dùng for..do để nhập từng số hạng,nếu số nhập vào là dương thì
dem:=dem+1,tong:=tong+số dương) (2 điểm)
Đề 2:
Câu 1: Cho a, b, min là các biến thực. Trong các câu lệnh sau, câu lệnh nào đúng ?
a. If a<b then min:=a ;
b. If a<b then min=a else min=b;
c. If a<b then min:=a else min:=b;
Câu 2: Cho đoạn chương trình sau:
if a<b then x:=b else x:=a;
Cho a=10 ; b=15. Kết quả x bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 10 c. 15
b. 20 d. 25
Câu 3: Cho đoạn chương trình sau:
i:=1; s:=0;
while i<5 do
begin
s:=s+2;
i:=i+1;
end;
Kết quả s bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 5 c. 7
b. 6 d. 8
Câu 4: Cho đoạn chương trình sau:
p:=1;
for i:=1 to 6 do
p:=p+i;
kết quả p bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 20 c. 22
b. 21 d. 23

Câu 5: Cho đoạn chương trình sau
Var i:byte;S,n:real;
Begin
Write(‘nhap n=’),readln(‘n’);
S:=0
For i:=1 to n do s:=s+(1/i)
Write(‘tong s=’,s);
Readln
End.
Đoạn chương trình trên có mấy lỗi?
a.2 c. 4
b.3 d.5
Câu 6: Tự luận (5 điểm). Viết các chương trình sau:
a. Nhập vào số n,k tính A
n
k
? (3 điểm)
b. Nhập vào N số nguyên, tìm số lớn nhất và xuất ra màn hình? (HD: dùng for..do để
nhập n số, gán max bằng số đầu tiên,duyệt với n-1 số còn lại,nếu max< số nhập thì
max:=số. Xuất max.) (2 điểm)
Đề 3:
Câu 1: Cho a, b, min là các biến thực. Trong các câu lệnh sau, câu lệnh nào đúng ?
a. If a>b then min:=b ;
b. If a<b then min=a else min=b;
c. If a<b then min:=a else min:=b;
Câu 2: Cho đoạn chương trình sau:
if a<b then x:=b else x:=a;
Cho a=20 ; b=25. Kết quả x bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 10 c. 15
b. 20 d. 25

Câu 3: Cho đoạn chương trình sau:
i:=1; s:=0;
while i<5 do
begin
s:=s+3;
i:=i+1;
end;
Kết quả s bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 10 c. 12
b. 11 d. 13
Câu 4: Cho đoạn chương trình sau:
p:=21;
for i:=1 to 6 do
p:=p-I;
kết quả p bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. -1 c. 1
b. 0 d. 2
Câu 5: Cho đoạn chương trình sau
Var i:byte;S,n:real;
Begin
Write(‘nhap n=’),readln(n);
S:=0
For i:=1 to n do s:=s+(1/i)
Write(‘tong s=’s);
Readln
End.
Đoạn chương trình trên có mấy lỗi?
a.2 c. 4
b.3 d.5
Câu 6: Tự luận (5 điểm). Viết các chương trình sau:

a. Nhập N từ bàn phím để tính tổng sau: s=1
2
+2
2
+3
2
+….N
2
. (3 điểm)
b. Nhập vào N số nguyên dương, kiểm tra xem có bao nhiêu số dương và tính tổng của
chúng.(HD: dùng for..do để nhập từng số hạng,nếu số nhập vào là dương thì
dem:=dem+1,tong:=tong+số dương) (2 điểm)
Đề 4:
Câu 1: Cho a, b, min là các biến thực. Trong các câu lệnh sau, câu lệnh nào đúng ?
a. If a<b;then min:=a ;
b. If a<b then min=a else min=b;
c. If a<b then min:=a else min:=b;
Câu 2: Cho đoạn chương trình sau:
x:=a;
if a<b then x:=b;
Cho a=20 ; b=25. Kết quả x bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 10 c. 15
b. 20 d. 25
Câu 3: Cho đoạn chương trình sau:
i:=1; s:=0;
while i<5 do
begin
s:=s+4;
i:=i+1;
end;

Kết quả s bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 16 c. 18
b. 17 d. 19
Câu 4: Cho đoạn chương trình sau:
p:=2880;
for i:=1 to 6 do
p:=p div i;
kết quả p bằng bao nhiêu? ( Đánh dấu vào đáp số đúng)
a. 2 c. 4
b. 3 d. 5
Câu 5: Cho đoạn chương trình sau
Var i:byte;S,n:real;
Begin
Write(‘nhap n=’),readln(n);
S:=0;
For i:=1 to n do s:=s+(1/i)
Write(‘tong s=’,s);
Readln
End.
Đoạn chương trình trên có mấy lỗi?
a.2 c. 4
b.3 d. 5
Câu 6: Tự luận (5 điểm). Viết các chương trình sau:
a. Nhập vào số n,k tính A
n
k
? (3 điểm)
b.Nhập vào N số nguyên dương, kiểm tra xem có bao nhiêu số dương và tính tổng của chúng.
(HD: dùng for..do để nhập từng số hạng,nếu số nhập vào là dương thì
dem:=dem+1,tong:=tong+số dương) (2 điểm)

5. Đáp án và biểu điểm
Câu 1 (1 điểm) Đáp án: Đề 1:c Đề 2:c Đề 3:c Đề 4:c
Câu 2 (1 điểm) Đáp án: Đề 1:b Đề 2:c Đề 3:d Đề 4:d
Câu 3 (1 điểm) Đáp án: Đề 1:b Đề 2:d Đề 3:c Đề 4:a
Câu 4 (1 điểm) Đáp án: Đề 1:b Đề 2:c Đề 3:b Đề 4:c
Câu 5 (1 điểm) Đáp án: Đề 1:c Đề 2:d Đề 3:d Đề 4:b
Câu 6 (5 điểm)
Câu a: (3 điểm) - Đề 1 và Đề 3
program tong;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap gia tri n:');readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
write('tong s=',s:9:2);
readln
end.
- Khai báo biến (đủ, phù hợp): 1 điểm.
- Nhập, xuất: 1 điểm.
- Phần code thực hiện thuật toán: 1 điểm.
Câu a: (3 điểm) - Đề 2 và Đề 4
program tong;
uses crt;
var i,n,k:integer;
kq,kq1,kq2:real;
begin

clrscr;
write('nhap gia tri k va n:');readln(k,n);
kq1:=1;kq2:=1;
for i:=1 to k do kq1:=kq1*i;
for i:=1 to k-n do kq2:=kq2*i;
kq:=kq1/kq2;
write('kAn=',kq:9:2);
readln
end.
- Khai báo biến (đủ, phù hợp): 1 điểm.
- Nhập, xuất: 1 điểm.
- Phần code thực hiện thuật toán: 1 điểm.
Câu b: (2 điểm) - Đề 1 và Đề 3
program timax;
uses crt;
var max,so,i,n:integer;
begin
clrscr;
write('ban muon nhap bao nhieu so?');readln(n);