Đáp án Đề thi Tin học K11 (buổi sáng)

ĐÁP ÁN ĐỀ THI KIỂM TRA HỌC KỲ II
PHẦN LÝ THUYẾT
Câu Nội dung Điểm
1
Trình bày khái niệm kiểu dữ liệu mảng 1 chiều.
Mảng 1 chiều là dãy hữu hạn các phần tử cùng kiểu. Mảng được đặt tên và mỗi phần tử của nó
có một chỉ số. Để mô tả mảng một chiều cần xác định kiểu của các phần tử và cách đánh số các
phần tử của nó.
1
2
Trình bày cú pháp khai báo biến mảng 2 chiều. Nêu đầy đủ các thành phần trong cú
pháp khai báo đó
Khai báo gián tiếp:
Type <Tên kiểu mảng>:Array [kiểu chỉ số hàng,kiểu chỉ số cột] Of <kiểu phần tử>;
Var <Tên biến mảng >:<Tên kiểu mảng>;
Khai báo trực tiếp:
Var <Tên biến mảng >: Array [kiểu chỉ số hàng,kiểu chỉ số cột] Of <kiểu phần tử>;
Các thành phần trong cú pháp khai báo biến mảng 2 chiều:
<Tên kiểu mảng, tên biến mảng>: Do người lập trình tự đặt.
Type, Array, Of, Var : Là các từ khóa.
< kiểu chỉ số hàng>: Thể hiện số dòng trong mảng 2 chiều. Thường là một đoạn số nguyên liên
tục có dạng n
1
n
2
với n
1
, n
2
là các hằng hoặc biểu thức nguyên xác định chỉ số đầu và chỉ số
cuối (n

1
<= n
2
).
< kiểu chỉ số cột>: Thể hiện số cột trong mảng 2 chiều. Tương tự kiểu chỉ số hàng.
< kiểu phần tử>: Là kiểu các phần tử của mảng.
3
0.75
0.75
1,5
3
Trình bày các lợi ích của việc sử dụng chương trình con trong lập trình.
(Hs viết đúng 1-2 ý cho 1 điểm. <–> 3- 4 ý cho 1,5 điểm <–> 5-6 ý cho 2 điểm )
 Tránh được việc phải viết lặp đi lặp lại cùng một dãy lệnh nào đó trong chương trình.
 Hỗ trợ việc thực hiện các chương trình lớn.
 Phục vụ cho quá trình trừu tượng hóa.
 Mở rộng khả năng ngôn ngữ.
 Thuận tiện cho phát triển, nâng cấp chương trình.
2
PHẦN BÀI TẬP
Bài Nội dung Điểm
1 Program Bai1;
Uses crt;
Var A: Array [ 1 5,1 8 ] of Integer;
i, j , tong1, tong2, spt1,spt2 : Integer;
Begin
Clrscr;
For i:= 1 to 5 do
For j := 1 to 8 do
Begin

Write (‘ Nhap phan tu dong ‘,i,’ cot ‘,j,’ : ‘); Readln(A[i,j]);
End;
Tong1:= 0 ; Tong2 := 0; spt1:= 0 ; spt2 := 0;
For i:= 1 to 5 do
For j := 1 to 8 do
If j mod 2 = 1 then
Begin
Tong1 := tong1 + A[i,j];
Spt1 := spt1 + 1
End;
Writeln (‘ Trung binh cong cac phan tu thuoc cot le = ’,tong1 / spt1 :10:2);
For i:= 1 to 5 do
For j := 1 to 8 do
If ( i mod 2 = 0 ) and ( j mod 2 = 1 ) then
Begin
Tong2 := tong2 + A[i,j];
Spt2 := spt2 + 1
End;
Writeln (‘ Trung binh cong cac phan tu thuoc dong chan, cot le = ’,tong2 / spt2 :10:2);
Readln
End.
Nếu Hs khai báo sai biến mảng : Trừ ½ số điểm bài này.
3
1
1
1
2 Program Bai2;
Uses crt;
Var a , b, c, d, e : Real;
Function MAX (a , b : Real) : Real;

Begin
If a > b then MAX := a
Else MAX := b;
End;
Begin
Clrscr;
Write (‘ Nhap vao 5 so : ’); Readln(a, b, c, d, e);
Writeln(‘ So lon nhat trong 5 so la: ’,MAX(MAX(MAX(MAX(a , b), c), d), e));
Readln
End.
1
0.5
0.5