Sở GD-ĐT Tỉnh Lâm Đồng
KIỂM TRA HỌC KÌ II - Năm học 2010-2011
Trường THPT Đức Trọng
Môn: Tin Học - KHỐI 11
Thời gian: 45 phút
Đáp án mã đề: 144
01. B; 02. C; 03. A; 04. B; 05. B; 06. A; 07. C; 08. D; 09. D; 10. C; 11. D; 12. B; 13. C; 14. A;
15. B; 16. D; 17. A; 18. C; 19. A; 20. B;
Đáp án mã đề: 178
01. B; 02. D; 03. D; 04. A; 05. B; 06. A; 07. C; 08. D; 09. C; 10. C; 11. A; 12. D; 13. B; 14. C;
15. D; 16. A; 17. B; 18. A; 19. D; 20. D;
Đáp án mã đề: 212
01. A; 02. B; 03. B; 04. B; 05. A; 06. B; 07. B; 08. B; 09. D; 10. D; 11. C; 12. A; 13. A; 14. A;
15. A; 16. B; 17. D; 18. B; 19. A; 20. B;
Đáp án mã đề: 246
01. B; 02. B; 03. B; 04. A; 05. B; 06. D; 07. A; 08. B; 09. C; 10. A; 11. C; 12. D; 13. A; 14. D;
15. A; 16. D; 17. A; 18. D; 19. A; 20. B;
Câu 1
Đáp án
Program tep1; {De 1}
uses crt;
var F:text;
i:char;d:byte;
Begin
assign(F,'vanban.txt');
reset(F);
d:=0;
while not eof(F) do
begin
read(F,i);
if ('A' <=i) and (i<='Z') then d:=d+1;
end;
write('So luong ki tu hoa la:' ,d);
Close(F);
readln
end.
Program tep2; {De 2}
uses crt;
var F:text;
i:char;d:byte;
Begin
assign(F,'vanban.txt');
reset(F);
d:=0;
while not eof(F) do
begin
Điểm
Ghi chú
0.25
Khai báo: đủ, đúng mới cho
điểm 0.25
0.25
0.25
Chính xác
Chính xác
0.75
Chính xác từ While cho đến
end; mới cho 0.75 nếu sai
hoặc thiếu không cho điểm
0.25
0.25
Chính xác
Chính xác
0.25
Khai báo: đủ, đúng mới cho
điểm 0.25
0.25
0.25
Chính xác
Chính xác
0.75
Chính xác từ While cho đến
end; mới cho 0.75 nếu sai
read(F,i);
if ('0' <=i) and (i<='9') then d:=d+1;
end;
write('So luong ki tu so la:' ,d);
Close(F);
readln
end.
Program tep3; {De 3}
uses crt;
var F:text;
i:char;d:byte;
Begin
assign(F,'vanban.txt');
reset(F);
d:=0;
while not eof(F) do
begin
read(F,i);
if ('a' <=i) and (i<='z') then d:=d+1;
end;
write('So luong ki tu thuong la:' ,d);
Close(F);
readln
end.
Program tep4; {De 4}
uses crt;
var F:text;
i:char;d:byte;
Begin
assign(F,'vanban.txt');
reset(F);
d:=0;
while not eof(F) do
begin
read(F,i);
if i = ' ' then d:=d+1;
end;
write('So luong ki tu trang la:' ,d);
Close(F);
readln
end.
hoặc thiếu không cho điểm
0.25
0.25
Chính xác
Chính xác
0.25
Khai báo: đủ, đúng mới cho
điểm 0.25
0.25
0.25
Chính xác
Chính xác
0.75
Chính xác từ While cho đến
end; mới cho 0.75 nếu sai
hoặc thiếu không cho điểm
0.25
0.25
Chính xác
Chính xác
0.25
Khai báo: đủ, đúng mới cho
điểm 0.25
0.25
0.25
Chính xác
Chính xác
0.75
Chính xác từ While cho đến
end; mới cho 0.75 nếu sai
hoặc thiếu không cho điểm
0.25
0.25
Chính xác
Chính xác
Câu 2:
Đáp án tự luận đề 1, 3 Đúng, chính xác, xụất có quy cách mới cho điểm
Program ctc;
Uses Crt;
Var x,y: Integer;
0,25
P: Real;
0,25
Function Luythua(a,b: integer):longint;
Var i:integer; T:longint;
0.25
Begin
T:=1;
0.25
For i:=1 to b do T:=T*a;
0.25
Luythua:=T;
0.25
end;
Begin
Clrscr;
write('Nhap vao 2 so nguyen: ');
readln(x,y);
0.25
P:=(Luythua(x,7)+Luythua(y,x))/(x+y); Đê 1 : 0.75
P:=(x+y)/(Luythua(x,y)+Luythua(y,2)); Đê 3 :0.75
Writeln('Ket qua P= ',P:10:2);
0.25
readln
End.
Đáp án tự luận đề 2, 4 Đúng, chính xác, xụất có quy cách mới cho điểm
Program ctc;
Uses Crt;
Var a,b: Integer;
0,25
P: Real;
0,25
Function Giaithua(n:integer):longint;
Var i:integer; T:longint;
0.25
Begin
T:=1;
0.25
For i:=1 to n do T:=T*i;
0.25
Giai thua:=T;
0.25
end;
Begin
Clrscr;
write('Nhap vao 2 so nguyen: ');
readln(a,b);
0.25
P:=(Giaithua(a)+Giaithua(15))/(a+b); Đê 2 0.75
P:=(Giaithua(15)+Giaithua(a+b);
Đê 4 0.75
Writeln('Ket qua P= ',P:10:2);
0.25
readln
End.