Đề 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 A
1
, A
2
,…,A
N
. Đếm các phần từ thỏa
điều kiện (36 < A
i
< 99).
Yêu cầu: Phân tích bài toá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 B
1
, B
2
,…,B
M
. Đếm các phần từ thỏa
điều kiện (11 < B
i
< 33).
Yêu cầu: Phân tích bài toá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

điểm.
Thao tác xuất mảng
Procedure Xuatmang(A:M1C;n:integer);
var i:integer;
begin
for i:=1 to n do
write(A[i]:4);
end;
0,25
0,5
Thao tác đếm phần tử thỏa điều kiện
Function Dem36_99(A:M1C; n:integer) :integer;
var i,T: integer;
begin
T:=0;
for i:=1 to n do
if (A[i] < 36) and (A[i] > 99) then
T:=T+1;
Tong:= T;
end;
0,25
0,5 Đề 2 chỉ khác ở lệnh
này: If B[i] < < 36)
and (B[i] > 99) then
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;