De kiem tra (Dap an) 10 11 12

SỞ GD & ĐT ĐĂK LĂK
TRƯỜNG THPT BUÔN HỒ
ĐỀ THI HỌC KỲ I
MÔN Tin học 11
Thời gian làm bài: 45 phút;



ĐỀ CHẴN

Câu 1:
+ Vẽ sơ đồ khối của câu lệnh if-then dạng thiếu
+ Hoạt động của câu lệnh if-then dạng thiếu
Câu 2:
Viết chương trình sử dụng câu lệnh rẽ nhánh để tính:




Câu 3: Viết chương trình sử dụng câu lệnh FOR-DO hiển thị lên màn hình tổng các số chia hết cho 2 hoặc 3 trong phạm vi từ 1->2000
Câu 4: Viết chương trình thực hiện việc nhập từ bàn phím 2 số nguyên dương M và N(MN



SỞ GD & ĐT ĐĂK LĂK
TRƯỜNG THPT BUÔN HỒ
ĐỀ THI HỌC KỲ I
MÔN Tin học 11
Thời gian làm bài: 45 phút;



ĐỀ L Ẻ

C âu 1:
+ Vẽ sơ đồ khối của câu lệnh if-then dạng đ ủ
+ Hoạt động của câu lệnh if-then dạng đủ
Câu 2:
Viết chương trình sử dụng câu lệnh rẽ nhánh để tính:




Câu 3: Viết chương trình nhập vào 2 số nguyên M,N(MCâu 4: Viết chương trình sử dụng câu lệnh WHILE-DO đưa ra màn hình các số chia hết cho 2 hoặc 3 trong phạm vi 1->2000


ĐÁP ÁN
ĐỀ CHẴN
Câu 1: (3 điểm)
+Sơ đồ khối(1 điểm)






+Hoạt động(2 điểm)
-Điều kiện sẽ được tính và kiểm tra
-Nếu điều kiện đúng(có giá trị true) thì câu lệnh sẽ được thực hiện, ngược lại thì câu lệnh sẽ bị bỏ qua.
Câu 2:(3 điểm)
Program tinhc;
Var c,a,b:integer; {0.5 điểm}
Begin
Writeln(‘nhap a’); {0.5 điểm}
Readln(a);
Writeln(‘nhap b’);
Readln(b);
If aElse
If a>b then c:= sqr(a) -sqr(b)
Else
c:=100;
Writeln(‘c=’,c);
Readln
End.
Câu 3:(2 điểm)
Program tongc;
Var s,i:word; {0.5 điểm}
Begin
S:=0; {1.5 điểm}
For I:=1 to 2000 do
If (I mod 2=0) or (I mod 3=0 ) then
S:=S+I;
Writeln(‘tong la’,S);
Readln
End.
Câu 4:(2 điểm) {0.5 điểm}
Program hienthic;
Var M,N:integer;
Begin
Writeln(‘nhap M’);
Readln(M);
Writeln(‘nhap N’);
Readln(N);
Writeln(‘so cac so chia het cho 2 hoac 3 la:’);
While M<=N do {1.5 điểm}
Begin
If (M mod 2=0) or (M mod 3=0) then
Write(M:6);
M:=M+1;
End;
Readln
End.


ĐÁP ÁN
ĐỀ LẺ
Câu 1: (3 điểm)
+Sơ đồ khối(1 điểm)








+Hoạt động(2 điểm)
-Điều kiện sẽ được tính và kiểm tra
-Nếu điều kiện đúng(có giá trị true) thì câu lệnh 1 sẽ được thực hiện, ngược lại thì câu lệnh 2 sẽ được thực hiện.
Câu 2:(3 điểm)
Program tinhcl;
Var c,a,b:integer; {0.5 điểm}
Begin
Writeln(‘nhap a’); {0.5 điểm}
Readln(a);
Writeln(‘nhap b’);
Readln(b);
If aElse
If a>b then c:= a +b
Else
c:=100;
Writeln(‘c=’,c);
Readln
End.
Câu 3:(2 điểm)
Program tongl;
Var S,I,M,N:word; {0.5 điểm}
Begin
Writeln(‘nhap M’);
Readln(M);
Writeln