kt 1 tiet tin 11

Nhập dữ liệu cho mảng A gồm n phần tử.. Cả 3 đáp án trên đều sai... Đếm số lượng số chẵn trong mảng A.. Đếm số lượng số chia hết cho m trong mảng C.. Đếm số lượng số không chia hết cho

HỌ VÀ TÊN……….LỚP 11/

KIỂM TRA HỌC KÌ II NĂM HỌC 2009 – 2010 MÔN: TIN HỌC 11 - PHẦN LÝ THUYẾT - THỜI GIAN 15 PHÚT

Đáp án:

Đáp án

Câu 1: Mảng B gồm n (n  80) số nguyên, khai báo nào sau đây là đúng:

A Const nmax=80;

Type mangB = array[1…nmax] of integer;

Var B: mangB;

B Var B : array[1 nmax] of integer;

C Type mangB = array[1 nmax] of integer;

Var B: mangB;

D Type mangB = array[1 nmax] of integer;

Câu 2: Đoạn chương rình sau thực hiện công việc gì?

Write(‘nhap so n=’); Read(n);

For i:=1 to n do

Begin Write(‘nhap phan tu thu ‘, i , ‘=’); read(A[i]); End;

Write(‘nhap so nguyen m = ‘); read(m);

A Nhập dữ liệu cho mảng A gồm n phần tử và số nguyên m B Nhập dữ liệu cho mảng A gồm n

phần tử

C Nhập số nguyên m D Cả 3 đáp án trên đều sai.

Câu 3: Cho khai báo: Var A: Array[1 4] of Integer ; i : Integer ;

Sau khi thực hiện lệnh : For i:=1 to 4 do A[i]:= i; thì mảng A có gía trị là :

A A[1]=1, A[2]=2, A[3]=3, A[4]=4

B A[1]=2, A[2]=3, A[3]=4, A[4]=5 C A[1]=0, A[2]=1, A[3]=2, A[4]=3 D A[1]=1, A[2]=1, A[3]=1, A[4]=1

Câu 4: Đoạn chương trình sau thực hiện công việc gì?

Dem:=0;

For i:=1 to n do If a[i] mod m = 0 then dem:=dem+1;

A Đếm số lượng số chẵn trong mảng A B Đếm số lượng số chia hết cho m trong mảng

C Đếm số lượng số không chia hết cho m trong mảng A D Đếm số lượng số lẻ trong mảng A

Giả sử biến st lưu giá trị hằng xâu’Pascal khong la qua kho’: (giả thiết này dùng từ câu 5-9) Câu 5: Cho biến s1 lưu trữ giá trị hằng xâu ‘co gi’ Thao tác Insert(s1,st,13) cho kết quả

A ‘Pascal khong co gi la qua kho’ B ‘Pascal khongco gi la qua kho’

C ‘Pascal khong la qua co gi kho’ D ‘Pascal khong la qua kho co gi’

Câu 6: Thực hiện thao tác Copy(st,14,10) cho kết quả

A ‘la qua kho’ B ‘khong la qua kho’ C ‘ la qua kho’ D ‘ la qua kho ’ Câu 7: Length(st) cho kết quả:

A 17 B 18 C 19 D 23

Câu 8: Thực hiện thao tác st[8] cho kết quả là:

A ‘c’ B ‘k’ C ‘kho’ D Tất cả đều sai

Câu 9: Thao tác Delete(st,14,7) cho kết quả là:

A ‘Pascal khong la’ B ‘Pascal khong kho’ C ‘Pascal la qua kho’

D ‘Pascal khong la’

Câu 10: Đoạn chương trình sau thực hiện công việc gì?

write(‘nhap xau:’); Read(a,b);

Insert(a,b,10);

Write(b);

A Nhâp 2 xâu a, b có độ dài không quá 100 B Nhâp 2 xâu a, b có độ dài không quá 100 đưa

ra xâu b

C Nhâp 2 xâu a, b , chèn xâu a vào xâu b tại vị trí thứ 10, đưa ra xâu nhận được D.Tất cả đều sai Câu 11: Đoạn chương trình sau thực hiện công việc gì?

dem:=0;

For i:=1 to length(a) do

If a[i]=’ ‘ then dem:=dem+1;

Write(‘ket qua la:’,dem);

A Đếm, đưa ra số kí tự trống trong xâu a B Nhập xâu a có độ dài

không quá 60

C Nhập xâu a có độ dài không quá 60, đếm số kí tự ‘A’ trong xâu a D Tất cả đều sai.

Câu 12: Bài toán: Một lớp học gồm n (n  50) học sinh, cần quản lý các thuộc tính sau: họ và tên, ngày

sinh, điểm toán, điểm văn, tổng, kết quả (với kết quả là ‘Đạt’ nếu tổng  10, ngược lại là ‘KDạt’

Khai báo nào sau đây là đúng và tối ưu nhất cho bài toán trên:

A Type Hocsinh=record

hoten:string[30];

ns:string[10];

dtoan,dvan,tong:real;

KQ :char;

end;

Var lop:array[1 60] of Hocsinh;

B Type Hocsinh=record

hoten:string[30];

ns:string[20];

dtoan,dvan,tong:real;

KQ : string[4];

end;

Var lop:array[1 60] of Hocsinh;

C Type Hocsinh=record

hoten:string[30]; ns:string[10]; dtoan,dvan,tong:real;

KQ : string[4]; end;

Var lop:array[1 60] of Hocsinh;

D Type Hocsinh=record

hoten:string[30]; ns:string[20]; dtoan,dvan,tong:real;

KQ : string[5]; end;

Var lop:array[1 60] of Hocsinh;