Kiem tra tu luan tin hoc 11

Đề đá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ử số nguyên A1, A2,…,AN Đếm phần từ thỏa điều kiện (36 < Ai < 99) u cầu: Phân tích tốn thành 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ử số nguyên B1, B2,…,BM Đếm phần từ thỏa điều kiện (11 < Bi < 33) u cầu: Phân tích tốn thành 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 đáp án cho phần tự luận Đáp án phần Điểm Ghi + Các thao tác - 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 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 từ khóa sai Begin coi For i:=1 to N 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 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 if (A[i] < 36) and (A[i] > 99) then 0,5 Đề 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 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 thư viện, trừ 0,25 cho 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