Kiem tra tu luan tin hoc 11

Đề và đáp án phần tự luận
Môn : Tin học 11
I. Phần đề thi
Đề 1: Viết chương trình nhập N phần tử các số nguyên A1, A2,…,AN. Đếm các phần từ thỏa
điều kiện (36 < Ai < 99).
Yêu cầu: Phân tích bài tốn thành các thao tác nhỏ.
Viết chương trình theo hướng lập trình cấu trúc (chương trình con).
Đề 2: Viết chương trình nhập M phần tử các số nguyên B1, B2,…,BM. Đếm các phần từ thỏa
điều kiện (11 < Bi < 33).
u cầu: Phân tích bài tốn thành các thao tác nhỏ.
Viết chương trình theo hướng lập trình cấu trúc (chương trình con).
II. Hướng dẫn chấm và đáp án cho phần tự luận
Đáp án từng phần
Điểm
Ghi chú
+ Các thao tác chính
- Nhập N
0,25
- Nhập mảng
0,25
- Đếm phần tử
0,25
Thao tác nhập n (thủ tục)
Procedure NhapN(var N);
0,25
Begin
Thiếu dấu (;) coi như
Write(‘Nhap N:’);
0,5
lệnh viết sai.
Readln(N);

End;
Thao tác nhập mảng
Procedure Nhapmang(var A:M1C; n:integer);
0,25 Tên thủ tục sai cú
Var i:byte;
pháp hoặc từ khóa sai
Begin
hoặc coi như mất
For i:=1 to N do
0,25 điểm.
Begin
Write(‘A[‘,i’]=’);
0,5
Readln(A[i]);
End;
Thao tác xuất mảng
Procedure Xuatmang(A:M1C;n:integer);
0,25
var i:integer;
begin
0,5
for i:=1 to n do
write(A[i]:4);
end;
Thao tác đếm phần tử thỏa điều kiện
Function Dem36_99(A:M1C; n:integer) :integer;
0,25
var i,T: integer;
begin
T:=0;

for i:=1 to n do
if (A[i] < 36) and (A[i] > 99) then
0,5
Đề 2 chỉ khác ở lệnh
T:=T+1;
này: If B[i] < < 36)
Tong:= T;
and (B[i] > 99) then
end;
S:=S+B[i];
Chương trình chính
Phần khai báo:
Program KTHKII;
Uses CRT;
Type M1C=Array[1..50] of Integer;
Var A:M1C;

0,25

Không cho điểm
phần khai báo tên
chương trình và thư
viện, nhưng trừ 0,25
cho các lỗi sai.


N:Integer;
{Các chương trình con}
Begin
Clrscr;

NhapN(N);
NhapMang(A,N);
Xuatmang(A,N);
Write(‘So phan tu thoa dieu kien:’,Dem26_99(A,N));
readln
End.

0,25
0,25
0,5